文字列にフリガナ

フリガナを自動でつけるマクロ

動画で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

3行マクロフリガナを表示するマクロ記事解説へ戻る

次の動画3行マクロ動画講座14回