iT邦幫忙

DAY 10
1

Excel VBA 的眉眉角角系列 第 10

Excel VBA 的眉眉角角Day10: 如何加速程式執行?

當一程式有太多的畫面變更時,適時的將畫面關閉更新,將有助於程式效率的提昇,由於免除掉程式執行時的畫面,只帶出最後結果畫面,將節省不少時間。各位可試著執行看看,兩個程式執行後的時間差異。

Sub Day10_1()
    '未關閉畫面更新
    Sheets("Day10").Select
    Cells.Clear
    For i = 1 To 1000
        Range("A" & i).Select
        Range("A" & i) = i * i
    Next i
End Sub






Sub Day10_2()
    '關閉畫面更新
    Sheets("Day10").Select
    Cells.Clear
    Application.ScreenUpdating = False
        For i = 1 To 1000
            Range("A" & i).Select
            Range("A" & i) = i * i
        Next i
    Application.ScreenUpdating = True
End Sub

各位可將程式複製到VBE裡面執行看看,在越舊、顯示卡越爛的電腦差異會越大

相同的,Day9的程式也可使用Application.ScreenUpdating方法來節省時間,有機會可試著改看看。


上一篇
Excel VBA 的眉眉角角Day9:刪除重複資料
下一篇
Excel VBA 的眉眉角角Day11:變更表單按鈕的文字項目
系列文
Excel VBA 的眉眉角角30

尚未有邦友留言

立即登入留言