|
まさっぴ さん、おはようございます。
>コマンドボタン1.を押す→測定スタートさせる
>コマンドボタン2.を押す→測定の時間を表示させる
>
>コマンドボタン1.を押す→測定を再開させる
>コマンドボタン2.を押す→測定の時間を表示させる
Timerではなくて、Nowで現在時刻を取得して差をとってみました。
UserForm1に、CommandButton1とCommandButton2を配置し、以下をすべて記述。
'/////////////////////////
Dim s1 As Double
Dim t1 As Double
Dim s2 As Double
Private Sub CommandButton1_Click()
t1 = Now()
CommandButton2.Enabled = True
CommandButton1.Enabled = False
End Sub
'/////////////////////////
Private Sub CommandButton2_Click()
s2 = t1 - Now()
s1 = s1 + s2
'
CommandButton1.Caption = "再開"
CommandButton1.Enabled = True
CommandButton2.Enabled = False
'Result
MsgBox "今回" & Format(s2, "[h]:nn:ss") & vbCrLf & _
"累計" & Format(s1, "[h]:nn:ss"), vbInformation
End Sub
'/////////////////////////
Private Sub UserForm_Activate()
CommandButton1.Caption = "開始"
CommandButton2.Caption = "停止"
CommandButton1.Enabled = True
CommandButton2.Enabled = False
s1 = 0 '初期化
End Sub
'/////////////////////////
こんな感じです。
|
|