Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16737 / 76738 ←次へ | 前へ→

【65465】Re:時刻・分数の矛盾チェック
発言  超初心者  - 10/5/24(月) 14:28 -

引用なし
パスワード
   ▼パトラッシュ さん:

案)をひとつ。

自作関数をひとつ作ります。
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)までのみ対応)

B3以下に
=IF(fxTimeAdd(B2,C2)>=2800,400,fxTimeAdd(B2,C2))
また、必要であればB列の書式は"0000"にしておく。

C2以下に、条件付書式にて
[数式が][=fxTimeAdd($B2,$C2)>2800]
にて
書式を設定しておく。

A3以下に
=MID("月火水木金土日月",FIND(A2,"月火水木金土日")+IF(B3<B2,1,0),1)


A・B列は計算ゆえ、入力不要(A2,B2のみ入力)。
よって、
> (分数が足らない,時間が重複する
は発生しない。

C列のみ入力。
条件付書式で2800を超えるものについてチェック。


注意点として、C列の分数が1日(1440分)を
超えたものについては、正常作動しません。
また、
> 矛盾がある旨のメッセージBOX
は出ません m(_~_)m


ご希望のものとは違うかもしれませんが、参考までに。。。
0 hits

【65457】時刻・分数の矛盾チェック パトラッシュ 10/5/23(日) 22:42 質問
【65465】Re:時刻・分数の矛盾チェック 超初心者 10/5/24(月) 14:28 発言
【65488】Re:時刻・分数の矛盾チェック パトラッシュ 10/5/26(水) 2:07 質問

16737 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free