
お世話になっております。
Excel2013のVBAでの構文を教えてください。
IF文の否定の複数条件で書いて色々試したのですが、なぜか処理されてしまいます。
例えば、りんごとばななに対して処理したくない時、以下のように書いても処理されてしまいます。
If h.Value <> "りんご" Or h.Value <> "バナナ" Then
Debug.Print h.Address
END IF
他にも
If Not h.Value = "りんご" Or Not h.Value = "バナナ" Then
でもだめです。
個別に
If h.Value <> "りんご" Then
If h.Value <> "バナナ" Then
すると大丈夫でした。
個別でもいいんですが、IF文の否定の複数条件はどのように書けばいいのでしょうか?

No.3ベストアンサー
- 回答日時:
No1の方の通りですが、
if 条件1 or 条件2 then
成立時の処理
end if
は、条件1が成立するか条件2が成立すれば、成立時の処理が実行されます。
ここで、h.valueがバナナのケースを考えると、
h.value <> "りんご" が成立します。つまり、条件1が成立します。
ゆえに、成立時の処理が実行されます。
一方
if 条件1 and 条件2 then
成立時の処理
end if
は、両方の条件が成立した場合のみ、成立時の処理が実行されます。
つまり、h.value <> "りんご" でかつ h.value <> "バナナ"
の場合、成立します。(りんごでもバナナでもない場合)
従って、
If h.Value <> "りんご" And h.Value <> "バナナ" Then
成立時の処理
end if
となります。
No.4
- 回答日時:
初心者がよくやる間違いです。
安易に日本語で考えていると間違います。
日本語で
「りんごでないか、バナナでないか」
って言うと、思い込みもあって、なんとなく正しい気がしてしまいます。
算数や数学でやった「かつ」「または」「ならば」とかを思い出しましょう。
真理値表を書くのも手です。
No.2
- 回答日時:
ちょっと変な書き方になりますが、
りんご であり バナナ でもある時 ①
りんご であり バナナ ではない時 ②
りんご ではなく バナナ である時 ③
りんご ではなく バナナ でもない時 ④
の4つが存在します。
例の状態では④だけ選びたいわけですね
Orで判定すると「りんごではない もしくは バナナではない」となるので、
③④ もしくは ②④ となってしまい、②③④が該当してしまいます。
Andで判定すると「りんごではない かつ バナナでもない」となるので、
④だけが選ばれるというわけですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
VBA IF文でORを使ったとき後ろの条件が実行されない
Visual Basic(VBA)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
8
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
11
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
-
12
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
13
なぜこんな初歩的なVBAのIf文でエラーか発生して使えないのか、全く理解出来ません。誰か助けてくださ
Visual Basic(VBA)
-
14
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
15
Application.ScreenUpdating=Falseを使うと・・・。
Access(アクセス)
-
16
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
17
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
18
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
19
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
20
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
米騒動
-
バナナの保存方法
-
ペースト状のバナナの利用法
-
人間がクソほど怖いです。 過去...
-
コバエはバナナの皮から生まれ...
-
この間、バナナを食べようと皮...
-
「と比べると」と「に比べると」
-
バナナの芯について
-
エクセルVBAのIF文の否定の複数...
-
両手で握って亀頭が出てるのは...
-
会話が終わりかけていたときのL...
-
バナナパウンドケーキをうまく...
-
バナナがすごく柔らかくなって...
-
今日8月7日は【バナナの日】で...
-
Access 2002で既定値に入力した...
-
バナナの自由研究です
-
8月7日は「バナナの日」。あな...
-
バナナの皮は食べられるんですか。
-
昔のアイスで ダブルバナナって...
-
バナナの皮を3つにむくと
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「と比べると」と「に比べると」
-
高いバナナ
-
バナナがすごく柔らかくなって...
-
米騒動
-
バナナの中心に穴?
-
両手で握って亀頭が出てるのは...
-
この間、バナナを食べようと皮...
-
エクセルVBAのIF文の否定の複数...
-
三文字で母音が全て『あ』の食...
-
会話が終わりかけていたときのL...
-
バナナ嫌いのバナナ克服法
-
野生のサルは、バナナを皮ごと...
-
コバエはバナナの皮から生まれ...
-
バナナを入れないとスムージー...
-
冷凍庫からバナナを出して、冷...
-
黄色いのにかたい バナナ
-
このヘアーアクセサリーの名前...
-
ミキサーでジュースを作るのに...
-
金曜日に買ったバナナ
-
バナナの中身が黒い状態
おすすめ情報