If 文を Select Case に書き換えたいのですが・・・

よろしくお願いします。エクセルは２０１３です
いつもｇｏｏの皆さんに大変お世話になっています

次の If 文を Select Case に書き換えるには、どう書き直したらよいでしょうか？

Ifがネストになっていて、自分でもよく分からなくなってしまって、マクロが狙った動きを
してくれません（頭の中で整理できません）

そこで、Select Case に書き換えたら、少しはコード全体の見通しがよいくなるかと思い
質問させていただきました

If Range("B40") = "Y" And Range("C40") <> "Y" Then
　処理1
ElseIf Range("C40") = "Y" And Range("B40") <> "Y" Then
　処理2
ElseIf Range("B40") = "Y" And Range("C40") = "Y" Then
　処理3
ElseIf Range("B40") <>"Y" And Range("C40") <> "Y" Then
　処理4
End if

No.2 ベストアンサー 回答者： siffon9 回答日時： 2016/12/22 06:14

こんな感じでしょうか？

見通しがよくなったかどうかは見方によりますね。


Select Case True
Case (Range("B40") = "Y" And Range("C40") <> "Y")
　処理1
Case (Range("B40") <> "Y" And Range("C40") = "Y")
　処理2
Case (Range("B40") = "Y" And Range("C40") = "Y")
　処理3
Case (Range("B40") <>"Y" And Range("C40") <> "Y")
　処理4
Case Else
　その他
End Case

この回答へのお礼

siffon9さん、おはようございます
早朝から答えてくださってありがとうございます

>(Range("B40") = "Y" And Range("C40") <> "Y")
　（　　）で囲むのですね。これがわかりませんでした。
>Select Case True
　このような書き方ができるとは全然知りませんでした
　勉強になりました。これからも使えます
　ありがとうございました

If ばっかりなので、Select Case が入っただけで十分見やすいです
ありがとうございました

お礼日時：2016/12/22 06:24

No.3 回答者： daaa- 回答日時： 2016/12/22 06:28

Select Case　信号の色　＜＝変数

赤　　処理１
青　　処理２
黄　　処理３

と言う風にしか書けません。「信号の色」が変数です。

この回答へのお礼

daaa-さん、ありがとうございます

お礼日時：2016/12/22 06:34

No.1 回答者： daaa- 回答日時： 2016/12/22 05:44

Select Case　所定の変数

この時、変数は所定の物でないといけませんが、そうできますか？

この回答へのお礼

daaa-さん、おはようございます
どこかで見た方だなと思ったら、昨日の昼に英語表現を教えてくれた方ですね
その節はありがとうございました

>この時、変数は所定の物でないといけませんが、そうできますか？
変化しないとか、一定の値という意味でしょうか？

条件としてはＩＦ文で書いた以外にありません
常にYです

お礼日時：2016/12/22 06:01