構文
StrConv(string,conversion )
string ・・・・任意の文字列
conversion・・変換する文字種（下記定数参照）
conversion・・変換する文字種（下記定数参照）
定数
| 定数 | 値 | 内容 |
|---|---|---|
| vbUpperCase | 1 | アルファベットを「大文字」に変換 |
| vbLowerCase | 2 | アルファベットを「小文字」に変換 |
| vbProperCase | 3 | 単語の先頭文字を「大文字」に変換 |
| vbWide | 4 | 半角文字を「全角」に変換 |
| vbNarrow | 8 | 全角文字を「半角」に変換 |
| vbHiragana | 16 | カタカナを「ひらがな」に変換 |
| vbKatakana | 32 | ひらがなを「カタカナ」に変換 |
| vbUnicode | 64 | 「Unicode」に変換 |
| vbFromUnicode | 128 | 「システムの既定のコード」ページに変換 |
コードサンプル
Public Sub test()
MsgBox StrConv("ABC", vbLowerCase) 'abc
MsgBox StrConv("ｄｅｆ", vbUpperCase) 'ＤＥＦ
MsgBox StrConv("excel", vbProperCase) 'Excel
End Sub
結果サンプル
| 定数 | サンプル | 結果 |
|---|---|---|
| vbUpperCase | vBAまくろ エクセル２０１９ | VBAまくろ エクセル２０１９ |
| vbLowerCase | vBAまくろ エクセル２０１９ | vbaまくろ エクセル２０１９ |
| vbProperCase | vBAまくろ エクセル２０１９ | Vbaまくろ エクセル２０１９ |
| vbWide | vBAまくろ エクセル２０１９ | ｖＢＡまくろ エクセル２０１９ |
| vbNarrow | vBAまくろ エクセル２０１９ | vBAまくろ ｴｸｾﾙ2019 |
| vbHiragana | vBAまくろ エクセル２０１９ | vBAマクロ エクセル２０１９ |
| vbKatakana | vBAまくろ エクセル２０１９ | vBAまくろ えくせる２０１９ |
※vbUnicode、vbFromUnicodeは省略。
使い方例
上記定数で使用する頻度が高いのは、「vbNarrow」「vbWide」でしょう。
顧客台帳をエクセルで管理している企業様の場合、顧客名カナを「半角カタカナ」で統一すると社内ルールで決めていても、人によって全角カタカナになっている等、ヒューマンエラーがつきものです。ヒューマンエラーをマクロ側で調整する事が可能です。下記パーツ化したマクロも参考にしてください。
このような使い方も
定数を複数組み合わせる事で、合算した結果を求める事が可能です。
'■全角の英字(小文字、大文字もあり)を一度の変換で、半角英字にする
MsgBox StrConv("ＥＸＣＥＬｖｂａ", vbNarrow + vbLowerCase) 'excelvba
'■全角のひらがなを一度の変換で、半角カタカナにする
MsgBox StrConv("あいうえお", vbNarrow + vbKatakana) 'ｱｲｳｴｵ
コメント