StrConv関数の使い方
StrConv(文字列 , 変換方法)
変換方法は全角文字・半角文字の相互変換以外にもいくつかあるので、表形式で一覧にしました。
No 値 意味
1 vbUpperCase 大文字に変換
2 vbLowerCase 小文字に変換
3 vbProperCase 各単語の先頭の文字を大文字に変換
4 vbWide 半角文字を全角文字に変換
5 vbNarrow 全角文字を半角文字に変換
6 vbKatakana ひらがなをカタカナに変換
7 vbHiragana カタカナをひらがなに変換
8 vbUnicode 文字列をUnicodeに変換
変換方法にvbNarrowを入れた場合は全角文字を半角文字、vbWideを入れた場合は半角文字を全角文字に変更することができます。
StrConv関数を使ったサンプルコード
Sub Test()
Dim strTarget As String
strTarget = "Ｅｘｃｅｌ VBA エンジニア"
'全角文字を半角文字に変換
Dim strResult_vbNarrow As String
strResult_vbNarrow = StrConv(strTarget, vbNarrow)
'半角文字を全角文字に変換
Dim strResult_vbWide As String
strResult_vbWide = StrConv(strTarget, vbWide)
'変換結果確認
Debug.Print "「Ｅｘｃｅｌ VBA エンジニア」変換結果" & vbCrLf & _
"------------------------------------------" & vbCrLf & _
"vbNarrow：" & strResult_vbNarrow & vbCrLf & _
"vbWide：" & strResult_vbWide
End Sub
実行結果：
「Ｅｘｃｅｌ VBA エンジニア」変換結果
vbNarrow：Excel VBA ｴﾝｼﾞﾆｱ
vbWide：Ｅｘｃｅｌ ＶＢＡ エンジニア