フリガナの取得(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 |
実行結果
関連記事
-
対象のセルが配列数式の一部かどうか(HasArray プロパティ)
HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …
-
セルの高さ・幅を取得(Height プロパティ・Width プロパティ)
Height プロパティ・Width プロパティ Height プロパティは、指 …
-
オートフィルタの状況を確認(AutoFilterMode, FilterMode)
AutoFilterMode プロパティ AutoFilterMode プロパテ …
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
列幅を取得・設定・する(ColumnWidth プロパティ)
ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
セル・セル範囲を切り取る(Cut メソッド)
Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …
-
書式で検索(Find メソッド,FindFormat プロパティ)
書式で検索 書式を条件にセルを検索する場合、まず、その書式条件を CellFor …
-
文字列をセル幅で折り返す(WrapText プロパティ)
WrapText プロパティ WrapText プロパティは、セルに表示されてい …
-
セル範囲を結合・結合を解除(Merge メソッド・UnMerge メソッド)
Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …
Comment
Getphoneticメソッド使用例をそのままコピーしてエクセルのVBAを動作させましたが、実行結果通りになりません。考えられる問題点を教えて頂けないでしょうか。
<実行結果>
A~Eまでの列はちゃんと表示されますが、行が1行目と2行目しか表示されず、3行目から6行目までが表示されません。
宜しくお願い致します。
コメントありがとうございます。
私も今の環境(Windows10、Excel365)で試してみました。
結果は、1行目と2行目しか表示されませんでした。
フリガナは、1つしか表示されなくなったようです。
少し調べてみたのですが、Windows7 では、この Getphoneticメソッドで、
指定した文字列からすべてのふりがなを表示することができるのですが、
Windows10 では、1つしか表示できないようです。
ただ、何が原因なのかははっきりとはわかりませんでした。
もしわかればここで報告しようと思います。
また、すべてのふりがなを表示する別の方法があればまた記事にしようと思います。