目次
画面更新停止
いろんなサイトで紹介されている最もポピュラーな方法です。以下のサンプルプログラムのようにシートを切替えてコピーして貼り付けるといった、画面更新をともなうようなプログラムで有効です。メイン処理の前で画面更新を停止。メイン処理終了後、画面更新を再開します。前後にコードを一行ずつ追加するだけでメイン処理の量によっては体感できるくらい高速化します。
Sub 奇数月_初期化()
'画面更新停止
Application.ScreenUpdating = False
'メイン処理 ↓
Sheets("初期値").Select
Range("B2:F43").Select
Selection.Copy
Sheets("奇数月").Select
Range("F13:H54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'メイン処理 ↑
'画面更新再開
Application.ScreenUpdating = True
End Sub
簡単ですので、ぜひお試しください。