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

[paces (幸福從來就不屬於惡魔的~)]

軟體: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
→ soyoso:有檔案可以提供嗎?
※ 編輯: paces (220.132.91.244), 05/30/2014 01:06:24
→ paces:so大，檔案已附上，想另外請教其中有一段.Value = .Value
→ paces:是為了讓它全部轉值，但處理起來速度很慢，不知可否建議更好
→ paces:的寫法，加快執行速度
→ soyoso:http://goo.gl/FWWcB4 試試
→ soyoso:加快執行速度可試試 Application.ScreenUpdating=false
→ soyoso:Application.Calculation = xlCalculationManual
→ soyoso:最後再改為true和xlCalculationAutomatic
請問SO大，是否只要將您在this workbook的語法放上就會出現在增益集中，還需要設定
什麼步驟嗎？才會即使是新增的工作表也能一併套用？另外，您加快達行速度的語法我不
太了解是放在那段中，再請提示，謝謝！
※ 編輯: paces (220.132.91.244), 05/31/2014 17:01:21
→ soyoso:放入workbook_open就可以；留意OnAction對應
→ soyoso:測試上只要執行一次後，增益集的自訂工具列會保留，下次重
→ soyoso:啟時因沒有刪除下還會存在，也可以於新增工作表套用
→ soyoso:也可將這個檔案另存為增益集的格式xla,xlam來掛載
→ soyoso:有關screenupdating和calculation放在，以這個檔案來說
→ soyoso:就是放在sub 剖析刪空()...end sub內