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

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

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

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

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

For Each rng In Selection

Rangeオブジェクトの、Charactersオブジェクトの、PhoneticCharactersプロパティに空白文字列を設定しています。

 rng.Characters.PhoneticCharacters = ""
関連語句
フリガナをまとめて削除する

[スポンサードリンク]

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

「Charactersオブジェクト」の記事一覧

検索


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

.