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
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 Sub3.実行結果
イミーディエイトウインドウに、
0
1
と表示された後に、処理が止まります。
1. サンプル
Sub MySub()
Workbooks.Open Filename:="c:\tmp\temp.xlsx"
''-- Filename:=を省略して、
''-- Workbooks.Open "c:\tmp\temp.xlsx"
''-- も可能
End Sub
2.実行結果
temp.xlsxが開きます。
1.サンプル
Option Explicit
'------------------
'--- 2つの引数の和を返す関数
'------------------
Function Myadd(a, b)
Myadd = a + b
End Function
'---
'--- 関数を呼び出す側
'---
Sub Macro2()
Debug.Print (Myadd(2, 3))
End Sub
2.実行結果
5
が表示されます。
1. サンプル
Sub MySub()
Dim i As Integer
i = 0
Do While i < 10
i = i + 1
Debug.Print i
Loop
End Sub
2.実行結果
1
2
3
4
5
6
7
8
9
10
