'計測開始
Dim myspeed As Double
Dim starttime As Double
starttime = Timer
'---------------------------
'計測終了
myspeed = Timer - starttime
Debug.Print "処理時間:" & myspeed & "秒"
'---------------------------
'計測開始
Dim myspeed As Double
Dim starttime As Double
starttime = Timer
'---------------------------
'計測終了
myspeed = Timer - starttime
Debug.Print "処理時間:" & myspeed & "秒"
'---------------------------
通知
コメント