【VBA】ひな形(高速化対応)

スポンサーリンク
プログラミング

VBAのひな形を作成しました。

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

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

‘=============ここから処理=========================

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

‘=============ここまで処理=========================

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

暇な時間にU-NEXT

今なら無料1ヶ月無料トライアル600円分の有料コンテンツを使えるチャンス!

見放題作品が31日間無料で視聴可能最新作はレンタル配信!

600円分のポイントプレゼント!DVD・ブルーレイよりも先行配信の最新作、放送中ドラマの視聴や最新コミックの購入に使用可能

 

追加料金なく、80誌以上の雑誌が読み放題

プログラミング
スポンサーリンク
uediveをフォローする
SEの休日

コメント

タイトルとURLをコピーしました