ＩＦ文に時間（何時から何時まで）の条件文を付けたい

質問

ＶＢＡの知識が無いので本を脇に置きながら作業をしております。

図のような画面を作成しようとしておりますが、２つ質問があります。
(1)図右上のようにパソコンに設定されている時間を画面上に
　表示する方法を教えて下さい
(2)図右上に表示された時間を基にＩＦ文の処理を行ないたい
　例えば、現在の時刻が１３：００だったら、
　「１２：００～１４：００」、「１４：００～１６：００」、「１６：００～１８：００」
　の処理を行なう　　としたいのですが、

　分からないのが、ＩＦ文で
　『現在時刻が１２：００～１４：００までの間だったら、処理Ａを行なう』の
　命令文が分かりません。

　どのように作成すれば良いのか、お教え願います。

回答No.3

hallo-2007 · ベストアンサー

通りがかりです。
>分からないのが、ＩＦ文で
>　『現在時刻が１２：００～１４：００までの間だったら、処理Ａを行なう』の
>　命令文が分かりません。
この場合は
　Select　Caseで分岐したほうが便利でしょう
Select Case Range("C1").Value
Case Is < TimeSerial(12, 0, 0)
MsgBox "処理A"
Case Is < TimeSerial(14, 0, 0)
MsgBox "処理b"
Case Is < TimeSerial(16, 0, 0)
MsgBox "処理c"
Case Is < TimeSerial(18, 0, 0)
MsgBox "処理d"
End Select
といった具合で考えてみてください。

回答No.2

imogasi

Sub test01()
Range("C1") = Time
Range("D1") = Hour(Time)
Range("E1") = Minute(Time)
Range("F1") = Second(Time)
End Sub
C1の表示形式は、別途設定すること（手作業・ＶＢＡ）。
ーーー
＞１２：００～１４：００までの間だったら、処理Ａを行なう
セルの値を用いて比較する場合は
Ｉｆ　Rａｎｇｅ（”Ａ１"）＞Rａｎｇｅ（"Ｂ１"） Then
処理Ａ
End If
のように出来るが、
１方を固定の数値（エクセルでは時刻シリアル値、このことを質問者は判ってないかも）は（時刻）リテラル値といい、ＴｉｍｅＳｅｒｉａｌ（ｊ時、分、秒)で定義する方法もあるが、#を使って
Sub test03()
If Range("C1") = #12:05:35 PM# Then
MsgBox "aaa"
End If
End Sub
でできる。
http://www.melma.com/backnumber_170609_4062558/　参考
これを参考に、時刻の幅の間もＡＮＤ演算子を使って、やってみてください。ＶＢＡにＢｅｔｗｅｅｎ演算子は在りません。

回答No.1

noname#187541

こんにちは。

現在の時刻は　Time　で取得できます。ちなみに日付は　Date　で、Nowで両方が一度に取得できます。

『現在時刻が１２：００～１４：００までの間だったら、処理Ａを行なう』は
If Time >= "12:00" And Time >= "14:00" then
処理A
End If
とすればできます。