VBAで○○：○○と表示させたいのに小数で0.53125のように表示さ

質問

VBAで○○：○○と表示させたいのに小数で0.53125のように表示されてします。

初心者です。

E101から下に時刻
F101から下に時間（1時間は１、1時間半は１．５）が記入されています。

ユーザーフォームを作成しており、Initialize()に
E101とF101を足した時間（１２：００+１なら１３：００）を
「txt退出時間」に表示させたいと思っていますが、
数値では求められるものの○○：○○となりません。

Private Sub UserForm_Initialize()
Dim 行 As Long
Dim 退出時間 As Variant

txt日付 = Worksheets("○○").Range("B1")
txt番号 = Worksheets("○○").Range("U98")

Worksheets("○○").Select

行 = txt番号 + 100
退出時間 = Cells(行, 5) + Cells(行, 6) / 24

txt利用時間 = Cells(行, 6).Value
txt入室時間 = Cells(行, 5).Text
txt退出時間 = 退出時間’ここが上手くいきません

txt打込時間 = Cells(行, 17).Text

Call リスト更新

End Sub

Initializeでは無いのでしょうか？右も左も分かりません。
分かる方宜しくお願い致します。

回答No.1

Wendy02 · ベストアンサー

退出時間　これは、単なる数値ですから、時間値をテキストに替えてあげればよいわけです。

txt退出時間.Text = Format$(退出時間, "hh:mm")

TextやValueのプロパティは、出来る限り付けておいたほうが良いです。

お礼

完璧です。

textやValueに関してもアドバイスありがとうございました。

回答No.2

KURUMITO

退出時間 = Cells(行, 5) + Cells(行, 6) / 24
の式を次のようにしてはどうでしょう。

退出時間 = Cells(行, 5) + TimeSerial(0, Cells(行, 6) * 60, 0)

txt退出時間.Text=Format$(退出時間,"[h]:mm")

お礼

ありがとうございました。

補足

ありがとうございました。
１２：４５：００となってしまいましたが、勉強になりました。