LoginSignup
1

More than 3 years have passed since last update.

VBA簡易スクリプト作成時のテンプレート

Last updated at Posted at 2019-07-26

自分用メモなので記載が少ないのは悪しからず

Public Sub Exec()
    Call DoInitialize
    Call DoExecute
    Call DoFinalize
End Sub

'メイン処理
Private Sub DoExecute()
End Sub

' 初期処理
Private Sub DoInitialize()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Application.StatusBar = ""
End Sub

' 終了処理
Private Sub DoFinalize()
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    Application.StatusBar = ""
End Sub

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
1