IF文にて、複数の指定文字列以外の時に処理を実行したいと思います。
例として、A列がりんご，バナナ，みかんの時は処理を実行しない。
If Worksheets("Sheet1").Cells(a, "A") <> "りんご" ？ "バナナ" ？ "みかん" Then
-------- -------
End If
以上、ご教授願います。
No.2
4974
2154
100pt
taknt さんの回答とは、別の書き方です。
b = Worksheets("Sheet1").Cells(a, "A") If b <> "りんご" And b <> "バナナ" And b <> "みかん" Then -------- ------- End If
りんごではない、バナナでもない、みかんでもない
という感じです。
No.1
135391198
50pt
b = Worksheets("Sheet1").Cells(a, "A") If Not (b = "りんご" Or b = "バナナ" Or b = "みかん") Then -------- ------- End If
そのままだと 一行が 長くなってわかりにくくなるので
とりあえず セルの内容を 変数に入れます。
で それ以外というのは not を用います。
りんご または バナナ または みかん 以外
という感じですね。
No.2
49742154
ここでベストアンサー
100pt
taknt さんの回答とは、別の書き方です。
b = Worksheets("Sheet1").Cells(a, "A") If b <> "りんご" And b <> "バナナ" And b <> "みかん" Then -------- ------- End If
りんごではない、バナナでもない、みかんでもない
という感じです。
2
1
1
1
1
1
31
31
コメント（1件)
With Worksheets("Sheet1").Cells(a, "A")
If ( .Value <> "りんご" ) And ( .Value <> "バナナ" ) And ( .Value <> "みかん" ) Then
：
End If
End With
あるいはちょっとトリッキーですが、
If InStr( "リンゴ/バナナ/みかん", Worksheets("Sheet1").Cells(a, "A").Value) = 0 Then
：
End If