テンプレート
Sub 印刷用()
’目的のコードが正常に動作することを確認したらすぐ下の行を非コメントブロック
'Application.ScreenUpdating = False
Dim a, b As Double
Application.DisplayAlerts = False
a = Timer
'目的のコードを開始
'目的のコードを終了
b = Timer
Debug.Print b - a
End Sub
We'll deliver articles that match you.
You can read useful information later.
Go to list of users who liked
More than 5 years have passed since last update.
Sub 印刷用()
’目的のコードが正常に動作することを確認したらすぐ下の行を非コメントブロック
'Application.ScreenUpdating = False
Dim a, b As Double
Application.DisplayAlerts = False
a = Timer
'目的のコードを開始
'目的のコードを終了
b = Timer
Debug.Print b - a
End Sub
Register as a new user and use Qiita more conveniently
Go to list of users who liked