SelectCaseで複雑な条件をTrueで判定する【ExcelVBA】

SelectCaseで複雑な条件を判定したい

IF文で長ったらしく書くのが嫌で、SelectCase文を使うようになります。
ただ、SelectCase文で複雑な条件を判定できない初級者の方もおられると思います。
SelectCaseの判定をTrueで判定する事で、細かな条件に対応することが可能です。

SelectCaseで複雑な条件をTrueで判定するサンプルコード

'■SelectCase文の複数条件をTrueで判定する
Public Sub sample()

    Dim str As String: str = "あいうえお"
    
    '■判定をTrueにすることで複雑な条件にも対応している
    Select Case True
        Case str = "あ"
            Debug.Print 1
        Case Left(str, 2) = "あい"
            Debug.Print 2       '本条件がTrueとなり、DebugPrintで2を取得する
        Case Else
            Debug.Print 3
    End Select
End Sub

注意点

• 判定結果が複数該当した場合は先勝ちです。

関連記事

• 特にありません。