select case 大文字小文字を区別しないよ

質問

select　case　大文字小文字を区別しないようにするには？

Sub test01()
Dim str As String
str = "A"

Select Case str
Case "a"
MsgBox "aです"
Case "Ａ"
MsgBox "aです"
End Select

End Sub

これだと、半角全角がヒットしないのはなんとなくしょうがないかな、と思うのですが
大文字小文字がちがくてもヒットさせるにはどうすればいいですか？

Sub test01()
Dim str As String
str = "A"

Select Case str
Case "a", "A"
MsgBox "aです"

End Select

End Sub

とするしかないでしょうか？

大文字小文字区別なく評価する方法があれば教えてください。よろしくお願いします。

回答No.2

tom04 · ベストアンサー

こんばんは！

＞大文字小文字区別なく・・・
に関しては
大文字・小文字関係なく、たとえば大文字に変換したものが「A」であれば「aです」といったやり方はどうでしょうか？

Sub test01()
Dim str As String
str = "a"
If UCase(str) = "A" Then
MsgBox "aです"
End If
End Sub

※　小文字に変換する場合は
If LCase(str) = "a" Then
といった感じになります。m(_ _)m

お礼

どうもありがとうございました。

回答No.1

jcctaira

fibwrhhzlc7様
こんにちは。

大きく方法は２つあると思います。
どちらかで対応して下さい。

１．モジュール単位に半角・全角、大文字・小文字を区別しない方法
　モジュールの先頭に「Option Compare Text」を指定すればOKです。
　※ひらがな、カタカナの区別もしませんので注意が必要です。

Option Compare Text
Sub test01()
　Dim str As String
　str = "Ａ"
　Select Case str
　　Case "a"
　　　MsgBox "aです"
　End Select
End Sub

Sub test02()
　Dim str As String
　str = "あ"
　Select Case str
　　Case "ア"
　　　MsgBox "アです"
　End Select
End Sub
----------------------------

２．関数で半角・全角変換、大文字・小文字変換を行う。
　　・LCase関数　　　　　　　　…　大文字を小文字に変換
　　・StrConv関数のvbNarrow　…　全角を半角に変換

Sub test03()
　Dim str As String
　str = "Ａ"
　Select Case StrConv(LCase(str), vbNarrow)
　　Case "a"
　　　MsgBox "aです"
　End Select
End Sub

お礼

どうもありがとうございました。