Public Sub phoneticSetting()
' A1セルにふりがなを設定
Range("A1").SetPhonetic
' A1セルのふりがなを表示
Range("A1").Phonetic.Visible = True
End Sub
ふりがなを設定・表示する
サンプルコード
Public Sub phoneticSettingHiragana()
' A1~A10セルにふりがなを設定
Range("A1:A10").SetPhonetic
' A1~A10セルにふりがなを「ひらがな」に変換
Range("A1:A10").Phonetic.CharacterType = xlHiragana
' A1~A10セルにふりがなを表示
Range("A1:A10").Phonetic.Visible = True
End Sub
コメント