自分で作る関数　フリガナをつける

自分で作る関数　フリガナをつける

カタカナとヒラガナでフリガナをつける関数を自分で作りましょう

カタカナのフリガナ

=カタカナ(B2)

ひらがなのフリガナ

=ひらがな(B2)

関数の作り方

マクロを登録します

すでに作っている場合は不要です

表示　→　マクロ　→　マクロ登録

関数を作成

カタカナ関数

Function カタカナ(buf As String)
     カタカナ = Application.GetPhonetic(buf)
End Function

ひらがな関数

Function ひらがな(buf As String)
 ひらがな = StrConv(Application.GetPhonetic(buf), vbHiragana)
End Function

関数入力