Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26321 / 76732

←次へ　｜　前へ→


	【55742】Re:時間測定表示の文法

りん

- 08/5/18(日) 7:18 -


	引用なし

	パスワード

まさっぴさん、おはようございます。
>コマンドボタン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
'/////////////////////////
こんな感じです。

2 hits

▼

【55739】時間測定表示の文法 まさっぴ 08/5/18(日) 1:02