【Excel-VBA】VBAで簡単なツールを作るときに定型文的なメモ

Sub test()
Dim sh01 As Worksheet
Set sh01 = Worksheets(“シート名”)
Application.Calculation = xlCalculationManual ‘自動計算停止
Application.ScreenUpdating = False ‘画面描画停止
Application.DisplayAlerts = False ‘ディスプレイアラート停止
‘————————————————————————-
row01 = sh01.Cells(Rows.Count, 2).End(xlUp).Row ‘最終行
chk = Cells(row01, 1).Value

’———ここにプログラムを記入


Application.Calculation = xlCalculationAutomatic ‘自動計算開始
Application.ScreenUpdating = True ‘画面描画再開
  Application.DisplayAlerts = True ‘ディスプレイアラート再開
End Sub

コメントを残す

メールアドレスが公開されることはありません。