トップ > 汎用コード > ひらがな・全角/半角カタカナの相互変換

  このエントリーをはてなブックマークに追加  

ひらがな・全角/半角カタカナの相互変換

ひらがな・全角/半角カタカナを相互に変換し出力するマクロです。



名簿のフリガナに全角カタカナと半角カタカナが混在している・・・。
そんな折にデータの型を統一するために使用します。
セル範囲を選択し、該当マクロを実行すると、選択セル範囲の一つ右に、マクロ実行結果が表示されます。



コードの貼り付け場所

マクロ実行後に「元に戻す」機能は使用できません。事前の保存をお薦めします。

サンプルコード

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
ページトップへ戻る

Excel 汎用コード

Word 汎用コード

Copyright(C) 2009- 坂江 保 All Rights Reserved.