Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
430 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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ではない
処理１
======================
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
　　　　　処理１
　　　　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
　　　　処理１
　　End If
End With

とか、

If Cells(i, "C") Like "[!ABCD]" And Cells(i, "D") <> 100 Then
　　処理１
End If
【80352】Re:条件分岐について
お礼  WKB  - 19/1/30(水) 11:52 -
引用なし
パスワード
   ありがとうございます。
記述の仕方を色々勉強したかったので大変参考になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
430 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free