Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

フリガナの取得（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

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

　

実行結果

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

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: オートフィルタ（抽出件数の取得・結果集計）AutoFilter メソッド

ワークシート関数の Subtotal 関数の使い方 VBA には、オートフィル …

: 並べ替え（Sort オブジェクト, SortFields コレクション）

Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …

: 列幅を取得・設定・する（ColumnWidth プロパティ）

ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …

: 指定した条件に一致するセルを取得（SpecialCells メソッド）

SpecialCells メソッド SpecialCells メソッドは、指定し …

: セル内の編集を禁止する（EditDirectlyInCell プロパティ）

EditDirectlyInCell プロパティエクセルでは、セルをダブルクリ …

: 直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）

Previous プロパティ・Next プロパティ Previous プロパティ …

: 対象のセルを参照している全てのセルを取得（Dependents プロパティ）

Dependents プロパティ Dependents プロパティは、対象のセル …

: 対象のセルが配列数式の一部かどうか（HasArray プロパティ）

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …

: 対象のセルが直接参照しているセル全てを取得（DirectPrecedents プロパティ）

DirectPrecedents プロパティ DirectPrecedents …

: セル・セル範囲をコピーする（Copy メソッド）

Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …

PREV: ワークシートを参照する（Sheets プロパティ）
NEXT: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)