忍者ブログ
情報処理試験など、理系の試験対策、関連知識、日記などです

VBA 実行時間を測る

1. 考え方

Timer を使います。

2.サンプル


Sub MySub()
 
 Dim l As Long

  Start = Timer

  For l = 1 To 10000000
    l = l + 1
  Next l
 
  Debug.Print Timer - Start

End Sub

3.実行結果

For ループの時間が、秒で表示されます。



PR

VBA Debug.Assert

1. 文法

Debug.Assert ブール式

で、ブール式がFalseの場合だけ、

処理が中断され、そこで、止まります。

2.サンプル

Sub MySub()
 
 Dim l As Long
 
 For l = 0 To 10
 
   Debug.Print l
   Debug.Assert l = 0

 Next l
    
End Sub

3.実行結果

イミーディエイトウインドウに、

0
1

と表示された後に、処理が止まります。