「数字」を「漢数字」に変換する【NumberFormatLocalプロパティ】【ExcelVBA】

「数字」を「漢数字」に変換したい
「数字」を「漢数字」に変換するサンプルコード
注意点
関連記事

「数字」を「漢数字」に変換したい

数値データを漢数字に変更するには、RangeオブジェクトのNumberFormatLocalプロパティを使用します。
変換する種類は以下があります。

書式	変換前	変換後
[DBNum1]	123	百二十三
[DBNum1]#	123	一ニ三
[DBNum2]	123	壱百弐拾参
[DBNum2]#	123	壱弐参
G/標準	123	123

「数字」を「漢数字」に変換するサンプルコード

Public Sub sample()
    
   Range("A1:A3").NumberFormatLocal = "[DBNum1]"
    '1 →一
    '12→十二
    '123→百二十三
   

   Range("A1:A3").NumberFormatLocal = "[DBNum1]#"
    '1 →一
    '12→一二
    '123→一二三
   
   Range("A1:A3").NumberFormatLocal = "[DBNum2]"
    '1 →壱
    '12→壱拾弐
    '123→壱百弐拾参
   
   Range("A1:A3").NumberFormatLocal = "[DBNum2]#"
    '1 →壱
    '12→壱弐
    '123→壱弐参

End Sub