[文件] EXCEL巨集編修

作者: pointchi (pointchi)   2018-08-26 15:42:49
軟體:EXCEL
版本:2013
之前樞紐後篩選的問題經soyoso大協助以解決,目前想更進一步精簡,上網查資料發現有
巨集這功能,因此錄製兩個巨集,但是遇到些問題。
巨集1:將 Data 表單樞紐,並且於C欄寫入公式(大於9則顯示數值,不然就顯示空白)。
巨集2:刪除樞紐產生的 工作表1,檔案回復原始狀態。
https://i.imgur.com/P0VQvq1.jpg
問題1:因為 Data 的資料筆數不一定,因此樞紐產生的 工作表1 筆數也會變化,但是錄
製巨集1時C欄公式只有到C448欄位,所以資料超過C448欄位就不會有公式,請問我要如何
修改巨集內的編碼,使得C欄公式可以依最終欄位增減。
https://i.imgur.com/xrYYe9B.jpg
問題2:錄製巨集2的時候有出現<<刪除工作表的動作無法復原….>>警示視窗,並且按<<
刪除>>,可是執行巨集2的時候還是會出現警示視窗,要如何才能執行巨集2時不會出現警
示視窗。
https://i.imgur.com/RN9EDbe.jpg
問題3:
當我執行巨集2後,再次巨集1時出現下列訊息,看起來應該是因為巨集1樞紐後會產稱
Sheet1表單,可是因為再次執行巨集1時系統會自動產生Sheet2,因此出現錯誤訊息。
https://i.imgur.com/26cDeK7.jpg
https://i.imgur.com/cWQVeNZ.jpg
下連結是我的範例檔案。
https://goo.gl/wrscQx
感謝前輩解惑。
作者: soyoso (我是耀宗)   2018-08-26 16:30:00
問題1,以range.end取最後有值儲存格,配合range.address回傳儲存格位置字串;或以range.end().row來取列號問題2,以application.displayalerts為false關閉問題3,新增工作表sheets.add下方再加上activesheet.name為"工作表1"

Links booklink

Contact Us: admin [ a t ] ucptt.com