EXCEL VBA ふりがな関連のマクロ

余裕がないけど仕事中に意外に簡単に組めて，便利だなぁと思ったのでメモ

まったくパワポで遊べてない名前詐欺ですがここでもとりあえず(;´▽｀A``

上の状態から下の状態にするマクロです。　氏名もふりがなも　全角スペースで姓と名を区切るというルールにしています。
半角スペースにも対応できるようにできそうですが，今は面倒なのでここまで。ちゃんと引数あったので修正

コードはこちら

Sub ふりがな設定(氏名セル As Range, ふりがな As String)
    With 氏名セル
        .Characters(1, InStr(1, 氏名セル.Value, "　", vbTextCompare) - 1).PhoneticCharacters = _
            Left(ふりがな, InStr(1, ふりがな, "　", vbTextCompare) - 1)
        .Characters(InStr(1, 氏名セル.Value, "　", vbTextCompare) + 1).PhoneticCharacters = _
            Mid(ふりがな, InStr(1, ふりがな, "　", vbTextCompare) + 1)
        With .Phonetic
            .CharacterType = xlHiragana
            .Font.Name = "MS UI Gothic"
            .Font.Size = 9
            .Alignment = xlPhoneticAlignCenter
        End With
        .Phonetics.Visible = True
    End With
End Sub

Sub Test()
    ふりがな設定 Selection, Selection.Offset(, 1).Value
End Sub

ふりがなをセルの文字列全体に対してつけると，あまりかっこよくないことがあるので，姓と名にわけてつけるようにしました，というだけのマクロ。

考えてみればきわめて簡単なものでしたが，急ぐときにぱぱっと書けるとは限りませんので，

備忘録でした。