フリガナ（Phonetic プロパティ）

2015/08/04 2015/08/26

Phonetic プロパティ

文字列（漢字など）をキーボードから入力した時の「読み」がフリガナの情報として記録されます。Phonetic プロパティは、その情報を取得することができます。

Phonetic プロパティ

【書式】

object.Phonetic

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。

キーボード入力したときの読みがフリガナの情報として登録されます。予測変換等で入力した場合、入力した分の読みのみがフリガナとして登録されるので注意してください。例えば、「おだの」と入力した時に、変換候補に「織田信長」が表示されそれを選択して入力した場合の「織田信長」のフリガナは、「おだの」になってしまいます。

キーボード以外から漢字を入力（ブラウザなど他のソフトからコピーしたものをペーストしたり、マクロ（VBA）から入力）した場合、その漢字自体がフリガナとしてに登録されます。

キーボード入力、コピーアンドペーストにかかわらず、アルファベットを入力した場合は、アルファベットがそのままフリガナとして登録されます。ひらがなやカタカナの場合は、いずれもカタカナで登録されます。（フリガナは、カタカナが標準です。フリガナの種類を変更するには、CharacterType プロパティを使用します。）

Phonetic オブジェクトの主なプロパティ

Phonetic.Alignment プロパティ

フリガナの位置を表す値を取得または設定します。

【書式】

＜取得＞
Phonetic.Alignment

＜設定＞
Phonetic.Alignment = const

引数・戻り値

const ・・・セルに表示するフリガナの位置を表す XlPhoneticAlignment 列挙型の定数を指定します。

定数値内容

xlPhoneticAlignNoControl 0 Excel が配置を制御

xlPhoneticAlignLeft 1 左揃え

xlPhoneticAlignCenter 2 中央揃え

xlPhoneticAlignDistributed 3 均等割り付け

ひらがな、カタカナ、アルファベットは、Visible プロパティを True にしても表示されません。表示したい場合は、Alignment プロパティに、xlPhoneticAlignNoControl を指定します。

Phonetic.Text プロパティ

フリガナの取得・設定を行います。文字列型（String）の値を使用します。

【書式】

＜取得＞
Phonetic.Text

＜設定＞
Phonetic.Text = string

引数・戻り値

string ・・・フリガナを「ひらがな」「カナカナ」で、設定します。（漢字・アルファベットを指定するとその漢字・アルファベットが、そのままフリガナの情報として登録されます。）

Phonetic.Visible プロパティ

セルに、フリガナをを表示するかどうかを表すブール型（Boolean）の値を設定します。値の取得および設定が可能です。

【書式】

＜取得＞
Phonetic.Visible

＜設定＞
Phonetic.Visible = boolean

引数・戻り値

boolean ・・・セルにフリガナを表示するには、True を、表示しない場合は、False を指定します。

Phonetic.Font プロパティ

セルに表示されるフリガナに設定されているフォントを表す Font オブジェクトを返します。

【書式】

Phonetic.Font

セルのフリガナのフォントの取得・設定

【フォント取得例】

　　msgbox Range(“A1”).Phonetic.Font.Name

【フォント設定例】

　　Range(“A1”).Phonetic.Font.Name = “メイリオ”

Font プロパティについての詳細は、フォントの設定（Font プロパティ）を参照してください。

Phonetic.CharacterType プロパティ

セルに表示するフリガナの種類を設定します。値の取得および設定が可能です。
指定できるフリガナの種類は、「ひらがな」「カタカナ」「半角カタカナ」「無変換」の４種類です。

【書式】

＜取得＞
Phonetic.CharacterType

＜設定＞
Phonetic.CharacterType = const

引数・戻り値

const ・・・セルに表示するフリガナの種類を表す XlPhoneticCharacterType 列挙型の定数を指定します。

定数値内容

xlKatakanaHalf 0 半角カタカナ

xlKatakana 1 カタカナ

xlHiragana 2 ひらがな

xlNoConversion 3 無変換

フリガナ（Phonetic プロパティ）使用例

サンプルVBAソース

　
Sub Sample_Phonetic1()

    'セル「B1」～「G1」には、名前を手入力

    'セル「H1」～「J1」には、名前を マクロを使って入力
    Range("H1:J1") = Array("田中美麗", "千原せいじ", "津田寛治")
    
    'フリガナを表示する
    Range("B1:J1").Phonetic.Visible = True
    
    'フォントを設定する
    Range("B1:C1,G1,J1").Phonetic.Font.Name = "AR PＰＯＰ４B"
    Range("D1,H1:I1").Phonetic.Font.Name = "ＭＳ Ｐゴシック"
    Range("E1:F1").Phonetic.Font.Name = "HGP創英角ﾎﾟｯﾌﾟ体"
    
    'フリガナの種類を設定する
    Range("B1:C1").Phonetic.CharacterType = xlKatakanaHalf    '0:半角カナ
    Range("D1:E1").Phonetic.CharacterType = xlKatakana        '1:カタカナ
    Range("F1:J1").Phonetic.CharacterType = xlHiragana        '2:ひらがな
    
    'フリガナを設定する
    Range("H1").Phonetic.Text = "タナカミレイ"
    Range("I1").Phonetic.Text = "チハラセイジ"
    
    Dim i
    i = 2
        
    Do While Cells(1, i) <> ""
    
        'フリガナ
        Cells(2, i) = Cells(1, i).Phonetic.Text
        
        'フォント名
        Cells(3, i) = Cells(1, i).Phonetic.Font.Name
        
        'テキストの種類
        '0：半角カナ、1：カタカナ、2：ひらがな、3：無変換
        Cells(4, i) = Cells(1, i).Phonetic.CharacterType
        
        i = i + 1
    
    Loop
    
    'セル「B3:J3」を縮小して全体を表示する
    Range("B1:J3").ShrinkToFit = True
    

End Sub

Sub Sample_Phonetic1()

'セル「B1」～「G1」には、名前を手入力

'セル「H1」～「J1」には、名前をマクロを使って入力

Range("H1:J1") = Array("田中美麗", "千原せいじ", "津田寛治")

'フリガナを表示する

Range("B1:J1").Phonetic.Visible = True

'フォントを設定する

Range("B1:C1,G1,J1").Phonetic.Font.Name = "AR PＰＯＰ４B"

Range("D1,H1:I1").Phonetic.Font.Name = "ＭＳＰゴシック"

Range("E1:F1").Phonetic.Font.Name = "HGP創英角ﾎﾟｯﾌﾟ体"

'フリガナの種類を設定する

Range("B1:C1").Phonetic.CharacterType = xlKatakanaHalf '0:半角カナ

Range("D1:E1").Phonetic.CharacterType = xlKatakana '1:カタカナ

Range("F1:J1").Phonetic.CharacterType = xlHiragana '2:ひらがな

'フリガナを設定する

Range("H1").Phonetic.Text = "タナカミレイ"

Range("I1").Phonetic.Text = "チハラセイジ"

Dim i

i = 2

Do While Cells(1, i) <> ""

'フリガナ

Cells(2, i) = Cells(1, i).Phonetic.Text

'フォント名

Cells(3, i) = Cells(1, i).Phonetic.Font.Name

'テキストの種類

'0：半角カナ、1：カタカナ、2：ひらがな、3：無変換

Cells(4, i) = Cells(1, i).Phonetic.CharacterType

i = i + 1

Loop

'セル「B3:J3」を縮小して全体を表示する

Range("B1:J3").ShrinkToFit = True

End Sub

実行結果

サンプルVBAソース実行前

実行後

- セルの操作 Phonetic プロパティ, Range オブジェクト, VBA基本, エクセルVBA, セルの操作

Message コメントをキャンセル

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

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

: セル・セル範囲を切り取る（Cut メソッド）

Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …

: セルに値を設定する・セルの値を参照する（Value2 プロパティ）

Value2 プロパティ Value プロパティとの違いは、Value2 プロパ …

: セルの特定の要素のみをペーストする（PasteSpecial メソッド）

PasteSpecial メソッド PasteSpecial メソッドは、Cop …

: ハイパーリンク（Hyperlink オブジェクト）

Hyperlink オブジェクト Hyperlinks コレクションのメンバー …

: フリガナの設定（Characters プロパティ,PhoneticCharacters メソッド）

Characters プロパティ Characters プロパティは、文字範囲を …

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

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

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

: セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）

Merge メソッド・UnMerge メソッドセルを結合するには、指定したセル …

: セルのロック（Locked プロパティ）

セルのロック（Locked プロパティ） Locked プロパティで、セルのロッ …

PREV: ワークシートをアクティブにする・選択する（Activate, Select）
NEXT: アクティブシートを参照する（ActiveSheet プロパティ）

定数	値	内容
xlPhoneticAlignNoControl	0	Excel が配置を制御
xlPhoneticAlignLeft	1	左揃え
xlPhoneticAlignCenter	2	中央揃え
xlPhoneticAlignDistributed	3	均等割り付け

定数	値	内容
xlKatakanaHalf	0	半角カタカナ
xlKatakana	1	カタカナ
xlHiragana	2	ひらがな
xlNoConversion	3	無変換

フリガナ（Phonetic プロパティ）

Phonetic プロパティ

Phonetic プロパティ

引数・戻り値

Phonetic オブジェクトの主なプロパティ

Phonetic.Alignment プロパティ

引数・戻り値

Phonetic.Text プロパティ

引数・戻り値

Phonetic.Visible プロパティ

引数・戻り値

Phonetic.Font プロパティ

セルのフリガナのフォントの取得・設定

【フォント取得例】

【フォント設定例】

Phonetic.CharacterType プロパティ

引数・戻り値

フリガナ（Phonetic プロパティ） 使用例

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

フリガナ（Phonetic プロパティ）使用例