たった4行でExcelマクロを劇的に早くする方法
はじめに
まったく本業ではありませんが、Excelのマクロを書く機会がありました。
とりあえず以下の4行を入れると処理に影響なく早くできたので共有します。
再描画を止める
Application.ScreenUpdating = False
イベントを止める
Application.EnableEvents = False
カーソルを砂時計にする
Application.Cursor = xlWait
アラートを止める
Application.DisplayAlerts = False
サンプル
Sub sampleSub()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Cursor = xlWait
MsgBox "処理を開始します"
Application.DisplayAlerts = False
Call 呼びたい関数
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Cursor = xlDefault
MsgBox "処理を終了します"
End Sub
その他
Application.ScreenUpdating = False
Application.EnableEvents = False
カーソルを砂時計にする
Application.Cursor = xlWait
アラートを止める
Application.DisplayAlerts = False
サンプル
Sub sampleSub()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Cursor = xlWait
MsgBox "処理を開始します"
Application.DisplayAlerts = False
Call 呼びたい関数
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Cursor = xlDefault
MsgBox "処理を終了します"
End Sub
その他
Application.Cursor = xlWait
Application.DisplayAlerts = False
サンプル
Sub sampleSub()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Cursor = xlWait
MsgBox "処理を開始します"
Application.DisplayAlerts = False
Call 呼びたい関数
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Cursor = xlDefault
MsgBox "処理を終了します"
End Sub
その他
Sub sampleSub()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Cursor = xlWait
MsgBox "処理を開始します"
Application.DisplayAlerts = False
Call 呼びたい関数
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Cursor = xlDefault
MsgBox "処理を終了します"
End Sub
基本的にカラム(セル)の挿入や削除は処理が重いので、セルのコピーや貼り付けなどで頑張った方がいいです。
Author And Source
この問題について(たった4行でExcelマクロを劇的に早くする方法), 我々は、より多くの情報をここで見つけました https://qiita.com/sugurutakahashi12345/items/da057c3652a745ac65d9著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .