ネットワーク

エクセル 数値 漢字 変換

最終更新： 08/03/2025
1 分の読み

エクセルにおける「数値を文字に変換する」関数、いわゆる「数字の読み上げ」や「数字を文字に変換する」機能は、特に金額などの数値を文字で表記したいときに非常に便利です。例えば、請求書や領収書を作成する際に、「1234円」を「千二百三十四円」といった具合に、数字を漢字やひらがなに変換する場合に役立ちます。

エクセルには、直接「数値を文字に変換する」ための標準関数は存在しませんが、VBA（Visual Basic for Applications）を使うことで、任意の数値を日本語の文字列に変換することができます。この記事では、エクセルで数値を文字に変換する方法を、VBAを用いた方法と共に解説します。

関連記事

1. 数値を文字に変換するVBA関数の作成

エクセルではVBAを使用して、数値を文字列に変換する関数を作成できます。まずはVBAエディタを開き、以下の手順で進めていきましょう。

手順1: VBAエディタを開く

  1. エクセルを開き、「Alt」 + 「F11」を押してVBAエディタを開きます。
  2. メニューバーから「挿入」→「標準モジュール」を選択し、新しいモジュールを作成します。

手順2: VBAコードの入力

新しく作成したモジュールに、以下のVBAコードをコピー＆ペーストします。

vba
Function ToKanji(ByVal number As Double) As String
    Dim units As Variant
    Dim numStr As String
    Dim kanji As String
    Dim i As Integer

    units = Array("", "十", "百", "千", "万", "十万", "百万", "千万", "億", "十億", "百億", "千億")
    numStr = CStr(Int(number))
    
    If number = 0 Then
        ToKanji = "零"
        Exit Function
    End If

    For i = Len(numStr) To 1 Step -1
        Dim currentNum As String
        currentNum = Mid(numStr, Len(numStr) - i + 1, 1)

        If currentNum <> "0" Then
            kanji = kanji & GetKanjiForDigit(CInt(currentNum)) & units(i - 1)
        ElseIf i > 1 And Mid(numStr, Len(numStr) - i + 1, 1) <> "0" Then
            kanji = kanji & "零"
        End If
    Next i

    ToKanji = kanji
End Function

Function GetKanjiForDigit(ByVal digit As Integer) As String
    Dim kanjiDigits As Variant
    kanjiDigits = Array("零", "一", "二", "三", "四", "五", "六", "七", "八", "九")
    GetKanjiForDigit = kanjiDigits(digit)
End Function

手順3: 関数をエクセルで使う

VBAエディタを閉じて、エクセルシートに戻ります。次に、セルに以下のように入力して、数値を漢字に変換することができます。

=ToKanji(A1)

ここで、A1には変換したい数値が入っているセルを指定してください。この関数は、指定したセルの数値を漢字に変換して表示します。

2. VBAを使わない方法

VBAを使用しない場合、エクセルの標準機能だけでは「数値を漢字に変換する」ことはできませんが、簡単な方法として、他の関数と組み合わせて手動で数値を文字列に変換することもできます。しかし、この方法は手間がかかり、数値の規模が大きくなると非常に複雑になるため、実際的ではありません。

3. 数値をひらがなに変換する場合

もし、数値を漢字ではなくひらがなで変換したい場合にも、VBAを利用して独自の関数を作成することが可能です。ひらがなに変換するためには、漢字変換を行う部分を「ひらがな」に変換する処理に変更すれば良いでしょう。

4. 数値の単位をカスタマイズする

日本語での数値表現においては、単位（円、千円、百万円など）をつけることがよくあります。VBAで作成した関数をカスタマイズすることで、例えば「万」や「円」などの単位を加えることができます。以下のように、関数を変更してみましょう。

vba
Function ToKanjiWithUnit(ByVal number As Double) As String
    Dim kanji As String
    kanji = ToKanji(number) & "円"
    ToKanjiWithUnit = kanji
End Function

このように関数を変更することで、出力に「円」を追加することができます。必要に応じて、他の単位（例えば「千円」など）にも対応できます。

5. 使用例

例1: 数字「1234」を変換

セル A1 に「1234」と入力し、以下の関数を使用すると、セルに「千二百三十四円」と表示されます。

=ToKanjiWithUnit(A1)

例2: 数字「500000」を変換

セル A2 に「500000」と入力し、同様に関数を使用すると、セルに「五十万円」と表示されます。

=ToKanjiWithUnit(A2)

結論

エクセルにおける「数値を文字に変換する」機能は、VBAを利用することで実現可能です。特に、請求書や領収書の作成時に役立つこの機能は、エクセルの標準機能では対応できない部分を補完します。VBAで作成した関数を活用することで、より効率的で正確な作業が可能になります。

最終更新： 08/03/2025
1 分の読み
Back to top button