お世話になっております。
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
VBA IF文でORを使ったとき後ろの条件が実行されない
Visual Basic(VBA)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
(Excel VBA)and,orについて
Excel(エクセル)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
10
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
11
VBAで文字列を数値に変換したい
Excel(エクセル)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
14
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
15
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
16
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
17
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
18
Excel VBA IF文がうまく動作しないわけがわかりません…
Visual Basic(VBA)
-
19
UserForm1.Showでエラーになります。
工学
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
野生のサルは、バナナを皮ごと...
-
エクセルVBAのIF文の否定の複数...
-
バナナについて
-
今夜の晩御飯は以下にしようと...
-
冷凍庫からバナナを出して、冷...
-
バナナがすごく柔らかくなって...
-
バナナの皮を3つにむくと
-
シールのついたバナナはその房...
-
バナナの中心に穴?
-
「と比べると」と「に比べると」
-
バナナの消費期限の判断について
-
美味しいバナナ 100円前後のバ...
-
バナナは熟してくると皮が裂け...
-
バナナの芯について
-
黄色いのにかたい バナナ
-
食べかけバナナの保存法
-
バナナを買って冷蔵庫に入れて...
-
食べかけのバナナについて。 は...
-
酸化により変色してしまったバ...
-
発芽したスイカ。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAのIF文の否定の複数...
-
今夜の晩御飯は以下にしようと...
-
黄色いのにかたい バナナ
-
野生のサルは、バナナを皮ごと...
-
「と比べると」と「に比べると」
-
バナナの中心に穴?
-
両手で握って亀頭が出てるのは...
-
バナナの芯について
-
バナナがすごく柔らかくなって...
-
プロテインを使った料理やスイーツ
-
バナナの皮を3つにむくと
-
冷凍庫からバナナを出して、冷...
-
食べかけバナナの保存法
-
バナナか1日で痛む理由
-
バナナって洗いますか?
-
バナナは熟してくると皮が裂け...
-
会話が終わりかけていたときのL...
-
バナナって腹持ちいいんですか...
-
コバエはバナナの皮から生まれ...
-
【至急】青いバナナを入手したい
おすすめ情報