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

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

スポンサーリンク

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ｱｲｳｴｵ
変換後：ＡＢＣＤＥ１２３４５アイウエオ
▲このページの一番上に戻る

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

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

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 = "ＡＢＣＤＥ１２３４５アイウエオ"
    strHankaku = StrConv(strZenkaku, vbNarrow)
    
    Debug.Print "変換前：" & strZenkaku
    Debug.Print "変換後：" & strHankaku
End Sub

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

実行結果
1
2

変換前：ＡＢＣＤＥ１２３４５アイウエオ
変換後：ABCDE12345ｱｲｳｴｵ
▲このページの一番上に戻る
スポンサーリンク
カテゴリー
スポンサーリンク