1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. ふりがな情報

ふりがな情報:Excel VBA入門

Phoneticsオブジェクト　　　topへ

Visible プロパティ

• ふりがなの表示/非表示を設定します。
• コード例
  

  Sub test() 　　Range("A1").Phonetics.Visible = True 　　Range("A2").Phonetics.Visible = False End Sub

• 実行例
  

Alignment プロパティ

• ふりがなの位置を設定します。
• 単語単位での配置を設定します。
  

  XlPhoneticAlignCenter	中央揃え
  XlPhoneticAlignDistributed	均等割り付け
  XlPhoneticAlignLeft	左揃え
  XlPhoneticAlignNoControl	ひらがなやカタカナに対してもふりがなを表示します

• コード例
  

  Sub test() 　　Range("A1").Phonetics.Alignment = xlPhoneticAlignCenter 　　Range("A2").Phonetics.Alignment = xlPhoneticAlignDistributed 　　Range("A3").Phonetics.Alignment = xlPhoneticAlignLeft 　　Range("A4").Phonetics.Alignment = xlPhoneticAlignNoControl End Sub

• 実行例
  

CharacterType プロパティ

• ふりがなの種類を設定します
  

  xlHiragana	ひらがな
  xlKatakana	カタカナ
  xlKatakanaHalf	半角カタカナ

• コード例
  

  Sub test() 　　Range("A1").Phonetics.CharacterType = xlHiragana 　　Range("A2").Phonetics.CharacterType = xlKatakana 　　Range("A3").Phonetics.CharacterType = xlKatakanaHalf End Sub

• 実行例
  

Font プロパティ

• ふりがなのフォントを設定します。
• フォントサイズを設定するコード例
  

  Sub test() 　　Range("A1").Phonetics.Font.Size = 6 　　Range("A2").Phonetics.Font.Size = 8 　　Range("A3").Phonetics.Font.Size = 10 End Sub

• 実行例
  あまり大きな値にすると重なってしまいますので注意が必要です。
  

Count プロパティ、Item プロパティ、Textプロパティ

• ふりがなを順番に取り出してみます。
• コード例
  

  Sub test() 　　Dim i As Long, n As Long 　　　　n = Range("A1").Phonetics.Count 　　　　For i = 1 To n 　　　　　　Range("B" & i).Value = Range("A1").Phonetics.Item(i).Text 　　　　Next i End Sub

• 実行例
  
• すべてのふりがなを取り出すのにはPhoneticプロパティを使います。
  

  Sub test() 　　Range("B7").Value = Range("A7").Phonetic.Text End Sub

• 実行例
  

Phoneticプロパティ　　　topへ

• ふりがなのすべてを取り出します。
  コード例
  

  Sub test() 　　Range("B7").Value = Range("A7").Phonetic.Text End Sub

  • 実行例
    
• ふりがなを付け替えます。
  コード例
  鹿児島弁をふりがなにつけた例です。
  

  Sub test() 　　Range("A1").Phonetic.Text = "びんた" 　　Range("A2").Phonetic.Text = "ぼっけもん" 　　Range("A3").Phonetic.Text = "やっせんぼ" End Sub

  • 実行例
    

SetPhoneticメソッド　　　topへ

• ふりがな情報を持たないセル範囲に、新規にふりがなを設定することができます。
  ただし、IMEでの変換を利用しているので期待したふりがなになるとは限りません。
• コード例
  

  Sub test3() 　　Range("B1").Value = "頭" 　　Range("B2").Value = "大胆な人" 　　Range("B3").Value = "弱虫" 　　Range("B1:B3").SetPhonetic 　　Range("B1:B3").Phonetics.Visible = True End Sub

• 実行例
  

GetPhoneticメソッド　　　topへ

• ふりがなの候補を取得することができます。
• コード例
  

  Sub test3() 　　Dim myStr As String, myCnt As Long 　　　　myStr = Application.GetPhonetic(Range("A1").Value) 　　　　While myStr <> "" 　　　　　　myCnt = myCnt + 1 　　　　　　myStr = Application.GetPhonetic() 　　　　　　Range("B" & myCnt).Value = myStr 　　　　Wend End Sub

• 実行例
  

スポンサードリンク

PageViewCounter
　
　Since2006/2/27