Excel VBA質問箱 IV

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

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


25430 / 76732 ←次へ | 前へ→

【56642】Re:時間表示についてお願いします。
発言  kanabun  - 08/6/26(木) 16:55 -

引用なし
パスワード
   ▼マクロ さん:
>▼kanabun さん:ありがとうございます。
>
>以下のように構文を設定しましたが、エラーが出ます。
>どこを直せばいいでしょうか?ご指導お願いします。

エラーの時は、どの行で、どういう内容のエラーメッセージが出るのか
教えてください。

CommandButton1 がClick されたとき、変数 t1に Now()時刻を、
CommandButton2 がClick されたとき、変数 t2に Now()時刻を
セットしていましたが、そのほかの「Start」「Stop」ボタンClick時の動作も
同じようにしてみましょう。

CommandButton3 がClick されたとき、変数 t3に Now()時刻を、
CommandButton4 がClick されたとき、変数 t4に Now()時刻を
CommandButton5 がClick されたとき、変数 t5に Now()時刻を、
CommandButton6 がClick されたとき、変数 t6に Now()時刻を
それぞれ格納しておいて、
TextBox10 のトータル時間の表示は これらの合計値とします。
何箇所かで使うので、↓のようにサブプロシージャに独立させておきます。
> Private Sub ShowTotalTime()
>  TextBox10.Text = Format$(t2 - t1 + t4 - t3 + t6 - t5, "dd hh:n:ss")
> End Sub


'-------------------------------------------------------
Option Explicit
Private t1 As Date
Private t2 As Date
Private t3 As Date
Private t4 As Date
Private t5 As Date
Private t6 As Date
Private Const fmt = "h:nn"  '"h:nn:ss"

Private Sub UserForm_Initialize()
 '変数 t1〜t6 を初期化しておきます
 t1 = Now()
 t2 = t1
 t3 = t1
 t4 = t1
 t5 = t1
 t6 = t1
End Sub

Private Sub ShowTotalTime()
 TextBox10.Text = Format$(t2 - t1 + t4 - t3 + t6 - t5, "dd hh:n:ss")
End Sub

Private Sub CommandButton1_Click()
 t1 = Now()
 TextBox1.Text = Format$(t1, fmt)
End Sub

Private Sub CommandButton2_Click()
 t2 = Now()
 TextBox2.Text = Format$(t2, fmt)
 TextBox3.Text = Format$(t2 - t1, fmt)
 ShowTotalTime
End Sub

Private Sub CommandButton3_Click()
 t3 = Now()
 TextBox4.Text = Format$(t3, fmt)
End Sub

Private Sub CommandButton4_Click()
 t4 = Now()
 TextBox5.Text = Format$(t4, fmt)
 TextBox6.Text = Format$(t4 - t3, fmt)
 ShowTotalTime
End Sub


Private Sub CommandButton5_Click()
 t5 = Now()
 TextBox7.Text = Format$(t5, fmt)
End Sub

Private Sub CommandButton6_Click()
 t6 = Now()
 TextBox8.Text = Format$(t6, fmt)
 TextBox9.Text = Format$(t6 - t5, fmt)
 ShowTotalTime
End Sub

0 hits

【56630】時間表示についてお願いします。 マクロ 08/6/25(水) 23:40 質問
【56631】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 0:14 発言
【56632】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 0:25 お礼
【56633】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 8:31 発言
【56635】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 13:51 質問
【56638】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 14:55 発言
【56640】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 16:04 質問
【56642】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 16:55 発言
【56644】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 17:26 発言
【56646】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 18:44 質問
【56647】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 19:07 発言
【56692】Re:時間表示についてお願いします。 マクロ 08/6/30(月) 18:51 お礼
【56696】Re:時間表示についてお願いします。 kanabun 08/6/30(月) 23:08 発言
【56724】Re:時間表示についてお願いします。 マクロ 08/7/2(水) 10:10 質問
【56729】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 11:26 発言
【56733】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 13:54 発言
【56734】Re:時間表示についてお願いします。 VBAでメール 08/7/2(水) 13:57 質問
【56736】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 15:08 回答
【56775】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 10:16 質問
【56776】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 10:45 発言
【56777】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 10:50 発言
【56781】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 14:32 質問
【56782】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 14:46 発言
【56784】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 15:16 質問
【56787】Re:時間表示についてお願いします。 放置新聞 08/7/4(金) 15:40 発言
【56788】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 15:48 発言
【56810】Re:時間表示についてお願いします。 マクロ 08/7/6(日) 20:22 お礼
【56826】Re:時間表示についてお願いします。 VBA勉強中です 08/7/7(月) 17:19 質問
【56830】Re:時間表示についてお願いします。 kanabun 08/7/7(月) 18:16 発言
【56831】Re:時間表示についてお願いします。 VBA勉強中です 08/7/7(月) 18:47 お礼
【56832】Re:時間表示についてお願いします。 kanabun 08/7/7(月) 18:52 発言
【56898】Re:時間表示についてお願いします。 マクロ 08/7/10(木) 10:15 質問
【56912】Re:時間表示についてお願いします。 kanabun 08/7/10(木) 14:40 発言
【56922】Re:時間表示についてお願いします。 マクロ 08/7/10(木) 19:34 お礼

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