【VBA関係】VBAでふりがな（Phonetic.Text）のミステリーを紐解く｜ポテの学習メモ #010

2025年2月2日 2025年2月7日

運営者・ポテ

アフィリエイト広告を利用しています。

フリガナ情報まで扱えるところが、VBAの素晴らしいところのひとつ。

次のセルに入力されているフリガナを出力してみる。

コードは次の通り。

Sub ShowPhoneticText()


    ' 変数宣言
    Dim wb As Workbook
    Dim ws As Worksheet
    
    
    ' ワークブックとワークシートの取得
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets(1)
    
    
    ' フリガナを表示する
    Debug.Print "1行目: " & ws.Cells(1, 1).Phonetic.Text
    Debug.Print "2行目: " & ws.Cells(2, 1).Phonetic.Text
    Debug.Print "3行目: " & ws.Cells(3, 1).Phonetic.Text


End Sub

コード実行結果は次の通り。イミディエイトウィンドウに次のように表示される。

1行目: サトウ
2行目: サフジ
3行目: 佐藤

1行目は、「さとう」とタイプして、漢字に変換した。次のように↓

２行目は、「さふじ」とタイプして、漢字に変換した。

３行目は、メモ帳（.txt）に「佐藤」と入力し、エクセルにコピペした。

その結果が、上述の通り。

Excelは、日本語の入力時にIME（入力方式エディタ）が提供する「ふりがな情報」を自動的に取得し、セルに内部データとして格納している。

3行目のように、他のアプリで入したデータをコピペすると、フリガナ情報が無いため、漢字をそのまま返す。

この記事を書いた人

運営者・ポテ

■人生を追求する凡人■日本一安全で、気の向くままに自分の時間を過ごせる、こだわりのキャンプ場を作るのが夢■光学・機械系エンジニア（歴20年、内マネジメント10年、特許数件権利化）/副業フリーランスエンジニア■読書・文学愛好■人生は時間そのもの。ひとりでも多くの人が「より良い人生にするために時間を使って欲しい」と願い、仕事のスキルの向上、余暇の充実、資産形成を研究。■VBAアプリ開発サービス提供中（業務委託 / VBA使用経験20年）■Python愛好（歴5年）■VBAエキスパート「Excel VBA スタンダード」（上級者向け資格）/ Python 3 エンジニア認定基礎（経済産業省「ITスキル標準（ITSS）」に掲載）