Dim Startfrg As Boolean 'startスイッチのような役割
Dim Stopfrg As Boolean 'stopスイッチのような役割
Sub sample()
Dim btTimer As Double
If Startfrg = True Then 'startスイッチがオンの時に実行した場合
Stopfrg = True 'stopスイッチがオンになる
Exit Sub
End If
Startfrg = True 'startスイッチオン
Stopfrg = False 'stopスイッチオフ
btTimer = Timer
Do Until Stopfrg = True 'stopスイッチがON以外の時はループしてタイマーを動かす。
DoEvents
Label1.Caption = Format(Int((Timer - btTimer) * 100) / 100, "0.00")
Loop
Startfrg = False
Stopfrg = False
End Sub
Private Sub CommandButton1_Click()
Call sample '上のコードを呼び出す。
End Sub
コメントを残す