Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


124 / 13340 ツリー ←次へ | 前へ→

【80350】条件分岐について WKB 19/1/30(水) 10:46 質問[未読]
【80351】Re:条件分岐について hatena 19/1/30(水) 11:14 回答[未読]
【80352】Re:条件分岐について WKB 19/1/30(水) 11:52 お礼[未読]

【80350】条件分岐について
質問  WKB  - 19/1/30(水) 10:46 -

引用なし
パスワード
   ======================
cells(i,"C")が A・B・C・Dではない
かつ
Cell(i,"D")が 100ではない
処理1
======================
If cells(i,"C") <> "A" Then
 If cells(i,"C") <> "B" Then
  If cells(i,"C") <> "C" Then
   If cells(i,"C") <> "D" Then
    If cells(i,"D") <> 100 Then
     処理1
    End If
   End If
  End If
 End If
End If
上記コードで動くには動くんですが、
もっとスマートな記述があればご教授下さい。

【80351】Re:条件分岐について
回答  hatena  - 19/1/30(水) 11:14 -

引用なし
パスワード
   With Cells(i, "C")
  If .Value <> "A" And .Value <> "B" And .Value <> "C" _
    And Cells(i, "D") <> 100 Then
    処理1
  End If
End With

とか、

If Cells(i, "C") Like "[!ABCD]" And Cells(i, "D") <> 100 Then
  処理1
End If

【80352】Re:条件分岐について
お礼  WKB  - 19/1/30(水) 11:52 -

引用なし
パスワード
   ありがとうございます。
記述の仕方を色々勉強したかったので大変参考になりました。

124 / 13340 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free