917

view

手打ち入力でなければ、ふりがな情報が無いので、表示されません。

GetPhoneticメソッドでふりがなが取得できます。
例をあげればこんな感じです。

With Activecell
.Phonetics.Visible = True
.Characters(1, Len(.Value)).PhoneticCharacters = Application.GetPhonetic(.Value)
End With

得られたふりがなが正しいとは限りません。
UserFormのTextBoxで取得し転記した方が良いかもしれません。

Dim phonetxt As String
phonetxt = Application.GetPhonetic(TextBox1.Value)
With ActiveCell
.Phonetics.Visible = True
.Characters(1, Len(.Value)).PhoneticCharacters = phonetxt
End With

いずれにしても、正しいかどうか検証が必要だと思います。


≫補足
下記のような感じでどうでしょうか。
TextBox2に、TextBox1に入力された文字のふりがなを表示します。
修正も出来ます。
y_sensさんのオリジナルコードは考慮していません。
良ければ、y_sensさんのコードに組み込んでください。

Private Sub CommandButton1_Click()
With ActiveCell
.Value = TextBox1.Value
.Phonetics.Visible = True
.Characters(1, Len(.Value)).PhoneticCharacters = TextBox2.Value
End With
End Sub

Private Sub TextBox1_Change()
Dim phonetxt As String
TextBox2.Value = Application.GetPhonetic(TextBox1.Value)
End Sub