|
ユーザーフォームには
Combobox1
Textbox1
Textbox2
Textbox3
Textbox4
Textbox5
があります
Endrow = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
For R = 1 To Endrow
ComboBox1.AddItem Worksheets(1).Cells(R, 2)
Next R
にてシート1の一覧をCombobox1から選べるようにしました
Textbo1に日付をyyyy/mm/dd
Textbo2に時刻をhh:mm(24時間表記)
と手入力し
Combobox1を選択した際に
Textbox3に同じRowのCの値を
Textbox4に同じRowのDの値を
反映させ
Textbox5にTextbox1とTextbox2とTextbox4の
合計された日付と時間が出るようにしたく思います
例えば
Textbox1に2011/5/20
Textbox2に16:50
と入力し
Combobox1にすずきを選んだ場合
Textbox3に21
Textbox4に12:00と表示され
Textbox4に2011/5/21 4:50と表示されるようにしたいのですが
まずTextbox3,4の反映がわからないのと
5の時間計算で
16:5012:00と出てしまいました
どのようにしたらよいのでしょうか?
やり方としてシートへの書き込みをせずにやるやり方を求めています
宜しくお願い致します
表は以下のとおりです
A|B |C |D |
1|すずき|21|12:00|
2|さとう|22| 8:00|
3|やまだ|35| 2:19|
4|たなか|55| 3:52|
5|まえだ|12|19:20|
6|やもと|11|56:23|
|
|