VBA 数字を漢数字に変換する

　実務では、数字（特に金額を表す数字）を漢数字で表示することがあったりします。今日は、その設定仕方を見てみましょう。

数字を漢数字に変換する

Sub test()

’　漢数字と単位の漢字を組み合わせて表示

        With Cells(3, 1)
            .Offset(, 1).Value = WorksheetFunction.Text(.Value, "[DBnum1]")
        End With

　　　’　　漢数字のみ表示
        With Cells(4, 1)
            .Offset(, 1).Value = WorksheetFunction.Text(.Value, "[DBnum1]#")
        End With

　　　’　難しい漢数字と単位の漢字を組み合わせて表示

        With Cells(5, 1)
            .Offset(, 1).Value = WorksheetFunction.Text(.Value, "[DBnum2]")
        End With

　　　　’　全角数字と単位の漢字を組み合わせて表示

        With Cells(6, 1)
            .Offset(, 1).Value = WorksheetFunction.Text(.Value, "[DBnum3]")
        End With

End Sub

実行結果

数字を漢字で表す書式記号

青字の「G/標準」は、セルの書式画面で実際いれなくても、勝手にExcelがつけてくれます。