[算表] vba應用於所有的工作表

看板Office作者 (幸福從來就不屬於惡魔的~)時間11年前 (2014/05/29 00:00), 11年前編輯推噓0(0推 0噓 14→)
留言14則, 2人參與, 最新討論串1/1
軟體:Excel 版本:2007 有一段vba程式想把它套用在所以已開啓的工作表中， 所以我在上方自訂工具列新增一按鈕連結此vba， 但只有在此工作表上能作用而已， vba模塊已有Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 安全性設定亦已開啟所有巨集， 請問還有哪裡設定有誤？才無法套用在所有的工作表中？ 檔案：http://goo.gl/w4wr03 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.132.91.244 ※ 文章網址: http://www.ptt.cc/bbs/Office/M.1401292837.A.2BC.html
→
05/29 00:57, , 1F
有檔案可以提供嗎?
05/29 00:57, 1F
※ 編輯: paces (220.132.91.244), 05/30/2014 01:06:24
→
05/30 01:08, , 2F
so大，檔案已附上，想另外請教其中有一段.Value = .Value
05/30 01:08, 2F
→
05/30 01:09, , 3F
是為了讓它全部轉值，但處理起來速度很慢，不知可否建議更好
05/30 01:09, 3F
→
05/30 01:10, , 4F
的寫法，加快執行速度
05/30 01:10, 4F
→
05/30 12:20, , 5F
05/30 12:20, 5F
→
05/30 12:27, , 6F
加快執行速度可試試 Application.ScreenUpdating=false
05/30 12:27, 6F
→
05/30 12:27, , 7F
Application.Calculation = xlCalculationManual
05/30 12:27, 7F
→
05/30 12:28, , 8F
最後再改為true和xlCalculationAutomatic
05/30 12:28, 8F
請問SO大，是否只要將您在this workbook的語法放上就會出現在增益集中，還需要設定 什麼步驟嗎？才會即使是新增的工作表也能一併套用？另外，您加快達行速度的語法我不 太了解是放在那段中，再請提示，謝謝！ ※ 編輯: paces (220.132.91.244), 05/31/2014 17:01:21
→
05/31 20:52, , 9F
放入workbook_open就可以；留意OnAction對應
05/31 20:52, 9F
→
05/31 20:54, , 10F
測試上只要執行一次後，增益集的自訂工具列會保留，下次重
05/31 20:54, 10F
→
05/31 20:55, , 11F
啟時因沒有刪除下還會存在，也可以於新增工作表套用
05/31 20:55, 11F
→
05/31 20:56, , 12F
也可將這個檔案另存為增益集的格式xla,xlam來掛載
05/31 20:56, 12F
→
05/31 20:57, , 13F
有關screenupdating和calculation放在，以這個檔案來說
05/31 20:57, 13F
→
05/31 20:58, , 14F
就是放在sub 剖析刪空()...end sub內
05/31 20:58, 14F
‣ 更多 paces 的文章
文章代碼(AID): #1JXWWbAy (Office)