画面更新停止

 いろんなサイトで紹介されている最もポピュラーな方法です。以下のサンプルプログラムのようにシートを切替えてコピーして貼り付けるといった、画面更新をともなうようなプログラムで有効です。メイン処理の前で画面更新を停止。メイン処理終了後、画面更新を再開します。前後にコードを一行ずつ追加するだけでメイン処理の量によっては体感できるくらい高速化します。

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

簡単ですので、ぜひお試しください。

個別指導IT塾
ロボットプログラミング教室
オンライン英会話
PC修理・トラブル対応・カスタム
PC販売・中古PC販売・不要PC回収
インターネット回線・セキュリティ