NEW ARTICLE
Vue warn: Invalid expression for dynamic argument expressionの解決方法
  1. HOME
  2. vba
  3. VBA 全角文字を半角文字に変換する

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

  • 作成日 2022.09.16
  • vba
VBA 全角文字を半角文字に変換する

VBAで、全角文字を半角文字に変換するコードを記述してます。

目次

環境

  • OS windows10 64bit

サンプルコード

全角文字を半角文字に変換するには、「StrConv」で「vbNarrow」を指定します。

StrConv("文字列", vbNarrow)

or

StrConv("文字列", 8)

【例】
StrConv("ｱｲｳｴｵ", 8)
' アイウエオ

適当なボタンを用意して、セル上にある文字列「ｱｲｳｴｵ」を全角文字に変換してセルに表示する
以下のソースコードを記述します。

ソースコード

Option Explicit

Private Sub CommandButton1_Click()

    Cells(3, 3).Value = StrConv(Cells(3, 2).Value, vbWide)

End Sub

ボタンをクリックすると、全角文字に変換されていることが確認できます。