スキルアップ・問題解決なら、モーグにおまかせ！

土日以外を表したくて
 
if Weekday(Now) <> vbSaturday then
    if Weekday(Now) <> vbSunday then
       実行文
    end if
end if
としましたが、このifの部分を一つにできないでしょうか？
 
 if Weekday(Now) <> vbSaturday and Weekday(Now) <> vbSunday then　としてもダメでした。
 if Weekday(Now) <> vbSaturday or Weekday(Now) <> vbSunday then　これもダメです
 
お教えください。
 

＞if Weekday(Now) <> vbSaturday and Weekday(Now) <> vbSunday then　としてもダメでした。
良いと思いますが、
・想定はこうだが、
・実際はこんなことになってしまう、
と具体的に説明してもらえませんか？

土日以外を判断するいくつかの方法
 
曜日を判定する目的ならば
>Now
より
Date
の方が分かりやすいと思います。
 
 
'方法1
    If Not (Weekday(Date) = vbSaturday Or Weekday(Date) = vbSunday) Then
 
'方法2
    If Weekday(Date, 2) < vbSaturday Then
  
'方法3
    If Not (Format(Date, "aaa") = "土" Or Format(Date, "aaa") = "日") Then
 
まだ、いろいろな方法があるので、勉強してみるとよいでしょう。

>if Weekday(Now) <> vbSaturday and Weekday(Now) <> vbSunday then　としてもダメでした。
は、実際のコードと違っているものと思います。
これ、手入力ですよね？
 
この掲示板にコードを記載する際は
手入力ではなく、コードペインからコピペしてください。
 

回答ありがとうございます。
 
テストとして、実行文にMsgboxを表示するようにしても、たとえば今日(金)でもMsgboxが表示されません。
 
 
これだと動きます。
 
if Weekday(Now) = vbSaturday or Weekday(Now) = vbSunday then
　空白
else
　実行文
end if
 
と同じ事がしたいのです。

引用:
テストとして、実行文にMsgboxを表示するようにして

書いたコードは
 
if Weekday(Now) = vbSaturday or Weekday(Now) = vbSunday then
else
  Msgbox "Test"
end if
 
と
 
if Weekday(Now) <> vbSaturday and Weekday(Now) <> vbSunday then
  Msgbox "Test"
end if
 
です。
 
よろしくお願いいたします。

zero2 さんの引用:
書いたコードは
 
if Weekday(Now) = vbSaturday or Weekday(Now) = vbSunday then
else
  Msgbox "Test"
end if
 
と
 
if Weekday(Now) <> vbSaturday and Weekday(Now) <> vbSunday then
  Msgbox "Test"
end if
 
です。
 
よろしくお願いいたします。

横入失礼します。
 
If文の条件分岐
 
And条件
If 条件A And 条件B　真ですか
    真（条件A と 条件B　両方真であるときのみ　真）
Else
　　偽（条件A と 条件B　どちらか片方が真であっても　偽）
End If
 
Or条件
If 条件A Or 条件B　真ですか
    真（条件A と 条件B　どちらか片方が真であれば　真）
Else
　　偽（条件A と 条件B　両方偽であるときのみ　偽）
End If
 
Not付加And条件
If Not　条件A And 条件B　偽ですか　（Notを付けることによって否定文になる）
    真（条件A と 条件B　両方偽であるときのみ　真）
Else
　　偽（条件A と 条件B　どちらか片方が偽であっても　偽）
End If
 
Not付加Or条件
If Not　条件A Or 条件B　偽ですか　（Notを付けることによって否定文になる）
    真（条件A と 条件B　どちらか片方が偽であれば　真）
Else
　　偽（条件A と 条件B　両方偽であるときのみ　偽）
End If
 
上記を踏まえ以下を試してください

Sub test()
    Dim MyDay As Date
    
    MyDay = Application.InputBox(prompt:="日付を入力してください", _
                                Title:="日付入力", _
                                Default:=Date)
    
    If Weekday(MyDay) = vbSaturday Or Weekday(MyDay) = vbSunday Then
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので真です。"
    Else
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので偽です。"
    End If
End Sub

Sub test1()
    Dim MyDay As Date
    
    MyDay = Application.InputBox(prompt:="日付を入力してください", _
                                Title:="日付入力", _
                                Default:=Date)
    
    If Not Weekday(MyDay) = vbSaturday Or Weekday(MyDay) = vbSunday Then
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので真です。"
    Else
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので偽です。"
    End If
End Sub
Sub test2()
    Dim MyDay As Date
    
    MyDay = Application.InputBox(prompt:="日付を入力してください", _
                                Title:="日付入力", _
                                Default:=Date)
    
    If Weekday(MyDay) <> vbSaturday And Weekday(MyDay) <> vbSunday Then
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので真です。"
    Else
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので偽です。"
    End If
    
End Sub

Sub test3()
    Dim MyDay As Date
    
    MyDay = Application.InputBox(prompt:="日付を入力してください", _
                                Title:="日付入力", _
                                Default:=Date)
    
    If Weekday(MyDay) <> vbSaturday Or Weekday(MyDay) <> vbSunday Then
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので真です。"
    Else
        MsgBox MyDay & "は" & Format(MyDay, "aaaa") & "ですので偽です。"
    End If
    
End Sub

>これは、掲示板に手入力していますよね？
>コードを手入力しないようにお願いしたはずですが・・・・
>実際に動いているコードでないと、どこに問題があるか？
>判断できません。
 
初心者でご指摘の内容がよく理解できないのですが、手入力せずテストしているコードをそのままコピペしています。

VBE(エディター)から直接コピーペイストすれば
if だとかandなどという小文字には
絶対になりませんよ。
いい加減なことを言わないで頂きたいですね。
 
ひょっとして
どこかでnowという変数を宣言していませんか？
そうとでも解釈しないと
あなたいうような異常なことにはなりません。

zero2 さんの引用:

初心者でご指摘の内容がよく理解できないのですが、手入力せずテストしているコードをそのままコピペしています。

すいません、ここはVBAに関するフォーラムですね。
自分はvbsファイルを作成して試していました。
質問する場所を間違えています。
 
申し訳ありません。
 
皆様の回答を参考に試してみます。
 
ありがとうございました。