ふりがなの表示/非表示 | ふりがなの編集 | ふりがなの設定 |
PONETIC関数を使ってふりがなを表示する | ||
VBAを使ってふりがなをひらがな/カタカナで表示する |
Sub test() Dim c As Range For Each c In Range("A2:A4") 'ふりがな情報を取り出す c.Offset(0, 1).Value = c.Phonetic.Text 'ふりがなを取り出して、ひらがなに変換 c.Offset(0, 2).Value = StrConv(c.Phonetic.Text, 36) 'ふりがなを取り出して、カタカナに変換 c.Offset(0, 3).Value = StrConv(c.Phonetic.Text, 20) Next c End Sub |
定数 | 値 | 内容 |
vbWide | 4 | 文字列内の半角文字を全角文字に変換します? |
vbNarrow | 8 | 文字列内の全角文字を半角文字に変換します? |
vbKatakana | 16 | 文字列内のひらがなをカタカナに変換します? |
vbHiragana | 32 | 文字列内のカタカナをひらがなに変換します? |