■ 半角カナをそのまま全角にする |
半角カナを全角カナに変換する場合には StrConv 関数を使用しますが、そのまま使用すると濁点などが自動的に連結されてしまいます |
濁点などを半角カナと同じように1文字で表現したい場合には、1文字ずつ全角カナに変換します |
Dim w_str1 As String ' 変換前文字列 Dim w_str2 As String ' 変換後文字列 Dim w_idx As Integer ' インデックス w_str1 = "ダクテンノマザッタハンカクモジ" w_str2 = "" For w_idx = 1 To Len(w_str1) ' 半角を全角に変換する w_str2 = w_str2 & StrConv(Mid$(w_str1, w_idx, 1), vbWide) Next w_idx |