VBA 時間の足し算

質問

windowsは7、Excelは2013を使用しています。
下記のマクロで、Q列のキーワードを基に、
Q列＝H列の時に、C列の時間(表記は、1:00:00)をnに格納していき、
時間の合計を、S列に入る様にしていますが、
C列の値が、0:30:00や0:15:00などの場合、
Ｓ列に入る値が　0.291666666666667　とかに小数点以下の値になってしまいます。
例えば、1:00:00+0:30:00+0:45:00＝2:15という値が帰ってくるようにするにはどうしらいいのか教えて下さい。
あと、もし合計が24以上になった場合、25や26などの値になる様にもしたいです。
よろしくお願い致します。
--------------------------------------
Sub test()

Dim h As Integer
Dim q As Integer
Dim n As Variant
Dim maxRow As Integer
maxRow = Range("A65536").End(xlUp).Row

For q = 2 To 10
n = 0
For h = 2 To maxRow
If Cells(q, 17) = Cells(h, 8) Then
n = n + Cells(h, 3).Value
End If
Next h
Cells(q, 19).Value = n
Next q

回答No.4

mt2015 · ベストアンサー

ANo.3です。

> 先にセルの表示書式をユーザー定義で　[h]:mmにして、
> マクロで計算となると思うのですが、
> マクロ内で一緒に出来る方法はないかともう少し勉強してみます。

Cells(q, 19).Value = n　の前に↓で良いですよ。
Cells(q, 19).NumberFormatLocal = "[h]:mm"

お礼

mt2015様
ご回答ありがとうございます。
出来ました！
詳しくご教授下さり、本当にありがとうございました。

回答No.3

mt2015

時間の足し算の結果が少数になるのは当然です。
時間のシリアル値は1日24時間を1とした少数で、質問文にあった0.291666666666667　は、7:00になります。

コードはそのままで良いですので、合計値を貼り付けるセルの表示書式をユーザー定義で　[h]:mm　としてみてください。
24時間を過ぎても24:01の様に表示できます。

お礼

mt2015様
ご回答ありがとうございます。
>時間のシリアル値は1日24時間を1とした少数
は知らなかったので、勉強になりました。

先にセルの表示書式をユーザー定義で　[h]:mmにして、
マクロで計算となると思うのですが、
マクロ内で一緒に出来る方法はないかともう少し勉強してみます。

回答No.2

FEX2053

単純に「セルの書式設定」を「ユーザー定義」にして

[h]:mm:ss

にすれば済む・・・って話なんじゃないですか？

お礼

FEX2053様
ご回答ありがとうございます。

出来ればマクロで処理したいと思っていて、
マクロでは[h]が使えない様なので、
もう少し考えてみます。

回答No.1

noname#232800

私の場合は、分単位、1:45なら　105　にして計算。
全体を　Format　で戻して居ます。

お礼

gobou_poo様
ご回答ありがとうございます。

分に分単位することは、思いつきませんでした！
もし、いまので方向で出来ない様でしたら、
分単位にする方法調べてみます。