|
▼マクロ さん:
>▼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
|
|