数式で出すと漢字以外のフリガナも全部出る。 =PHONETIC(A1) 以下VBA。まずは表示から。 Selection.Phonetics.Visible = True 'フリガナ表示 Selection.Phonetics.Visible = False 'フリガナ非表示 フリガナの設定。漢字も設定できた。 Selection.Characters…