エクセルのsetphonetic関数

質問

たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。正しくは「ワケ　トシヨ」です。「和家」を「ワケ」と読ませるようにできるのでしょうか。

回答No.4

cj_mover

＃３、ｃｊです。
すみません、訂正が２点あります。

誤）
　　　　With .EntireRow.Cells(1, "C")
　　　　　　If .FormulaLocal = "" Then .FormulaLocal = "=PHONETIC(" & .Address & ")"
　　　　End With
正）
　　　　With .EntireRow.Cells(1, "C")
　　　　　　If .FormulaLocal = "" Then .FormulaLocal = "=PHONETIC(" & ActiveCell.Address & ")"
　　　　End With

誤）
　　　　　　' ' 現在のフリガナ と フリガナ候補 が 一致したら 次のフリガナ候補　を取得
　　　　　　If sS = sD Then sD = Application.GetPhonetic()
正）
　　　　　　' ' 現在のフリガナ と フリガナ候補 が 一致したら 次のフリガナ候補　を取得
　　　　　　sD = Application.GetPhonetic()

以上のように訂正をお願いします。

尚、.GetPhonetic メソッドも完全ではありませんから、
＃２のマクロを繰り返し実行した後、
フリガナが削除されるまでの間に、お望みのフリガナが設定できない場合は、
ＩＭＥ側のフリガナ候補に無い、ということですから、
手作業で書換える場合も出てきます。
因みに、ＩＭＥではすべての漢字にフリガナとの関連付けがされている訳でもなくて、
極稀に特殊な漢字では自動でフリガナが付かない場合もあるようです。

以上、失礼しました。