入力された文字列に大文字と小文字が混在しているので統一したい
VBAの処理でユーザが入力した値に、大文字や小文字、全角と半角などが混在してしまう場合があります。このままだとデータの処理で問題が出てきてしまうので、統一させたいことがあります。このような場合に「UCase」関数や「StrConv」関数を利用すると簡単に変換できます。
１．小文字→大文字に変換。「UCase」関数と「StrConv」関数
結果は同じですが、「UCase」関数の方がシンプル。
(1)「UCase」関数の場合
「UCase」関数を使って変換するサンプルコードです。
|
|
'小文字→大文字' Sub 動作チェック() Dim str As String str = "abc123あいう4567ABC890ＤＥＦ１２３ａｂｃ" '全角半角両方とも小文字を大文字に変換する。' MsgBox UCase(str) '→「ABC123あいう4567ABC890ＤＥＦ１２３ＡＢＣ」と表示されます' End Sub |
(2)「StrConv」関数の「vbUpperCase」の場合
「StrConv」と「vbUpperCase」を使って変換するサンプルコードです。
|
|
'小文字→大文字' Sub 動作チェック() Dim str As String str = "abc123あいう4567ABC890ＤＥＦ１２３ａｂｃ" '全角半角両方とも小文字を大文字に変換する。' MsgBox StrConv(str, vbUpperCase) '→「ABC123あいう4567ABC890ＤＥＦ１２３ＡＢＣ」と表示されます' End Sub |
２．大文字→小文字に変換。「LCase」関数と「StrConv」関数
結果は同じですが、「LCase」関数の方がシンプル。
(1)「LCase」関数の場合
「LCase」関数を使って変換するサンプルコードです。
|
|
'大文字→小文字' Sub 動作チェック() Dim str As String str = "abc123あいう4567ABC890ＤＥＦ１２３ａｂｃ" '全角半角両方とも大文字を小文字に変換する。' MsgBox LCase(str) '→「abc123あいう4567abc890ｄｅｆ１２３ａｂｃ」と表示されます' End Sub |
(2)「StrConv」関数の「vbLowerCase」の場合
「StrConv」と「vbLowerCase」を使って変換するサンプルコードです。
|
|
'大文字→小文字' Sub 動作チェック() Dim str As String str = "abc123あいう4567ABC890ＤＥＦ１２３ａｂｃ" '全角半角両方とも大文字を小文字に変換する。' MsgBox StrConv(str, vbLowerCase) '→「abc123あいう4567abc890ｄｅｆ１２３ａｂｃ」と表示されます' End Sub |
◆関連記事
投稿: 2023年2月10日
【VBA】StrConv関数を利用して文字列の全角と半角・ひらがなとカタカナを変換する方法
