「数字」を「漢数字」に変換したい
数値データを漢数字に変更するには、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
注意点
- あくまでもセルの表示形式を「数字」→「漢数字」に変更しているだけです。
- 表示形式だけ変更している、という事は数値として扱う事が可能です。
コメント