フリガナの取得(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 |
実行結果
関連記事
-
セル・セル範囲を切り取る(Cut メソッド)
Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …
-
任意のセルを含む行または列全体を参照(EntireRow プロパティ,EntireColumn プロパティ)
EntireRow プロパティ・EntireColumn プロパティ Entir …
-
並べ替え(Sort オブジェクト, SortFields コレクション)
Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …
-
セル内部を参照(Interior プロパティ)
Interior プロパティ Interior プロパティで、セルの内部を参照し …
-
セルが選択されているか確認する(TypeName 関数)
セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …
-
セルを削除する(Delete メソッド)
Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …
-
セルの幅・高さの自動調整(AutoFit メソッド)
AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲(R …
-
コメントの設定(Comments, Comment, AddComment, ClearComment)
コメントの設定 セルにコメントを新規に挿入するには、AddComment メソッ …
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
ハイパーリンク(Hyperlinks オブジェクト)
Hyperlinks オブジェクト ワークシートまたはセル範囲のワークシートコレ …
Comment
Getphoneticメソッド使用例をそのままコピーしてエクセルのVBAを動作させましたが、実行結果通りになりません。考えられる問題点を教えて頂けないでしょうか。
<実行結果>
A~Eまでの列はちゃんと表示されますが、行が1行目と2行目しか表示されず、3行目から6行目までが表示されません。
宜しくお願い致します。
コメントありがとうございます。
私も今の環境(Windows10、Excel365)で試してみました。
結果は、1行目と2行目しか表示されませんでした。
フリガナは、1つしか表示されなくなったようです。
少し調べてみたのですが、Windows7 では、この Getphoneticメソッドで、
指定した文字列からすべてのふりがなを表示することができるのですが、
Windows10 では、1つしか表示できないようです。
ただ、何が原因なのかははっきりとはわかりませんでした。
もしわかればここで報告しようと思います。
また、すべてのふりがなを表示する別の方法があればまた記事にしようと思います。