VBA 計算したシリアル値をh"時間"mm"分"で表記したい

VBAで計算したシリアル値を時間と分で表記したいのですが、うまくいきません。
計算したシリアル値が1.7291666~だったので41時間～分というように表記したいのですが、17時間30分となってしまいます。
以下はVBAの一部で、下のMsgBoxでは、シリアル値が1.7291666～と出力されます。

Time_SUMはLong型です。

wb.Sheets(1).Cells(3, 3).Value = Time_SUM / 1440

MsgBox "シリアル値" & wb.Sheets(1).Cells(3, 3).Value

記入するシートの書式設定は、ユーザー定義で「h"時間"mm"分"」としています。
何が原因か詳しい方教えていただけないでしょうか。

No.1 ベストアンサー 回答者： 銀鱗 回答日時： 2019/11/07 09:04

ん？

そもそも質問者さんは「セルの書式設定」の「ユーザー書式」でその表記ができないのでしょうか。

24時間を超えた分を ”日” とせず、”時間” で表記するには、
　h:mm
これを
　[h]:mm
とすればいい。
こんだけのことです。

ユーザー書式をVBAで設定するか、予め対象のセルに対して設定しておきましょう。

No.2 回答者： fujillin 回答日時： 2019/11/07 09:18

こんにちは

シリアル値は、一般的に日付の値も含んでいます。
表示書式を「h"時間"mm"分"」のようにした場合は、通常表示の時刻（日付の部分を除いて、0～24時）を示します。
ですので、41時間＝1日+17時間なので、表示は17時間となります。

これを41時間のように表示させ長ければ、表示書式を「[h]"時間"mm"分"」とすれば宜しいかと。
https://support.office.com/ja-jp/article/%E8%A1% …

この回答へのお礼

ありがとうございます。[]で囲む方法を初めて知りました。

お礼日時：2019/11/07 09:31