文字列にフリガナ
フリガナを自動でつけるマクロ
動画でExcelマクロ解説
フリガナを自動でつけるマクロ、別セルにフリガナを表示するマクロ
動画版「3行マクロ講座 フリガナを自動でつける」です。
データをテキストファイルで受けっとった場合など、それをそのまま利用しても、フリガナ は表示されません。
今回作成するマクロは、Excelのフリガナ機能が働かない場合に、 マクロで振り仮名を表示させるマクロです。
フリガナが設定されていないので、
Rangeオブジェクトに対してSetPhonetic（セットフォにテック）メソッドでふりがなを設定します。
また別セルにひらがなを表示させたい時に一括で自動表示させるマクロも紹介します。
マクロでフリガナを振る
https://youtu.be/fKsGrX4EUGE
VBA 氏名のフリガナを自動でつける、別セルにフリガナを表示するマクロ
フリガナを自動でつける、別セルにフリガナを表示動画内で紹介したVBAコード
'==============================================================
'=３行マクロ講座入門編 13回 https://kokodane.com/
'==============================================================
Sub フリガナ設定と表示1()
Selection.SetPhonetic
Selection.Phonetics.Visible = True
End Sub
Sub フリガナ設定と表示2()
With Selection
.SetPhonetic
.Phonetics.Visible = True
End With
End Sub
Sub フリガナ設定と非表示()
Selection.SetPhonetic
Selection.Phonetics.Visible = False
End Sub
Sub セルのフリガナを別セルに表示する()
Dim セル As Range
For Each セル In Selection
セル.Value = セル.Offset(0, -1).Phonetic.Text
Next
End Sub