エクセルによる時間の集計表示について

質問

エクセルによる時間外の残業計算について、
　合計表示がうまく表示しません。
　毎日の勤務日報の残業時間を1:15とか
　00:30とか入力したあとで、Σにより
　時間表示に設定して集計をすると、
　24時間30分の場合、0:30と表示→24:30に表示したい
　28時間30分の場合、4:30と表示→28:30に表示したい
　どうしたら表示なるか誰か教えて下さい。

回答No.2

yukz8sss · ベストアンサー

セルの書式設定の表示形式が　　h:mm　になっていると思います。
これを　　　　　　　　　　　[h]:mm としてみてください。

お礼

書式設定→「ユーザー定義」から選択して
「h.mm」を選び[h]として設定したら出来ました!!!
バンザーイ☆☆☆
　ありがとうございました。
　月曜日、相手方の顧客にデータ作成のうえ
　送ることが出来ます。
yukz8sss様　大変　お世話になりました。
　心より　御礼申し上げます。

回答No.1

noname#140971

エクセルは操作したこともない門外漢ですので参考程度に・・・。
（もちろん、プログラマでもない素人ですので参考程度に！）

で、AccessとExcelとに共通するやり方ってのを考えてみました。
Excel以外のVBAで書かれることがあれば参考になるかもです。

[イミディエイト]
? XTime(XDate("23:15") + XDate("12:00"))
35:15

23:15　<--- A1
12:00　<--- A2
35:15　<--- =XTime(SUM(A1:A2))

次のXTime関数、XDate関数を標準モジュールに登録すると、上記の計算が可能になります。

Public Function XTime(ByVal dteHiduke As Date) As String
Dim dteYYYYMMDD As Date
Dim HH As Integer

dteYYYYMMDD = CDate(Format(dteHiduke, "yyyy/mm/dd"))
HH = Left$(Format(dteHiduke, "hh:mm:ss"), 2) + DateDiff("d", "1899/12/30", dteYYYYMMDD) * 24
XTime = Trim(Str(HH)) & Right$(Format(dteHiduke, "hh:mm"), 3)
End Function

Public Function XDate(ByVal strHHMM As String) As Date
XDate = CDate(Format(DateAdd("d", Left$(strHHMM, 2) \ 24, "1899/12/30"), "yyyy/mm/dd ") & _
Format(Left$(strHHMM, 2) Mod 24, "00") & Right$(strHHMM, 3))
End Function

※多分、エクセルの既定の関数でも同じことは可能かも・・・。

お礼

多くのアクセスによる設定を考えて
いただき有難うございました。
　ただ、私にはすこし難かしすぎます。
　もうお一人のアドバイスを
参考にさせていただきました。
　貴重な時間を使ってチエをしぼって
いただき　ありがとうございました。
アクセスは昨年１０月から使い始めており、
まだ十分には使いきれていません。
　本当に　大変　ありがとうございました。
このメールは大事に保存し参考とさせていただきます。