フリガナの取得(GetPhonetic メソッド)
GetPhonetic メソッド
GetPhonetic メソッドは、指定した文字列のフリガナを取得します。ただし、Microsoft Office の言語の設定で日本語が選択またはインストールされている場合にのみ利用できます。
【書式】
object.GetPhonetic [ ( text ) ]
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- text ・・・ フリガナに変換するテキストを指定します。省略すると、以前に指定された引数 text でのフリガナ候補の文字列を返します。候補の文字列がない場合は空の文字列を返します。
GetPhonetic メソッド 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
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 |
実行結果
関連記事
-
オートフィルタ(日付・時刻のグループ化)AutoFilter メソッド
グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …
-
セルを参照する(Range プロパティ)
Range プロパティ 任意のセルにアクセスするには Range プロパティを使 …
-
直前のセル・直後のセルを参照する(Previous プロパティ・Next プロパティ)
Previous プロパティ・Next プロパティ Previous プロパティ …
-
文字列を縮小して全体を表示(ShrinkToFit プロパティ)
ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …
-
指定した行数・列数移動したセル・セル範囲を参照(Offset プロパティ)
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …
-
ワイルドカードを使って検索(Find メソッド)
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …
-
セル幅・高さの既定値(StandardHeight プロパティ・StandardWidth プロパティ)
StandardHeight プロパティ・StandardWidth プロパティ …
-
セルの高さ・幅を取得(Height プロパティ・Width プロパティ)
Height プロパティ・Width プロパティ Height プロパティは、指 …
-
セル範囲内を検索(Find メソッド)
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …
-
セル内部を参照(Interior プロパティ)
Interior プロパティ Interior プロパティで、セルの内部を参照し …
Comment
Getphoneticメソッド使用例をそのままコピーしてエクセルのVBAを動作させましたが、実行結果通りになりません。考えられる問題点を教えて頂けないでしょうか。
<実行結果>
A~Eまでの列はちゃんと表示されますが、行が1行目と2行目しか表示されず、3行目から6行目までが表示されません。
宜しくお願い致します。
コメントありがとうございます。
私も今の環境(Windows10、Excel365)で試してみました。
結果は、1行目と2行目しか表示されませんでした。
フリガナは、1つしか表示されなくなったようです。
少し調べてみたのですが、Windows7 では、この Getphoneticメソッドで、
指定した文字列からすべてのふりがなを表示することができるのですが、
Windows10 では、1つしか表示できないようです。
ただ、何が原因なのかははっきりとはわかりませんでした。
もしわかればここで報告しようと思います。
また、すべてのふりがなを表示する別の方法があればまた記事にしようと思います。