EXCEL VBA セルのふりがな情報を表示（ふりがな一括表示・ふりがな自動作成・ふりがな情報の修正）「Phonetics・SetPhonetic・Application.GetPhonetic(text)」

EXCEL VBA セルのふりがな情報を表示（ふりがな一括表示・ふりがな自動作成・ふりがな情報の修正）

ふりがな情報を表示させる　『Phonetics.Visible』

Sub Phonetics01()
    
    Dim lRow As Long
     
    lRow = Cells(Rows.Count, "B").End(xlUp).Row  'B列の最終行を取得します。
     
    
    Range("B2:B" & lRow).Phonetic.Visible = True  '指定したセル（B列：B2～B15）のふりがなを表示させます。

        MsgBox "『ふりがな』を表示しました。"
    
    Range("B2:B" & lRow).Phonetic.Visible = False  '指定したセル（B列：B2～B15）のふりがなを表示させます。

        MsgBox "『ふりがな』を非表示にしました。"

End Sub

ふりがな情報を自動生成させる　『SetPhonetic』

Sub GetPhonetic01()  '住所から「ふりがな」へ変換

    Dim lRow, I As Long
    
    lRow = Cells(Rows.Count, "B").End(xlUp).Row  'B列の最終行を取得します。
    
        For I = 2 To lRow  '2行目から最終行まで
        
            Range("C" & I) = Application.GetPhonetic(Range("B" & I)) 'B列の住所からC列にフリガナを作成します。
    
        Next I
        
    MsgBox "全ての住所データを「ふりがな」に変換しました。"
        
End Sub

ふりがな情報の取得（自動生成）及び訂正（ふりがな候補）　『Application.GetPhonetic(text)』

Sub GetPhonetic02()  '名前をカナ文字訂正
    
    
    Dim lRow, I As Long
    Dim Kana As String
    
    
    lRow = Cells(Rows.Count, "B").End(xlUp).Row  'B列の最終行を取得します。
    
    For I = 2 To lRow  '2行目から最終行まで・・・①
    
        Kana = Application.GetPhonetic(Range("B" & I)) 'B列の指名からフリガナを作成します。・・・②
    
        Do While Kana <> ""    'ふりがなの次候補が無くなるまで繰り返します。・・・③
        
            If MsgBox("この名前『" & Range("B" & I) & "』の『ふりがな』は、" & Kana, vbYesNo) = vbYes Then　'フリガナ情報が合っているか・・・④
                            Range("C" & I) = Kana　'セルにフリガナ情報を登録します。・・・⑥
                            Exit Do
            End If
                
            Kana = Application.GetPhonetic()  'カナ文字の次候補を繰り返す。
                
        Loop
        
        If Kana = "" Then  'カナ文字候補かない場合は、実際に手入力します。
                  Kana = InputBox("正しいフリガナを入力してください")・・・・⑤
                  Range("C" & I) = Kana　'セルにフリガナ情報を登録します。・・・⑥
        End If
    Next I


End Sub