インストールレスプログラミング( ´ー`)

VBA , JavaScript , HTAなど 365アプリはインストール必要ですが、仕事に無いケースはほぼないから(・_・;)

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

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

f:id:chemiphys:20180221221422p:plain
まったくパワポで遊べてない名前詐欺ですがここでもとりあえず(;´▽`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

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

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

備忘録でした。