Select Caseでorは使えないのでしょうか？

質問

Sub TEST()
文字 = "あ"
Select Case 文字
Case "あ" Or "い"
MsgBox "「あ」もしくは「い」です。"
End Select
End Sub

これだとエラーになるのですが
ケースが「あ」もしくは「い」の場合は同じ処理をしたい場合はどうすればいいのでしょうか？

Sub TEST()
文字 = "あ"
Select Case 文字
Case "あ"
MsgBox "「あ」もしくは「い」です。"
Case "い"
MsgBox "「あ」もしくは「い」です。"
End Select
End Sub
このコードをまとめるはどうすればいいのでしょうか？
よろしくお願い致します。

回答No.2

KenKen_SP · ベストアンサー

こんにちは。

既に答えがでてますので別解を。

' // Like 演算子を利用する
Sub sample1()
　　Dim s As String
　　s = "あ"
　　If s Like "[あい]" Then
　　　　MsgBox "「あ」もしくは「い」です。"
　　Else
　　　　MsgBox "それ以外"
　　End If
End Sub

これを Select Case の中で使うなら、

Sub sample2()
　　Dim s As String
　　s = InputBox("Char?")
　　Select Case True
　　　　Case s Like "[あ-お]": MsgBox "あ行の1文字"
　　　　Case s Like "[か-こ]": MsgBox "か行の1文字"
　　　　Case Else:　　　　　　 MsgBox "それ以外"
　　End Select
End Sub

となります。

文字は[]内で一文字ずつリストにしても良いし、範囲指定も
できます。

Msgbox "あ" Like "[あいう]"
Msgbox "A" Like "[A-Z]"

また、ワイルドカードが利用可能です。

If "あめんぼ" Like "あ*" Then
　　Msgbox "「あ」で始まる"
End If

詳しくは、VBA のヘルプをどうぞ。

お礼

難しいやり方もあるのですね！
大変参考になりました。

回答No.1

keirika

Sub TEST()
文字 = "あ"
Select Case 文字
Case "あ", "い"
MsgBox "「あ」もしくは「い」です。"
End Select
End Sub

お礼

できました。ご回答ありがとうございます！