ｅｘｃｅｌでの時刻の表示形式

１つのセルに例えば、「0700」と入力したら→「07：00」と表示させるには
どのような書式設定をすればいいのでしょうか？
教えてください。

No.7 回答者： comv 回答日時： 2001/08/05 01:07

みなさんこんばんは！

hiさんの追記のご質問は
実際入力されている数値（表示だけは00:00形式）
での合計
A（実数）（表示のみ）
1 0200　→　02:00　
2 0300　→　03:00
3 0400　→　04:00

とのことですから、集計時にシリアル値に変換する
必要があると思います！

結果
　=SUM(TEXT(A1:A3,"0!:00")*1)
配列数式なので数式バーにカーソルがある状態で
[Ctrl]+[Shift]+[Enter]で確定

上手くいけば
数式バーの表示は
　{=SUM(TEXT(A1:A3,"0!:00")*1)}
となっている筈です。
シリアル値なので書式設定は時刻にして下さい！
（２４時間を超える場合はユーザー定義　[h]:mm）

No.6 回答者： HitomiKurose 回答日時： 2001/08/04 22:53

再びHitomiKuroseです。

強引に１つの式にしてみました。

=INT((A1+A2-INT(A1/100)*40-INT(A2/100)*40)/60)*100+MOD(A1+A2-INT(A1/100)*40-INT(A2/100)*40,60)

A1-INT(A1/100)*40でA1を分に直しています。A2も同様。
で、それを合計して、再び元の形式に戻してます。

表示形式は前述の00":"00にして下さい。

No.5 回答者： nishi6 回答日時： 2001/08/04 17:47

再度説明させてもらいます。

＞引数の部分がちょっとわからなかったので

ということなので・・・

SUM関数は、例えば、=SUM(A1:A10,B1:B10,DataTable,C1,15,100) のように、
範囲、A1:A10、B1:B10、DataTable、C1　の値と、実際の値、15、100　を加算すると書けます。

どうせ作るなら、SUMと同じにしようということで
　=SumTime(A1:A10,B1:B10,DataTable,C1,15,100)
とすれば、hi63さんの入力方法で色々な場所と固定値を時刻として加算できるようにしてあります。

No.4 回答者： nishi6 回答日時： 2001/08/04 17:32

(A1)02：00

(A2)03：00
(A3)05：00

と入力されていたら、(A4)に=SumTime(A1:A3)　とします。
(A4)の書式を(A3)と同じにすれば、10：00と表示されます。（実際は1000です）

時間、分を抜き出して、例えばB4、C4に書くとすれば
　時間は　(B4)=INT(A4/100)
　　分は　(C4)=MOD(A4,100)
となります。

別の列を補助計算に使ってもいいんですが、入力が増えるたびに補助の数式が必要なので、直接合計してしまう主旨で作りました。

No.3 回答者： nishi6 回答日時： 2001/08/04 15:38

SUM()の時分版のユーザー定義関数を作ってみました。

=SUM(範囲,範囲,値・・・) と同じように、=SumTime(範囲,範囲,値・・・)とします。
多分、SUM()と同じ機能です。範囲には範囲名も使えます。
合計時間と合計分を入力と同じ形式で返します。

標準モジュールに貼り付けます。
Public Function SumTime(rgTime As Range, ParamArray aryTime() As Variant)
　　Dim Union_rg As Range '集計するセル範囲
　　Dim rg As Range 'セル
　　Dim hour_T, minute_T As Long '時間の計、分の計
　　Dim ary As Integer '配列カウンタ

　　Application.Volatile
　　'SumTimeの指定値が範囲なら結合する。値なら集計する。
　　Set Union_rg = rgTime
　　For ary = 0 To UBound(aryTime())
　　　　If IsNumeric(aryTime(ary)) Then
　　　　　　'SumTimeに数値がセットされていた場合
　　　　　　hour_T = hour_T + Int(aryTime(ary) / 100)
　　　　　　minute_T = minute_T + (aryTime(ary) Mod 100)
　　　　Else
　　　　　　'SumTimeに範囲がセットされていた場合
　　　　　　Set Union_rg = Union(Union_rg, aryTime(ary))
　　　　End If
　　Next
　　'範囲指定部分の時、分を集計
　　For Each rg In Union_rg
　　　　hour_T = hour_T + Int(rg / 100)
　　　　minute_T = minute_T + (rg Mod 100)
　　Next
　　'時分にする(60進数)
　　hour_T = hour_T + Int(minute_T / 60)
　　minute_T = minute_T Mod 60
　　'表示形式をあわせる(時分の結合)
　　SumTime = hour_T * 100 + minute_T
End Function

この回答への補足

回答ありがとうございます！
これはセルを時間と分に分けて入力してるんでしょうか？
引数の部分がちょっとわからなかったので
教えていただけますか。よろしくお願い致します。

補足日時：2001/08/04 16:06

No.2 回答者： barbieri 回答日時： 2001/08/04 13:27

例えば、時間の足し算は残業時間を集計するときに必要になると思いますが、

数字と時間と時刻は意味合いが異なりますので注意して下さい。
では、HitomiKuroseさんの回答に補足させてもらいます。

現在、セルはhi63さんの希望通りに表示されている筈です。
でもツールバー下の計算式入力欄を良～く見ると、入力した数字がそのまま表示されている筈ですね。つまり表示形式が変わっただけで値は変わっていません。

説明します。
（時刻も含めて）時間６０進数と１２（又は）進数ですから計算が面倒です。
仮の計算結果を残す為にＢ、Ｃ列を利用します。
Ｂ１に =INT(A1/100) ・・・時間と
Ｃ１に =A1-(B1*100) ・・・分に切り分けます。
この式を該当する全ての行にコピーして貼り付けます。

仮にA1からA5までデータが入力されているとすれば
Ｂ６に =SUM(B1:B5)+INT(SUM(C1:C5)/60)・・・分合計の繰り上がりも含む時間
Ｃ６に =MOD(SUM(C1:C5),60)・・・分の合計を60で割った残り、つまり分になる

とします。これでセルＢ６には時間が、Ｃ６には分が表示されています。
そして計算結果を表示するセルＡ６は下記の様になります。
=B6*100+C6
表示形式を HitomiKurose の回答通りに 00":"00 と定義すれば出来上がりです。

この回答へのお礼

ありがとうございました！
できました！私もあとで時間と分に分けないとダメという
ことに気付いてつまずいているところでした・・・。
これで助かります。ありがとうございました！

お礼日時：2001/08/04 15:54

No.1 回答者： HitomiKurose 回答日時： 2001/08/04 11:25

実際に時刻として扱われるわけではありませんが、表示なら

セルの書式設定→表示形式→ユーザー定義
で、種類の欄に

00":"00

でどうでしょう。

この回答への補足

ありがとうございます。表示はできました！
書き忘れたのですが、さらに時刻の足し算もしたいのですが
どうしたらいいでしょう？
(A1)02：00
(A2)03：00
(A3)05：00
というようにA3に時刻の合計を出したい時は？
質問が足りなくて申し訳ありませんが教えてください！

補足日時：2001/08/04 11:49