小写转大写金额函数

富之宝

书写要清楚、规范。原始凭证要按规定填写，文字要简要，字迹要清楚，易于辨认，不得使用未经国务院公布的简化汉字。大小写金额必须相符且填写规范，小写金额用阿拉伯数字逐个书写，不得写连笔字，在金额前要填写人民币符号“￥”，人民币符号“￥”与阿拉伯数字之间不得留有空白，金额数字一律填写到角分，无角分的，写“00”或符号“－”，有角无分的，分位写“0”，不得用符号“－”；大写金额用汉字壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整等，一律用正楷或行书字书写，大写金额前未印有“人民币”字样的，应加写“人民币”三个字，“人民币”字样和大写金额之间不得留有空白，大写金额到元或角为止的，后面要写“整”或“正”字，有分的，不写“整”或“正”字。如小写金额为￥1008.00，大写金额应写成“壹仟零捌元整”。
http://baike.baidu.com/view/95261.htm

富之宝

云朵中的民族 发表于 2012-12-8 19:52
我平常用的是也是从论坛上找的一个自定义的函数：

Function DX(n) '人民币大写转换

这个用到VBA了，VBA确实还不懂

dqld

=TEXT(INT($T$9),"[dbnum2]")&IF(ISERR(FIND(".",$T$9)),"元整","元"&IF(RIGHT($T$9*100)="0",TEXT(RIGHT($T$9*10),"[dbnum2]0角整"),TEXT(RIGHT($T$9*100,2),IF(LEFT(RIGHT($T$9*100,2))="0","[dbnum2]零0分","[dbnum2]0角0分"))))
这是我做的公式，数据在T9单元格