ひらがな変換▼エクセルマクロ

▼画像(1)


▼0626(08)▼

●ひらがな変換▼エクセルマクロ
▼ ＜ マクロの利用例（B-1） ＞ ▼
▼1)セルのカタカナをひらがな変換する。
▲=PHONETIC()は、フリガナ表示ができる関数です。
▲漢字選択→【書式】→▲※1)【ふりがな】→▲※1)→【設定】/ダイアログ表示でひらがな/カタカナ/カタカナ・・・かなの表示形式の設定ができます。また、▲※1)→【表示/非表示】でふりがな表示のON/OFF設定ができます。

▲カタカナ範囲→【Copy】→【値形式貼付】でカタカナ文字を準備します。このカタカナ部分を▲カタカナ範囲選択→ひらがな変換の【マクロ】ボタン→でひらがな変換表示されます。
▼上記の【マクロ】ボタンのVBAコードは次の通りです。

'▼マクロの開始▼＋－－－－－＋
'▼1)セルのカタカナをひらがなに変換する。
Sub a_ひらがな変換()
'▼1)選択範囲の各セルに対して、
'　　　For～Nextの間の命令を実行する。
  For Each セル In Selection
'▼2)変数「セル」の値＝文字列を変換
'　　（直前の選択セルの値，ひらがな変換）
セル.Value = StrConv(セル.Value, vbHiragana) 
　Next
'▲マクロの終了▲＋－－－－－＋
End Sub

▲0626(08)▲