Excel VBA セルにふりがなをつける・ふりがなを取得する-Phonetic.Text

Excel VBAでセルの文字に「ふりがな」をつけたり、ふりがなを取得する記録です。

ふりがなの設定、取得をするには、「Phonetics」オブジェクトの「Text」プロパティを使います。

このページはVBAを使った「ふりがな」を設定、取得する方法です。
▼▼  関数でふりがなを取得する方法はこちら  ▼▼
  >> Excel ふりがなを取得し、別のセルに表示する-PHONETIC関数

< スポンサーリンク >

「Text」プロパティ構文

指定されたオブジェクトのテキストを取得または設定します。

ふりがなをつける例

アクティブセルのふりがなの文字を「あいうえお」に設定します。

Sub test()
  ActiveCell.Phonetic.Text = "あいうえお"
End Sub

ふりがなを取得する例

アクティブセルのふりがなの文字を取得し、メッセージで表示します。

Sub test()
  MsgBox ActiveCell.Phonetic.Text
End Sub

セルの値をふりがなにするサンプル

C列に入力されているよみがなをB列のセルの値をふりがなに設定し、ふりがなを表示します。

Sub test()
  Dim i As Long
  For i = 2 To 10
    With ActiveSheet
        .Cells(i, 2).Phonetic.Text = .Cells(i, 3).Value
        .Cells(i, 2).Phonetics.Visible = True
    End With
  Next i
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします