指定した時間より前なら（Time　If）

解決済

質問者：noname#150929
質問日時：2009/07/04 12:10
回答数：2件

Sub Macro6()
if time < 13:00:00 then
MsgBox "1時より前です"
End If

End Sub

これを実行したいのですが
構文エラーとなります。
どうすればいいでしょう？
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1

回答者： hallo-2007
回答日時：2009/07/04 12:23

if Time() < "13:00:00" Then

で試してみてください。

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！できました！

通報する

お礼日時：2009/07/04 13:03

No.2ベストアンサー

回答者： Wendy02
回答日時：2009/07/04 17:52

こんにちは。

Time は、小文字になっていますが、Time 関数でしょうか？

13:00:00 という数値は、存在しませんし、データ型が、Date には変化しませんから、エラーが出ます。文字列に書いても正しく認識しますが、一応、リテラル値を書くとき（直接、値を入れる場合)には、決まりがあります。本来は、変数を置いて、そこに代入するという方法が良いとされますが、VBAなどでは、リテラル値にする場合は、#　# で囲みます。

例えば、#13:00:00# と書くと、#1:00:00 PM#　このように変換され、時間値として受け付けられます。

Sub Macro6()
　　If Time() < #1:00:00 PM# Then
　　　　MsgBox "1時より前です"
　　Else
　　　　MsgBox "1時より後です"
　　End If
End Sub

入門時では、あまりこだわることではありませんが……。