or　では大丈夫なのにandではダメな理由は？

Question

or　では大丈夫なのにandではダメな理由は？セルA1に2007/10/3を入れ、 2007年ならピンク 2008年なら黄緑とやろうとして、２つのマクロを作りました。 Macro1では正常に動作するのですが Macro２を実行すると2007/10/3なのに、黄緑になってしまいます。 200８/10/3でMacro２を実行すると何も動きません。 Macro1とMacro２の違いは「or」と「and」の違いだけです。 Sub Macro1() If 39081 >= CLng(Range("a1")) Or CLng(Range("a1")) <= 39447 Then Range("a1").Interior.ColorIndex = 38 ElseIf 39448 >= CLng(Range("a1")) Or CLng(Range("a1")) <= 39813 Then Range("a1").Interior.ColorIndex = 4 End If End Sub Sub Macro2() If 39081 >= CLng(Range("a1")) And CLng(Range("a1")) <= 39447 Then Range("a1").Interior.ColorIndex = 38 ElseIf 39448 >= CLng(Range("a1")) And CLng(Range("a1")) <= 39813 Then Range("a1").Interior.ColorIndex = 4 End If End Sub 「and」なら２００７/1/1より大きい　なおかつ　2007/12/31より小さいと思い、最初はMacro2を作りましたが、うまくいかない為Macro１を作りました。でも「or」だと、２００７/1/1より大きい　もしくは　2007/12/31より小さいですよね？ 2008/1/1でも「２００７/1/1より大きい　もしくは　」にヒットしてしまうため、 andにしたのですが、なぜandではうまくいかないのでしょうか？よろしくお願いします。

layy · Accepted Answer

仮に、セルの値が39080だったとしたら「39081＞＝」が成立し「＜＝39447」も成立します。マクロ１でもまだ不十分です。


ＡＮＤでうまくいかないからＯＲというよりは、ＡＮＤでもどう動いたか１度見直すと不等号向きがおかしいのはわかったと思います。

「ＡからＢ」の判定ならＡＮＤ使う方が良いです。
よく使う判定です、year等でやり方変えて片付けないこと、です。マクロ２の不等号を修正すること。

merlionXX · Answer

Sub test01()
　　Dim c As Integer
　　If Year(Range("A1")) = 2007 Then
　　　　c = 38
　　ElseIf Year(Range("A1")) = 2008 Then
　　　　c = 4
　　Else
　　　　c = 0
　　End If
　　Range("a1").Interior.ColorIndex = c
End Sub

ではいかがでしょう？

jcctaira · Answer

単純なミスだと思います。

2007/1/1<=2007/10/3<=2007/12/31　→　ピンク

上記の式をプログラムで行うと
　If #2007/1/1# <= #2007/10/3# And #2007/10/3# <= #2007/12/31# Then
  になります。
※不等号の向きが違うと思います。

If 39081 >= CLng(Range("a1")) And CLng(Range("a1")) <= 39447 Then
　　　　　　↓
　If 39081 <= CLng(Range("a1")) And CLng(Range("a1")) <= 39447 Then

注）39081は2006/12/30　だと思います。

tom04 · Answer

こんばんは！
不等号の向きが違うみたいですね！

余計なお世話かもしれませんが、
コードを入力するとき、シリアル値とRangeの順番をそろえた方が間違いが少ないかもしれません。

もっと単純に

Sub test()
    If Year(Range("A1")) = 2007 Then
        Range("A1").Interior.ColorIndex = 38
    ElseIf Year(Range("A1")) = 2008 Then
        Range("A1").Interior.ColorIndex = 4
    End If
End Sub

ではダメでしょうか？m(__)m

tom04 · Answer

No.3です！
たびたびごめんなさい。

投稿した後で気づきました。
前回の当方のコードではA1セルの日付が2007・2008年以外に変わっても
そのままの色付けになってしまいます。

結局、No.1様の方法とダブってしまいましたが

Sub test()
    If Year(Range("A1")) = 2007 Then
        Range("A1").Interior.ColorIndex = 38
    ElseIf Year(Range("A1")) = 2008 Then
        Range("A1").Interior.ColorIndex = 4
    Else: Range("A1").Interior.ColorIndex = xlNone
    End If
End Sub

に訂正してください。
何度も失礼しました。m(__)m

layy · Answer

ＩＦ　式Ａが真　ＡＮＤ　式Ｂが真　ＴＨＥＮ
　　・・・・(1)
ＥＬＳＥ
　　・・・・(2)
ＥＮＤＩＦ

を書き換えたもの

ＩＦ　式Ａが真　ＴＨＥＮ
　ＩＦ　式Ｂが真　ＴＨＥＮ
　　・・・・(3)
　ＥＬＳＥ
　　・・・・(4)
　ＥＮＤＩＦ
ＥＬＳＥ
　　ＩＦ　式Ｂが真　ＴＨＥＮ
　　・・・・(5)
　　ＥＬＳＥ
　　・・・・(6)
　　ＥＮＤＩＦ
ＥＮＤＩＦ

において、
(1)に相当するのは(3)ですが、(5)も(1)と同じと解釈しているからでは？。
頭の中だけでなく、イミディエイト使ってきっちり真偽結果を検証すると良いです。

ＡＮＤを羅列する場合はケース漏れに注意してください。

階層複雑のときは記載多くなって面倒でもきっちり書く方が答えきっちりでます。

layy · Answer

「and」なら２００７/1/1より大きい　なおかつ　2007/12/31より小さい
2008/1/1でも「２００７/1/1より大きい　もしくは　」にヒットしてしまうため、
→
解釈誤り。
『2007/12/31より小さい』にはヒットしていません。よって、式が成り立ってない。

普通に考えて、
ＯＲとＡＮＤが違うだけで結果同じというのはケース少ないです。

今回の結果実現以前に「ＯＲとＡＮＤの使い方」を習得すべきです。

Wendy02 · Answer

最初に、何か別の言語を学んだことがありますか？ここでは、論理式の問題ですから、Year 関数の話は、置いておきます。ANDそのものは、間違いありませんが、ご質問の書き方は、とても間違いやすいのです。(以下はリテラル値を使っています）本来、　If #12/30/2006# <= Range("A1").Value <= #12/31/2007# Then と書ければよいのですが、VBAでは許されていません。そこで、このように書きます。　 If #12/30/2006# <= Range("A1").Value And Range("A1").Value <= #12/31/2007# Then 　 Range("A1").Interior.ColorIndex = 38 ElseIf #1/1/2008# <= Range("A1").Value And Range("A1").Value <= #12/31/2008# Then 　 Range("A1").Interior.ColorIndex = 4 End If となるのです。しかし、間違いないようにするには、右辺と左辺を揃えたほうが間違いが少ないのです。(なお、リテラル値を書くのはコーディングルールとしては、あまり関心しません。）以下のように書くと分かりやすいはずです。 Sub TestMacro1() 　If Range("A1").Value >= DateValue("2006/12/30") And _ 　　 Range("A1").Value <= DateValue("2007/12/31") Then 　　 Range("A1").Interior.ColorIndex = 38 　ElseIf Range("A1").Value >= DateValue("2008/1/1") And _ 　　 Range("A1").Value <= DateValue("2008/12/31") Then 　　 Range("A1").Interior.ColorIndex = 4 　End If End Sub

or では大丈夫なのにandではダメな理由は？

Sub test01()

単純なミスだと思います。

こんばんは！

No.3です！

ＩＦ 式Ａが真 ＡＮＤ 式Ｂが真 ＴＨＥＮ

「and」なら２００７/1/1より大きい なおかつ 2007/12/31より小さい

最初に、何か別の言語を学んだことがありますか？

仮に、セルの値が39080だったとしたら「39081＞＝」が成立し「＜＝39447」も成立します。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

or　では大丈夫なのにandではダメな理由は？

ＩＦ　式Ａが真　ＡＮＤ　式Ｂが真　ＴＨＥＮ

「and」なら２００７/1/1より大きい　なおかつ　2007/12/31より小さい