覚え書き

Excel覚え書き『フリガナ』

・・・本当にただのメモです。もっと簡単な方法があったら教えてください。lettersに入れておきます。

図のようにA列に氏名、B列にフリガナが入力されている状態。A列の氏名の上にフリガナのルビを振ろうとすると、変なルビが出ることがあります。これは、Excelが入力時の情報を保持しているためだそうです。そこでB列のフリガナをA列の氏名のフリガナ情報に上書きしましょう。

Sub tst01()
For i=2 to 7
Cells(i,1).Characters.PhoneticCharacters=Cells(i,2)
Cells(i,1).SetPhonetic
Cells(i,1).Phonetics.Visible=True
Next
End Sub