Sub 振り仮名を付ける()
    Selection.SetPhonetic
    Range("A1").Select
End Sub