VBA 数値をふりがなに変換するマクロ

規則

• 1の位は普通に読む。
• 1の位以外の位に「1」が出てきたら「いち」は読まずに位だけを読む。
• ある位に「0」が出てきたら、読まずに次の位に移る。
• 百の位が3の場合、位は「びゃく」と読む
• 百の位が6の場合、6は「ろっ」と読み、位は「ぴゃく」と読む。
• 百の位が8の場合、8は「はっ」と読み、位は「ぴゃく」と読む。
• 千の位が3の場合、位は「ぜん」と読む。
• 千の位が8の場合、8は「はっ」と読む。
• 万より上の位は普通。ただし一万を超える値において千の位に「1」が来た場合、「いっ」と読んでも良い。

コード

出力シートのオブジェクト名はOutputSheetに変更したうえで、標準モジュールに次のコードを書いて実行する。

OptionExplicitSub NumberToPronounciation()Dim numWord: numWord =Split("ぜろ いち に さん よん ご ろく なな はち きゅう")Dim i
    For i =0To9999Dim numAsText: numAsText =Format(i,"0000")Dim thousandsPlace: thousandsPlace =Int(Mid(numAsText,1,1))Dim hundredsPlace: hundredsPlace =Int(Mid(numAsText,2,1))Dim tensPlace: tensPlace =Int(Mid(numAsText,3,1))Dim onesPlace: onesPlace =Int(Mid(numAsText,4,1))Dim c As Collection: Set c =New Collection
        SelectCase thousandsPlace
        Case0'Do nothingCase1
            c.Add"せん"Case3
            c.Add"さん"
            c.Add"ぜん"Case8
            c.Add"はっ"
            c.Add"せん"CaseElse
            c.Add numWord(thousandsPlace)
            c.Add"せん"EndSelectSelectCase hundredsPlace
        Case0'Do nothingCase1
            c.Add"ひゃく"Case3
            c.Add"さん"
            c.Add"びゃく"Case6
            c.Add"ろっ"
            c.Add"ぴゃく"Case8
            c.Add"はっ"
            c.Add"ぴゃく"CaseElse
            c.Add numWord(hundredsPlace)
            c.Add"ひゃく"EndSelectSelectCase tensPlace
        Case0'Do nothingCase1
            c.Add"じゅう"CaseElse
            c.Add numWord(tensPlace)
            c.Add"じゅう"EndSelectSelectCase onesPlace
        Case0If c.Count=0Then
                c.Add"ぜろ"EndIfCaseElse
            c.Add numWord(onesPlace)EndSelectDim result AsString: result =""Dim j
        For j =1To c.Count
            result = result & c(j)Next
        OutputSheet.Cells(i +1,1).Value= i
        OutputSheet.Cells(i +1,2).Value= result
    NextEndSub

実行結果

こんな感じで出力される。

※ブログ用に画像加工で横に並べてますが出力はA列とB列だけです。

実際にやりたかったこと

実際にやりたいのは、Raspberry Piを使った数値の音声読み上げである。1.wav～9.wav, jyu.wav, hyaku.wav, sen.wavのように予め発話用のwavファイルを用意しておき、それらを組み合わせて数値を発音させる。

「体重データをもとに、必要エネルギーを計算します。あなたの体重は」
「はち」
「じゅう」
「よん」
「てん」
「に」
「キロです。」
「1カ月あたり1キロやせたい場合、本日の摂取エネルギーの上限は」
「に」
「せん」
「さん」
「びゃく」
「ろく」
「じゅう」
「なな」
「キロカロリーです。」

そんなことしなくてもLinuxにはフリーの音声合成もあるので、リアルタイムで数字そのまま読み上げさせることもできるんだけど、どうにも声が気に入らないし、購入済のVOICEROIDで作ったwavファイルと連続で読み上げさせるので、数値だけ別の声というのも違和感がある。それで検討した結果、wav組み合わせ方式を採用することにした。

一応、得意なVBAでの検証が済んだのでこのあとPythonコードに翻訳し、「いち」や「に」等の出力の代わりに「1.wav」「2.wav」を再生するように改変して出来上がりの予定。