対象：Excel2000, Excel2002, Excel2003, Excel2007
VBAを使ってふりがなを設定・表示する方法をご紹介しています。
逆に、VBAでふりがなを削除するにはどうしたらいいのかといったご質問をいただくこともあります。
［スポンサードリンク］
ふりがなを設定するほうは、
Selection.SetPhonetic
という1行だけでOKですが、削除するほうはループを回す必要があります。
Sub 選択されているセル範囲のふりがなをまとめて削除する()
Dim rng As Range
For Each rng In Selection
rng.Characters.PhoneticCharacters = ""
Next rng
End Sub
Dim rng As Range
For Each rng In Selection
rng.Characters.PhoneticCharacters = ""
Next rng
End Sub
上記のマクロを実行すると、選択されているセルのふりがなをまとめて削除することができます。
選択範囲全体にループを回して、
For Each rng In Selection
Range.CharactersプロパティでCharactersオブジェクトを取得して、Characters.PhoneticCharactersプロパティに空白文字列を設定しています。
rng.Characters.PhoneticCharacters = ""
最終更新日時：2024-04-25 13:25
［スポンサードリンク］
Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » Excel VBAでふりがなを一括削除する－Characters.PhoneticCharacters
