|
▼マクロ さん:
全文引用は無駄です。それよりも、あなたがいまどんなコードを書いているかを
提示してください。そちらのほうが、価値があります。
今現在、3つのグループの時間計測ボタンがあって、
1番目と2番目のCommandButton や TextBox の名前は分かっていますが、
> 【Button46】Now → t1 → [TextBox49]
> 【Button47】Now → t2 → [TextBox50]
> (t2 - t1) →[TextBox78]
> [TextBox76] ←(t2 - t1) + (t4 - t3) + (t6 - t5)
>
> 【Button48】Now → t3 → [TextBox53]
> 【Button49】Now → t4 → [TextBox54]
> (t4- t3) → [TextBox77]
> [TextBox76] ←(t2 - t1) + (t4 - t3) + (t6 - t5)
▼3番目のグループ
> TextBox76が累計時間
TextBox76 に対応するCommandButtonの名前やTextBoxの名前について
情報がありません。
レスされるときは、そのような、こちらからは見えないUserFormのコントロール
の名前を、掲示板を読む人たちが分かるように配慮してください。
> TextBox82には未入力時にワークシートに飛ばすと、00:00とワークシート上
> に表示されてしまいます。00:00と表示しないようにするには何か構文を足
> せばよいのでしょうか・・?
If文で条件分岐してください
そのCommandButton_Click() イベントに
'----------------------------
Dim ss As String
'TextBox82 のテキストをチェック
ss = TextBox82.Text
If ss <> "00:00" Then Worksheets(2).Range("C12").Value = ss
と書くか、もうすこし、詳しく
'----------------------------
Dim ss As String
'TextBox82 のテキストをチェック
ss = TextBox82.Text
If IsDate(ss) Then
If TimeValue(ss) > 0 Then
Worksheets(2).Range("C13").Value = ss
End If
End If
のようにしておけばいいのではないですか?
その他の小計用のテキストボックスも同様です。
★ 転記先のワークシート名とセルは 修正してください。
|
|