お世話になっております。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
VBA IF文でORを使ったとき後ろの条件が実行されない
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
(Excel VBA)and,orについて
Excel(エクセル)
-
8
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
9
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
10
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
11
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
12
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
13
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
14
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
15
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
-
16
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
17
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
18
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
19
UserForm1.Showでエラーになります。
工学
-
20
別のシートから値を取得するとき
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
この写真のバナナ、いつもより...
-
エクセルVBAのIF文の否定の複数...
-
皆さんおはようございます、厭...
-
黄色いのにかたい バナナ
-
バナナがすごく柔らかくなって...
-
コバエはバナナの皮から生まれ...
-
バナナの皮が自然に剥けますが...
-
シールのついたバナナはその房...
-
「と比べると」と「に比べると」
-
バナナの渋み
-
バナナの食べ方。
-
バナナベースのホットサンドに...
-
心配です。下ネタって思われた...
-
熟して柔らかくなったバナナの...
-
バナナ長持ちさせる方
-
相乗効果の意味を簡単に教えて...
-
【至急】青いバナナを入手したい
-
バナナで釘を打つ
-
調理用バナナについて
-
バナナを長持ちさせる方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAのIF文の否定の複数...
-
黄色いのにかたい バナナ
-
野生のサルは、バナナを皮ごと...
-
「と比べると」と「に比べると」
-
バナナの中心に穴?
-
バナナの芯について
-
冷凍庫からバナナを出して、冷...
-
バナナがすごく柔らかくなって...
-
三文字で母音が全て『あ』の食...
-
コバエはバナナの皮から生まれ...
-
会話が終わりかけていたときのL...
-
バナナの皮を3つにむくと
-
食べかけバナナの保存法
-
バナナって洗いますか?
-
バナナか1日で痛む理由
-
昔のアイスで ダブルバナナって...
-
バナナって腹持ちいいんですか...
-
プロテインを使った料理やスイーツ
-
この間、バナナを食べようと皮...
-
バナナは熟してくると皮が裂け...
おすすめ情報