【VBA】ひな形（高速化対応）

ＶＢＡのひな形を作成しました。

ワークブックと１つのワークシートを変数に格納し自動計算のオフなどで高速化をできるようにしています。

また、処理完了後にメッセージを表示させるようにしています。

'=============ここから処理=========================

ここにプログラムを記載してください。

'=============ここまで処理=========================

Const MY_SHEET_NAME As String = "実行"

Sub Main()
    '高速化のための処理
    Call Init
    
    'ワークブック・ワークシートの変数宣言
    Dim wbk As Workbook
    Dim ws As Worksheet
    
    'ワークブックオブジェクトを変数に格納する
    Set wbk = ThisWorkbook
    
    'ワークシートオブジェクトを変数に格納する
    Set ws = wbk.Worksheets(MY_SHEET_NAME)
    
    '=============ここから処理=========================
    '「実行」シートの"A1"セルに値を入力する
    ws.Range("A1").Value = "Hello World!"
    
    
    '=============ここまで処理=========================
    '高速化のための後処理
    Call Done
    
    '処理が完了したことを伝える
    MsgBox ("処理が完了しました。")
End Sub

Sub Init()
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
End Sub

Sub Done()
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub