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

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

2015/08/07

Characters プロパティ

Characters プロパティは、文字範囲を表す Characters オブジェクトを返します。
（ ※ Characters プロパティに関しては、文字列の一部の書式を変更（Characters プロパティ）を参照してください。）

【書式】

object.Characters ( start, length )

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
start ・・・取得する先頭文字の位置を指定します。1 を指定する、または、省力した場合、このプロパティは、先頭文字から始まる文字列範囲を返します。
length ・・・取得する文字数を指定します。引数 start で指定された文字からここで指定した文字分を返します。省略した場合は最後の文字までを返します。

Characters.PhoneticCharacters プロパティ

引数（start, length）で指定した文字列のフリガナ情報の取得、設定を行います。

【書式】

＜取得＞
object.Characters ( start, length ).PhoneticCharacters

＜設定＞
object.Characters ( start, length ).PhoneticCharacters = string

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
start ・・・取得する先頭文字の位置を指定します。1 を指定する、または、省力した場合、このプロパティは、先頭文字から始まる文字列範囲を返します。
length ・・・取得する文字数を指定します。引数 start で指定された文字からここで指定した文字分を返します。省略した場合は最後の文字までを返します。
string ・・・引数（start, length）で指定した文字列に設定するフリガナ（文字列型）を指定します。

Characters.PhoneticCharacters プロパティ使用例

サンプルVBAソース

　
Sub Sample_PhoneticCharaacters()


    Range("B2").Value = "振仮名の設定テスト使用例"
    
    Range("B3").Value = "東京都千代田区神田練塀町"
    
    Range("B4").Value = "山田太郎"
        
    With Range("B2")
        .Characters(1, 3).PhoneticCharacters = "ふりがな"
        .Characters(5, 2).PhoneticCharacters = "せってい"
        .Characters(10, 3).PhoneticCharacters = "しようれい"
    End With
    
    With Range("B3")
        .Characters(1, 3).PhoneticCharacters = "とうきょうと"
        .Characters(4, 4).PhoneticCharacters = "ちよだく"
        .Characters(8).PhoneticCharacters = "かんだねりべいちょう"
    End With
    
    With Range("B4")
        .Characters(Start:=1, Length:=2).PhoneticCharacters = "やまだ"
        .Characters(Start:=3).PhoneticCharacters = "たろう"
    End With
        
    Range("B2:B4").Phonetic.Visible = True

    Range("B:B").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

34

　

Sub Sample_PhoneticCharaacters()

Range("B2").Value = "振仮名の設定テスト使用例"

Range("B3").Value = "東京都千代田区神田練塀町"

Range("B4").Value = "山田太郎"

With Range("B2")

.Characters(1, 3).PhoneticCharacters = "ふりがな"

.Characters(5, 2).PhoneticCharacters = "せってい"

.Characters(10, 3).PhoneticCharacters = "しようれい"

End With

With Range("B3")

.Characters(1, 3).PhoneticCharacters = "とうきょうと"

.Characters(4, 4).PhoneticCharacters = "ちよだく"

.Characters(8).PhoneticCharacters = "かんだねりべいちょう"

End With

With Range("B4")

.Characters(Start:=1, Length:=2).PhoneticCharacters = "やまだ"

.Characters(Start:=3).PhoneticCharacters = "たろう"

End With

Range("B2:B4").Phonetic.Visible = True

Range("B:B").Columns.AutoFit

End Sub

　

実行結果

- セルの操作 Characters プロパティ, PhoneticCharacters メソッド, Range オブジェクト, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

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

関連記事

: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

PatternThemeColor プロパティ・PatternTintAndSh …

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

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

: セル範囲内を検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: オートフィルタ（AutoFilter メソッド）

AutoFilter メソッド【書式】 object.AutoFilter ( …

: ワイルドカードを使って検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: 任意の行または列を参照（Rows プロパティ,Columns プロパティ）

Rows プロパティ・Columns プロパティ Rows プロパティは、オブジ …

: 入力規則（Validation オブジェクト）

Validation オブジェクトセル範囲に入力できる値を制限するには入力規 …

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

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

: グラデーション（Pattern プロパティ・Gradient プロパティ）

セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …

: セル・セル範囲を貼り付ける（Paste メソッド）

Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …

PREV: フリガナの設定（SetPhonetic メソッド）
NEXT: ワークシートを参照する（Worksheets プロパティ）