| |
▼パトラッシュ さん：
案）をひとつ。
自作関数をひとつ作ります。
Function fxTimeAdd(myNow As Integer, myAdd As Integer) As Integer
Dim myTime As Integer
myTime = (Int(myNow / 100) * 60 + (myNow Mod 100)) + myAdd
fxTimeAdd = Format(myTime / 1440, "hhmm")
If myTime > 1440 Then fxTimeAdd = fxTimeAdd + 2400
End Function
時間（分）を足してhhmm形式の数値で返します。
（翌日（47:59）までのみ対応）
B３以下に
=IF(fxTimeAdd(B2,C2)>=2800,400,fxTimeAdd(B2,C2))
また、必要であればＢ列の書式は"0000"にしておく。
C２以下に、条件付書式にて
[数式が][=fxTimeAdd($B2,$C2)>2800]
にて
書式を設定しておく。
A３以下に
=MID("月火水木金土日月",FIND(A2,"月火水木金土日")+IF(B3<B2,1,0),1)
Ａ・Ｂ列は計算ゆえ、入力不要（A2,B2のみ入力）。
よって、
> （分数が足らない，時間が重複する
は発生しない。
Ｃ列のみ入力。
条件付書式で2800を超えるものについてチェック。
注意点として、Ｃ列の分数が１日（1440分）を
超えたものについては、正常作動しません。
また、
> 矛盾がある旨のメッセージＢＯＸ
は出ません m(_~_)m
ご希望のものとは違うかもしれませんが、参考までに。。。
|
|
超初心者
- 10/5/24(月) 14:28 -
