文字種の変換

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

No.1 ベストアンサー 回答者： none123 回答日時： 2001/08/30 02:36

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

No.2 回答者： nishi6 回答日時： 2001/08/30 23:30

ふりがなは、シートの設定で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