フリガナの取得(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 |
実行結果
関連記事
-
-
引数に指定したセル範囲の共通のセル範囲を取得(Intersect メソッド)
Intersect メソッド Intersect メソッドは、引数に指定したセル …
-
-
オートフィルタ(矢印を非表示にする)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
-
フリガナの設定(SetPhonetic メソッド)
フリガナの設定(SetPhonetic メソッド) SetPhonetic メソ …
-
-
文字列の一部の書式を変更(Characters プロパティ)
文字列の一部を参照(Characters プロパティ) Characters プ …
-
-
文字列を縮小して全体を表示(ShrinkToFit プロパティ)
ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …
-
-
セル範囲を結合・結合を解除(Merge メソッド・UnMerge メソッド)
Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …
-
-
オートフィルタ(抽出条件で使用できる演算子・記号)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
セルを挿入する(Insert メソッド)
Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …
-
-
アクティブなセルを参照する(ActiveCell プロパティ)
ActiveCell プロパティ ActiveCell プロパティは、各ウィンド …