VBAのSelect CaseでLikeを使ったあいまい条件の判定を行うには:エクセルマクロ・Excel VBAの使い方/条件分岐

Sub SelectCaseのサンプル() Dim addr As String addr = ActiveCell.Value Select Case addr Case "東京都" MsgBox "○" Case Else MsgBox "－" End Select End Sub 上記のマクロを実行すると、アクティブセルに「東京都」という文字列が入力されていれば「○」、そうでなければ「－」がメッセージボックスに表示されます。 Select Case文であいまい判定したいという要望 これを例えば、「東京都」ではじまる文字列だったとき、といったあいまい条件で処理を分岐をさせたいというのが実務でよく出てくる要望です。 上記のマクロの、 Select Case addr Case "東京都" の部分を、 Select Case addr Case "東京都*" のようにワイルドカードを追加し