ひらがな・全角/半角カタカナの相互変換2021.04.05
ひらがな・全角/半角カタカナを相互に変換し出力するマクロです。
名簿のフリガナに全角カタカナと半角カタカナが混在している・・・。
そんな折にデータの型を統一するために使用します。
セル範囲を選択し、該当マクロを実行すると、選択セル範囲の一つ右に、マクロ実行結果が表示されます。
マクロ実行後に「元に戻す」機能は使用できません。事前の保存をお薦めします。
【お薦め】マクロ・プロシージャを管理する無料のツール！
Excelマクロ管理ツール
Excelマクロ管理ツール
サンプルコード
コードの貼り付け場所 VBAコードをカラーで印刷・Web掲載するためのツールはこちら
Sub Sample_Hiragana() 'ひらがな If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(StrConv(r.Value, vbWide), vbHiragana) Next End Sub
Sub Sample_W_Katakana() '全角カタカナ If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(StrConv(r.Value, vbWide), vbKatakana) Next End Sub
Sub Sample_N_Katakana() '半角カタカナ If Not TypeName(Selection) = "Range" Then Exit Sub If 1 < Selection.Columns.Count Then Exit Sub Dim r As Range For Each r In Selection r.Offset(, 1).Value = StrConv(StrConv(r.Value, vbKatakana), vbNarrow) Next End Sub
関連記事：「大文字・小文字・全角/半角の相互変換」
