有幾個指令在程式自動化中,可以善加運用,好增進程式的運作效能及美觀。
Application.ScreenUpdating = False ' turn off the screen updating
Application.ScreenUpdating = True ' turn on the screen updating
ActiveWindow.FreezePanes = True
ActiveWindow.FreezePanes = False
Application.DisplayAlerts = False
Application.DisplayAlerts = True
之前【Excel VBA 的小技巧 - 02】文章提到,要在不同的活頁簿中切換,可用 Activate 來處理,好切換到指定名稱的活頁簿。
例如:
從現在使用中的活頁簿,切換到 Excel3 的 Sheet2
Workbooks("Excel3").Sheets("Sheet2").Activate
從現在使用中的活頁簿,切換到 Excel1 的 Sheet1
Workbooks("Excel1").Sheets("Sheet1").Activate
若是,切換不同活頁簿的過程中,沒有特別要切換到不同的工作表,那麽可以用 Windows().Activate 來簡化。
Windows(strExcelSource).Activate
沒有留言:
張貼留言