Excel VBA質問箱 IV

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

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


26321 / 76732 ←次へ | 前へ→

【55742】Re:時間測定表示の文法
回答  りん E-MAIL  - 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
'/////////////////////////
こんな感じです。

0 hits

【55739】時間測定表示の文法 まさっぴ 08/5/18(日) 1:02 質問
【55742】Re:時間測定表示の文法 りん 08/5/18(日) 7:18 回答
【55877】Re:時間測定表示の文法 まさっぴ 08/5/21(水) 18:07 質問
【55827】Re:時間測定表示の文法 まさっぴ 08/5/20(火) 18:09 お礼
【55894】Re:時間測定表示の文法 まさっぴ 08/5/22(木) 14:50 質問
【55905】Re:時間測定表示の文法 りん 08/5/23(金) 3:56 発言

26321 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free