対象:Excel2000, Excel2002, Excel2003, Excel2007
VBA(Visual Basic for Applications)を使ってふりがなを設定・表示する方法をご紹介しています。
逆に、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オブジェクトの、PhoneticCharactersプロパティに空白文字列を設定しています。
rng.Characters.PhoneticCharacters = ""
関連語句
フリガナをまとめて削除する
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » VBAでふりがなを一括削除する-Characters.PhoneticCharacters