【ExcelVBA】英数記号の半角変換
こんにちは。
Excel2013を使用しています。
カタカナは全角、英数記号は半角で表示を統一したく、ネットで検索したサンプルコードを範囲や条件等を変更して下記コードを作成しました。
(サンプルコードが記載されていたページに簡易な例で全ての場合に対応できていないとの但し書きがありました。)
下記コードを実行すると、記号のうち、括弧、中点については半角表示になりますが、＃については全角表示のままです。
Mid(rData, i, 1) Like "＃" の Like を = に変更して、Mid(rData, i, 1) = "＃" とすると、＃についても半角表示になりました。
“全ての場合に対応できていない”に該当するものなのかもしれませんが、Like では希望する結果を得られない理由は何なのか気になり、質問させていただきました。
よろしくお願いします。
--------------------------------------------------
Sub test()
Dim c As Range
Dim i As Integer
Dim rData As Variant, ansData As Variant
For Each c In Range(Cells(3, "D"), Cells(Cells(Rows.Count, "D").End(xlUp).Row, "D"))
ansData = ""
For i = 1 To Len(c.Value)
rData = StrConv(c.Value, vbWide)
If Mid(rData, i, 1) Like "[Ａ-ｚ]" Or Mid(rData, i, 1) Like "[０-９]" _
Or Mid(rData, i, 1) Like "（" Or Mid(rData, i, 1) Like "）" _
Or Mid(rData, i, 1) Like "・" Or Mid(rData, i, 1) Like "＃" Then
ansData = ansData & StrConv(Mid(rData, i, 1), vbNarrow)
Else
ansData = ansData & Mid(rData, i, 1)
End If
Next i
c.Value = ansData
Next c
End Sub
