![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・全角から半角へ変換
・半角から全角へ変換
できます!
※アルファベット、数字、カタカナを変換できます。
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBA関数「StrConv」で
変換できます!
※「String Conversion(文字列の変換)」の略です。
全角から半角へ変換
ここでは例として
・「090-1234-5678」を
・「090-1234-5678」へ変換
します。
※数字を全角から半角へ変換します。
Option Explicit
Sub sample()
Dim targetStr As String
Dim result As String
'半角へ変換したい全角
targetStr = "090-1234-5678"
'全角から半角へ変換
result = StrConv(targetStr, vbNarrow)
'変換されたことを確認
MsgBox (result)
End Sub
上記を実行すると
・数字を全角から半角へ変換できること
を確認できます。
![実行結果(全角→半角)](https://excel-vba.work/wp-content/uploads/2022/09/vba_StrConv_vbNarrow_001.png)
半角から全角へ変換
ここでは例として
・「090-1234-5678」を
・「090-1234-5678」へ変換
します。
※数字を半角から全角へ変換します。
Option Explicit
Sub sample()
Dim targetStr As String
Dim result As String
'全角へ変換したい全角
targetStr = "090-1234-5678"
'半角から全角へ変換
result = StrConv(targetStr, vbWide)
'変換されたことを確認
MsgBox (result)
End Sub
上記を実行すると
・数字を半角から全角へ変換できること
を確認できます。
![](https://excel-vba.work/wp-content/uploads/2022/09/vba_StrConv_vbWide_001.png)
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●VBA関数「StrConv」