フリガナの取得（GetPhonetic メソッド）

2015/08/10

GetPhonetic メソッド

GetPhonetic メソッドは、指定した文字列のフリガナを取得します。ただし、Microsoft Office の言語の設定で日本語が選択またはインストールされている場合にのみ利用できます。

【書式】

object.GetPhonetic [ ( text ) ]

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
text ・・・フリガナに変換するテキストを指定します。省略すると、以前に指定された引数 text でのフリガナ候補の文字列を返します。候補の文字列がない場合は空の文字列を返します。

GetPhonetic メソッド使用例

サンプルVBAソース

　
Sub Sample_GetPhonetic()

    Range("A1").Value = "菅野美穂"
    
    Range("B1").Value = "大家志津香"
    
    Range("C1").Value = "山田享"
    
    Range("D1").Value = "二十歳"
    
    Range("E1").Value = "十六夜"
    
    
    Dim tmp
    Dim i As Integer, j As Integer
    
    For j = 1 To 5
        i = 0
        tmp = Application.GetPhonetic(Cells(1, j))
    
        Do While tmp <> ""
            i = i + 1
            Cells(i + 1, j) = tmp
            tmp = Application.GetPhonetic
        Loop
    
    Next j

    Range("A:E").Columns.AutoFit
    
End Sub

Sub Sample_GetPhonetic()

Range("A1").Value = "菅野美穂"

Range("B1").Value = "大家志津香"

Range("C1").Value = "山田享"

Range("D1").Value = "二十歳"

Range("E1").Value = "十六夜"

Dim tmp

Dim i As Integer, j As Integer

For j = 1 To 5

i = 0

tmp = Application.GetPhonetic(Cells(1, j))

Do While tmp <> ""

i = i + 1

Cells(i + 1, j) = tmp

tmp = Application.GetPhonetic

Loop

Next j

Range("A:E").Columns.AutoFit

End Sub

実行結果

- セルの操作 Application オブジェクト, GetPhonetic メソッド, VBA基本, エクセルVBA, セルの操作

Comment

木下誠二より:

2021年4月2日 7:04 PM

Getphoneticメソッド使用例をそのままコピーしてエクセルのVBAを動作させましたが、実行結果通りになりません。考えられる問題点を教えて頂けないでしょうか。
＜実行結果＞
A～Eまでの列はちゃんと表示されますが、行が１行目と2行目しか表示されず、3行目から6行目までが表示されません。
宜しくお願い致します。

返信
- サイト管理人より:
  
  2021年5月7日 11:38 PM
  
  コメントありがとうございます。
  私も今の環境（Windows10、Excel365）で試してみました。
  結果は、1行目と２行目しか表示されませんでした。
  フリガナは、１つしか表示されなくなったようです。
  少し調べてみたのですが、Windows7 では、この Getphoneticメソッドで、
  指定した文字列からすべてのふりがなを表示することができるのですが、
  Windows10 では、１つしか表示できないようです。
  ただ、何が原因なのかははっきりとはわかりませんでした。
  もしわかればここで報告しようと思います。
  また、すべてのふりがなを表示する別の方法があればまた記事にしようと思います。
  
  返信