Excelで半角カタカナを全角カタカナに変換するマクロ
前にWordでカタカナを半角から全角に変換するマクロを紹介しましたが、今回はExcel版を作りました。
Sub 半角カタカナを全角カタカナに変換()
'20190312 作成
'全角カタカナ（ァ...ヶ）
For c = -31936 To -31850
zen = Chr(c)
han = StrConv(zen, vbNarrow)
Call 置換(han, zen)
Next c
'ｰ→ー(長音)
han = "ｰ"
zen = "ー"
Call 置換(han, zen)
End Sub
Sub 置換(moto, saki)
'20190312 作成
Cells.Replace What:=moto, Replacement:=saki
End Sub
'20190312 作成
'全角カタカナ（ァ...ヶ）
For c = -31936 To -31850
zen = Chr(c)
han = StrConv(zen, vbNarrow)
Call 置換(han, zen)
Next c
'ｰ→ー(長音)
han = "ｰ"
zen = "ー"
Call 置換(han, zen)
End Sub
Sub 置換(moto, saki)
'20190312 作成
Cells.Replace What:=moto, Replacement:=saki
End Sub
[ 2019年3月12日 | カテゴリー: Excel | タグ: VBA , 変換 ]
« PHPのパラメータの有無を判定する方法 | アマゾンのアフィリエイトが正しく機能しているか調べる方法 »
コメントを残す