VBA002 全角文字・半角文字を相互変換する方法

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：Ｅｘｃｅｌ　ＶＢＡ　エンジニア