フリガナを振る(SetPhonetic) : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBAで入力された名前や、他のソフトからコピーし貼り付けた名前にフリガナを振ります。

Excelシート画面

C列の「この列に名前を貼り付け」の下にフリガナを振りたい文字列をセットします。
フリガナを振る前のシート

「フリガナをふる」ボタンをクリックするとD列に結果を表示します。
フリガナを振る後のシート

スポンサーリンク



Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim rngname As Range
    Dim rngbuf As Range
    Dim lmaxrow As Long
    
    '最下行を取得
    lmaxrow = ActiveSheet.Range("C65536").End(xlUp).Row
    
    '対象範囲
    Set rngname = Range(Cells(6, 3), Cells(lmaxrow, 3))
    
    'フリガナを作成する
    rngname.SetPhonetic
    
    For Each rngbuf In rngname
        'フリガナを右横に表示する
        rngbuf.Offset(0, 1).Value = rngbuf.Phonetic.Text
    Next
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved