
select case 大文字小文字を区別しないようにするには?
Sub test01()
Dim str As String
str = "A"
Select Case str
Case "a"
MsgBox "aです"
Case "A"
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ベストアンサー
- 回答日時:
こんばんは!
>大文字小文字区別なく・・・
に関しては
大文字・小文字関係なく、たとえば大文字に変換したものが「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
- 回答日時:
fibwrhhzlc7様
こんにちは。
大きく方法は2つあると思います。
どちらかで対応して下さい。
1.モジュール単位に半角・全角、大文字・小文字を区別しない方法
モジュールの先頭に「Option Compare Text」を指定すればOKです。
※ひらがな、カタカナの区別もしませんので注意が必要です。
Option Compare Text
Sub test01()
Dim str As String
str = "A"
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
----------------------------
2.関数で半角・全角変換、大文字・小文字変換を行う。
・LCase関数 … 大文字を小文字に変換
・StrConv関数のvbNarrow … 全角を半角に変換
Sub test03()
Dim str As String
str = "A"
Select Case StrConv(LCase(str), vbNarrow)
Case "a"
MsgBox "aです"
End Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
ハイパーリンクの中の半角カタ...
-
Photoshopでローマ字が打てなく...
-
エクセル:全角→半角の自動変換...
-
特打ヒーローズ名探偵コナン ...
-
ATOKの入力がおかしくなること...
-
「トゥ」をローマ字で打ちたい...
-
shifキーを押しながらの半角英...
-
小さい「ウ」ってキーボードで...
-
「”」と対になる「チョンチョン...
-
ローマ字入力のキーボードで最...
-
=を縦にした キーボードの入力...
-
ウィンドウズパソコンを立ち上...
-
プラス(足す)キーはどうやっ...
-
プーリーのキーが外れない
-
漢字変換が異常に遅いPC
-
X₁=3、X₂=4 の 小さい数字の...
-
exp(13.4)を関数電卓で計算する...
-
ゲーム中のキーボードの挙動に...
-
キー局5社について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
ハイパーリンクの中の半角カタ...
-
ァ→ア (アクセス)
-
半角カタカナがVBAだと全角...
-
文字を打つときに文字に下線が...
-
select case 大文字小文字を...
-
ATOKの入力がおかしくなること...
-
ATOK ローマ字入力モードに一発...
-
特定の文字列を検索し、HITした...
-
ボーダフォンです
-
日本語入力On/Offを音などで知...
-
google日本語入力
-
Photoshopでローマ字が打てなく...
-
エクセルで一括して変換
-
フリガナをふりがなに変換でき...
-
筆ぐるめVer10で、かな入力が...
-
文字変換でなかなかひらがなに...
-
ソースネクストアプリをインス...
-
ATOKって、「カタカナ ひらがな...
-
エクセルで、半角カタカナの住...
おすすめ情報