Excel VBA解读(102):处理屏幕刷新——ScreenUpdating属性( 五 )

        For i = 1 To 10000

            .Calculate

        Next i

        tEnd = Time

        tScreenOff = (tEnd - tStart) * 24 * 60* 60

        .ScreenUpdating = True

        tStart = Time

        For i = 1 To 10000

            .Calculate

        Next i

        tEnd = Time