Home » エクセルマクロ・Excel VBAの使い方 » Charactersオブジェクト » Excel VBAでふりがなを一括削除する-Characters.PhoneticCharacters

Excel VBAでふりがなを一括削除する-Characters.PhoneticCharacters

対象: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

上記のマクロを実行すると、選択されているセルのふりがなをまとめて削除することができます。

選択範囲全体にループを回して、

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

Copyright © インストラクターのネタ帳 All Rights Reserved.

.