実況 Excel VBAセミナー５（画面描画停止）

これは知ってました。



描画させてると、画面がくるくる変わり面白いですけどね。

スピードアップには描画停止は必須です。



Sub Sample_2() '画面描画の停止



Application.ScreenUpdating = False



For i = 4 To 6



Worksheets(i & "月").Copy

ActiveWorkbook.SaveAs Filename:="C:¥Excel_work¥" & i & "月"

ActiveWorkbook.Close



Next i



Application.ScreenUpdating = True

End Sub