エクセルで情報関数のPHONETICを使って
ふり仮名を表示させる際、カタカナ表示となっていますが
これをひらがなで表示させる方法はないでしょうか。
もし無理なら、関数使用時のセルと別のセルにひらがな
表示する方法でもよいのですが。
ちなみに処理するセルは単独ではなく複数あります。

A 回答 (2件)

ふりがなは、シートの設定でPhoneticの表示種類を変えられますが、以下のユーザー定義関数はどのような設定がされていても指定した文字種類で表示します。


=Furigana(A1,3)のようにして使います。(Excel2000です)

参考に、文字をひらがなにするユーザー定義関数も書いておきます。ご参考に。


標準モジュールに貼り付けます。

フリガナを指定の文字種にする。
 1:半角カタカナ、2:全角カタカナ、3:全角ひらがな
Public Function Furigana(moji As Range, kata)
  Dim dmy As String
  dmy = WorksheetFunction.Phonetic(moji)
  Select Case kata
    Case 1: dmy = StrConv(dmy, vbNarrow + vbKatakana) '半角カタカナ
    Case 2: dmy = StrConv(dmy, vbKatakana + vbWide) '全角カタカナ
    Case 3: dmy = StrConv(dmy, vbHiragana + vbWide) '全角ひらがな
  End Select
  Furigana = dmy
End Function

文字を指定の文字種にする
 1:半角カタカナ、2:全角カタカナ、3:全角ひらがな
Public Function Henkan(moji As String, kata)
  Select Case kata
    Case 1: moji = StrConv(moji, vbNarrow + vbKatakana) '半角カタカナ
    Case 2: moji = StrConv(moji, vbKatakana + vbWide) '全角カタカナ
    Case 3: moji = StrConv(moji, vbHiragana + vbWide) '全角ひらがな
  End Select
  Henkan = moji
End Function
    • good
    • 0

メニューの 「書式」→「ふりがな」→「設定」→ で、種類を「ひらがな」にすれば、PHONETICのふりがなも 同じ状態になりますよ。

    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報