-PR-
解決済み

Excel VBAで時刻の判定

  • 困ってます
  • 質問No.5371735
  • 閲覧数1020
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 61% (13/21)

EXCEL VBAの時間判定について質問させてください。

エクセルのブックが2つあり、それぞれを「A.xls」「B.xls」とします。
A.xlsの「A1」に"開始時刻"、「B1」に"終了時刻"が入っており、
B.xlsの「E1」に"開始時刻"、「F1」に"終了時刻"が入っているとき、

A.xlsの開始~終了時間に、B.xlsの開始~終了時間がかぶっている場合に処理を行う、といった判定式を作りたいと思っています。

例)
A.xls:A1=1:00 B1=3:00
B.xls:E1=2:00 F1=5:00
上記のとき、メッセージボックスで"時刻がかぶっています"を返す。

A.xls:A1=1:00 B1=3:00
B.xls:E1=3:00 F1=5:00
上記のときは、"問題なし"を返す。

といった感じです。
この時刻の判定に何を用いたら良いのかが分かりません。
よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 55% (772/1382)

内容が時刻であれば単に値を比較するだけです。
Aの開始時刻 = Wrokbokks("A.xls").WorkSheets(1).Cells(1, 1).Value
以下略
If (( Aの開始時刻 >= Bの開始時刻 ) AND ( Aの開始時刻 <= Bの終了時刻 )) _
Or (( Bの開始時刻 >= Aの開始時刻 ) AND ( Bの開始時刻 <= Aの終了時刻 )) Then
  MsgBox "時刻がかぶっています"
End If
お礼コメント
sun-sky

お礼率 61% (13/21)

できました!ありがとうございました。
投稿日時 - 2009-10-17 14:28:26
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-

特集


開業・独立という夢を持つ人へ向けた情報満載!

ピックアップ

-PR-
ページ先頭へ