Excel VBA質問箱 IV

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

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


25381 / 76732 ←次へ | 前へ→

【56692】Re:時間表示についてお願いします。
お礼  マクロ  - 08/6/30(月) 18:51 -

引用なし
パスワード
   ▼kanabun さん:
>▼マクロ さん:
>>--------------------------------------------------------
>>TextBox76にTextBox77とTextBox78の累計時間を表示しようとしましたが
>>累計されず、TextBox77かTextBox78のどちらかの時間しか表示されません。
>
>TextBox76 とか TextBox77 とか、言われても、こちらには、それが
>どの時刻を表示するテキストボックスなのか分かりません。
>そのユーザーフォームの コントロールの配置状況と、
>テキストボックスとCommandButtonの関係を示してもらえれば、
>もう少しは想像もできるかもしれませんが (-_-;
>
>
>>もっともシンプルな方法を指導願います。
>
>いずれにしても、テキストボックスに 時刻だけ表示してしまうと、
>測定開始時と 測定終了時とで 日付が変更になっているとき、正しく
>計算されません。「時刻」だけなので。
>なので、
>t1,t2,... t5,t6 のDate型の変数に 日付の情報付きで 「日時」を
>覚えさせておく方法を提案したわけです。
>  t1 = Now()
>  〜
>  t6 = Now()
>
>そこら辺の配慮をくみ取っていただかないと、いつまでたっても、
>堂々巡りですよ。

仕事上、返信できなくてすいません。
土日で考えたのですが、構文は
『時間の集計について』(ExVBAかじりはじめ)フォーム上で時間の集計をしたいのですが、構文は以下の通りです。
-----------------------------------------------------------------------
Private Sub CommandButton46_Click() TextBox49 = Format$(Now(), "hh:nn") End Sub
-----------------------------------------------------------------------
Private Sub CommandButton47_Click() Dim t1 As Double Dim t2 As Double


 TextBox50.Text = Format$(Now(), "hh:nn")
 t1 = TimeValue(TextBox49.Text)
 t2 = TimeValue(TextBox50.Text)
 TextBox78.Text = Format$(t2 - t1, "hh:nn")

 TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn")
End Sub
-----------------------------------------------------------------------
Private Sub CommandButton48_Click() TextBox53 = Format$(Now(), "hh:nn") End Sub
-----------------------------------------------------------------------
Private Sub CommandButton49_Click()

Dim t3 As Double Dim t4 As Double


 TextBox54.Text = Format$(Now(), "hh:nn")
 t3 = TimeValue(TextBox53.Text)
 t4 = TimeValue(TextBox54.Text)
 TextBox77.Text = Format$(t4 - t3, "hh:nn")
 TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn")
End Sub
----------------------------------------------------------------------
のようになります。各CommandButtonは時間表示を

また各TextBoxは

TextBox49:開始時間 TextBox50:終了時間 TextBox78=50-49:小計時間

TextBox53:開始時間 TextBox54:終了時間 TextBox77=54-53:小計時間

TextBox76:累積時間(TextBox78+TextBox77)

以上の様になるのですが、小計時間は表示OKなのですが、累積時間(TextBox78+TextBox77)がうまく足されません。 TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn") のようにしてみましたが、うまく足されません。何回もすいませんが、お知恵をお願いいたします。

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 お礼

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