Ceilingの使い方がうまくできません

質問

似たような事例が比較的多く、これらを探していろいろやってみたのですが、うまくいきませんでした。
私が素人なのもあると思うのですが、どうかよろしくお願いします。
二点、あります。

(1)A1　に出勤時間　　B1に退勤時間　が入ります。

退勤時間は、18時に設定したいので、出勤時間を打ち込めばその値がどのようなものであれ、18:00とB1にでるようにしたいのです。

(1)　また、A1の出勤時間が、09:00以前に出勤であれば、すべて09:00というふうに、09:00以降であれば、そのまま打ち込んだ実際出勤時間が出るようにしたいのですが、A1とは別にセルをつくらなければこれは不可能でしょうか。
CEILINGをつかってやってみましたが、実際出勤時間を打ち込むときに、この関数の式を消してしまうことになるのに気づき、意味がないことになってしまいました。

よろしくお願いします。

回答No.1

ASIMOV · ベストアンサー

＞出勤時間を打ち込めばその値がどのようなものであれ、18:00とB1にでるようにしたい

B1 =IF(A1="","",18*1/24)

とします

出勤時間の

＞A1とは別にセルをつくらなければこれは不可能でしょうか

そういう事です
データーを入力するセルと、計算するセルを別にします

ただし、ＶＢＡを使うとA1セルだけで出来ます
---------------
Private Sub Worksheet_Change(ByVal Target As Range)
　　Const TA As String = "A1"
　　If Target.Address(0, 0) <> TA Then Exit Sub
　　Application.EnableEvents = False
　　　　If Target.Value < 9 * 1 / 24 Then
　　　　　　Target.Value = 9 * 1 / 24
　　　　End If
　　Application.EnableEvents = True
End Sub
---------------
ただ、ＶＢＡを使うと副作用も有りますので、出来ればセルを別にした方が良いとは思います