![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Excel(エクセル) エクセルVBA Msgboxでの変数の活用 4 2023/07/23 08:33
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
ハイパーリンクの中の半角カタ...
-
ァ→ア (アクセス)
-
select case 大文字小文字を...
-
半角カタカナがVBAだと全角...
-
ATOK2005・ローマ字かな入力時...
-
ALT+半角を押すと普通はそのま...
-
半角カタカナ文字の入力方法。
-
文字を打つときに文字に下線が...
-
VBAでUPPER関数を使用したい。
-
日本語入力On/Offを音などで知...
-
一太郎で「漢字入力状態」にす...
-
キーボードの左上付近の半角/全...
-
エクセルでひらがな全角~カナ...
-
Illustrator8.0が勝手に閉じて...
-
EXCEL 「ASC」関数 ...
-
パソコンのアルファベット入力...
-
IME言語バーの文字の種類をキー...
-
WindowsのATOK (Passport: 現20...
-
【ATOK15】F8キーで半角カタカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
ハイパーリンクの中の半角カタ...
-
このセキュリティ質問を日本語...
-
ァ→ア (アクセス)
-
文字を打つときに文字に下線が...
-
select case 大文字小文字を...
-
半角カタカナがVBAだと全角...
-
Enterキー左横上のキーの小さい...
-
ローマ字打ちからひらがな打ち...
-
Excelで全角を半角にしたいので...
-
ATOKの入力がおかしくなること...
-
エクセルで、半角カタカナの住...
-
エクセルでひらがな全角~カナ...
-
携帯メルアドに大文字はダメ?
-
ファイル名を半角大文字にする...
-
半角英数字を大文字に変換する...
-
ATOK ローマ字入力モードに一発...
-
VBAでUPPER関数を使用したい。
-
MSNメッセンジャーで
-
ピボットテーブルでワイルドカード
おすすめ情報