セルの時刻を変更したい

質問

Excel2007でマクロ作成中です。
Ｂ列とＤ列に時刻を変更する関数を入れたいのですが、皆目わかりません。
よろしくお願いします。

A列に2種類の時刻が入っています。

ア）下1ケタがゼロの時刻
　　Ａ1　　8：00
　　Ａ2　　9：10
　　Ａ3　 10：30
イ）下1ケタが　5の時刻
　　Ａ4　　9：05
　　Ａ5　 10：35　
　　Ａ6　 11：55

Ｂ列セルに関数を入れ時刻を次のようにしたいです。

ア）下1ケタがゼロの時刻
　　Ｂ1　　8：00　（Ａ1セルと同じ時刻）
　　Ｂ2　　9：10　（Ａ2セルと同じ時刻）
　　Ｂ3　 10：30　（Ａ3セルと同じ時刻）
イ）下1ケタが　5の時刻
　　Ｂ4　　9：10　（Ａ4セルに5分プラスの時刻）
　　Ｂ5　 10：40　（Ａ5セルに5分プラスの時刻）
　　Ｂ6　 12：00　（Ａ6セルに5分プラスの時刻）
-----------------------------------------------------------
Ｃ列に2種類の時刻が入っています。

ア）下1ケタがゼロの時刻
　　Ｃ1　　15：00
　　Ｃ2　　16：10
　　Ｃ3　　17：30
イ）下1ケタが　5の時刻
　　Ｃ4　 13：05
　　Ｃ5　 14：35　
　　Ｃ6　 18：55

Ｄ列セルに関数を入れ時刻を次のようにしたいです。

ア）下1ケタがゼロの時刻
　　Ｄ1　　15：00　（Ｃ1セルと同じ時刻）
　　Ｄ2　　16：10　（Ｃ2セルと同じ時刻）
　　Ｄ3　　17：30　（Ｃ3セルと同じ時刻）
イ）下1ケタが　5の時刻
　　Ｄ4　 13：00　（Ｃ4セルから5分マイナスの時刻）
　　Ｄ5　 14：30　（Ｃ5セルから5分マイナスの時刻）
　　Ｄ6　 18：50　（Ｃ6セルから5分マイナスの時刻）

回答No.1

mshr1962 · ベストアンサー

結果として10分単位で切り上げ、切り捨てする関数ということなら
B1=CEILING(A1,"0:10:0"*1)
D1=FLOOR(C1,"0:10:0"*1)

お礼

完璧に出来ました。ありがとうございました。

回答No.3

noname#204879

別解
B1: =A1+"0:5"*(MOD(MINUTE(A1),10)<>0)
D1: =A1-"0:5"*(MOD(MINUTE(A1),10)<>0)

お礼

いろんな方法があること実感しました。ありがとうございました。

回答No.2

KURUMITO

例えば次のようなマクロにします。

Sub 時刻の変換()

For Row = 1 To 6
Range("B" & Row) =Format( WorksheetFunction.Ceiling(Range("A" & Row), TimeValue("0:10")),"h:mm")
Range("D" & Row) =Format( WorksheetFunction.Floor(Range("C" & Row), TimeValue("0:10")),"h:mm")
Next

End Sub

お礼

ご回答ありがとうございました。大変参考になりました。