分かりやすく、使いやすく。

半角を全角に変換、全角を半角に変換する方法

スポンサーリンク

Excel VBA で半角文字を全角文字に変換、または全角文字を半角文字に変換するには StrConv を使用します。

  1. 半角文字を全角文字に変換する
  2. 全角文字を半角文字に変換する


半角文字を全角文字に変換する

サンプルコードは次の通りです。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Test()
    Dim strHankaku As String
    Dim strZenkaku As String
    
    strHankaku = "ABCDE12345アイウエオ"
    strZenkaku = StrConv(strHankaku, vbWide)
    
    Debug.Print "変換前:" & strHankaku
    Debug.Print "変換後:" & strZenkaku
End Sub 

上記の実行結果は次の通りです。

実行結果
1
2
変換前:ABCDE12345アイウエオ
変換後:ABCDE12345アイウエオ 

全角文字を半角文字に変換する

サンプルコードは次の通りです。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Test()
    Dim strHankaku As String
    Dim strZenkaku As String
    
    strZenkaku = "ABCDE12345アイウエオ"
    strHankaku = StrConv(strZenkaku, vbNarrow)
    
    Debug.Print "変換前:" & strZenkaku
    Debug.Print "変換後:" & strHankaku
End Sub 

上記の実行結果は次の通りです。

実行結果
1
2
変換前:ABCDE12345アイウエオ
変換後:ABCDE12345アイウエオ 
スポンサーリンク
スポンサーリンク