[文件] EXCEL巨集編修

看板Office作者 (pointchi)時間5年前 (2018/08/26 15:42), 編輯推噓0(005)
留言5則, 1人參與, 5年前最新討論串1/1
軟體: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 感謝前輩解惑。 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.251.75.174 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1535269374.A.919.html

08/26 16:30, 5年前 , 1F
問題1,以range.end取最後有值儲存格,配合range.address
08/26 16:30, 1F

08/26 16:31, 5年前 , 2F
回傳儲存格位置字串;或以range.end().row來取列號
08/26 16:31, 2F

08/26 16:37, 5年前 , 3F
問題2,以application.displayalerts為false關閉
08/26 16:37, 3F

08/26 16:40, 5年前 , 4F
問題3,新增工作表sheets.add下方再加上activesheet.name
08/26 16:40, 4F

08/26 16:41, 5年前 , 5F
為"工作表1"
08/26 16:41, 5F
文章代碼(AID): #1RWbd-aP (Office)