小写转大写金额函数

富之宝

个人写了一个小写转大写金额函数，除了负数外，可以正常使用，就是公式有点长，希望在使用的过程中有人能帮忙改进及简化，如下：

上图是测试结果,以下是原公式:

=IF(A2<=0,"",IF(INT(A2)=A2,NUMBERSTRING(A2,2)&"元整",IF(LEFT(A2)="0","",NUMBERSTRING(TRUNC(A2),2)&"元")&IF(AND(MID(A2,FIND(".",A2,1)+1,1)="0",LEFT(A2)="0"),TEXT(MID(A2,FIND(".",A2,1)+2,1),"[DBNUM2]0分"),IF(MID(A2,FIND(".",A2,1)+2,1)="",TEXT(MID(A2,FIND(".",A2,1)+1,1),"[DBNUM2]0角整"),TEXT(RIGHT(A2,2),"[DBNUM2]0"&IF(MID(A2,FIND(".",A2,1)+1,1)="0","","角")&"0分")))))

云朵中的民族

大写到元那有整，好像不应有角整，论坛某版主写的几个公式：

=IF(AND(A1<=-0.01,A1>=-0.99),"负","")&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(A1),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;[dbnum2]0角;[dbnum2]整"),"零角","零"),"零分",)

=IF(AND(A1<=-0.01,A1>=-0.99),"负","")&TEXT(TRUNC(FIXED(A1)),"[dbnum2]g/通用格式元;负[dbnum2]g/通用格式元")&SUBSTITUTE(TEXT(RIGHT(FIXED(A1),2),"[=0][dbnum2]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分",)

=SUBSTITUTE(IF(RIGHT(FIXED(A1)*100,2)*1=0,TEXT(FIXED(A1),"[dbnum2]")&"元整",SUBSTITUTE(SUBSTITUTE(REPLACE(TEXT(FIXED(A1),"[dbnum2]"),LEN(TEXT(FIXED(A1),"[dbnum2]")),0,"角")&"分",".","元"),"零角","零")),"-","负")

=IF(A1<0,"负",)&NUMBERSTRING(ABS(A1),2)&"元"&SUBSTITUTE(TEXT(MOD(ABS(A1)/1%,100),"[=0]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分",)

富之宝

云朵中的民族 发表于 2012-12-7 21:52
大写到元那有整，好像不应有角整，论坛某版主写的几个公式：

=IF(AND(A1=-0.99),"负","")&SUBSTITUTE(SU ...

这个公式挺短的可以学习学习，好像还有点问题，你试下0.23，会显示零元二角三分
另外，大写金额到元角为止的，后面要写“整”或“正”字

云朵中的民族

刚测试一下：=IF(A1<0,"负",)&NUMBERSTRING(ABS(A1),2)&"元"&SUBSTITUTE(TEXT(MOD(ABS(A1)/1%,100),"[=0]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分",)　这个公式会有出错的地方，比如0.9，会转换成壹元玖角

经过测试，严格来说，只有下面这两个公式好像还没有什么问题：
=IF(AND(A1<=-0.01,A1>=-0.99),"负","")&TEXT(TRUNC(FIXED(A1)),"[dbnum2]g/通用格式元;负[dbnum2]g/通用格式元")&SUBSTITUTE(TEXT(RIGHT(FIXED(A1),2),"[=0][dbnum2]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分",)
=IF(AND(A2<=-0.01,A2>=-0.99),"负","")&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(A2),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元")&TEXT(RIGHT(FIXED(A2),2),"[dbnum2]0角0分;[dbnum2]0角;[dbnum2]整"),"零角","零"),"零分",)

云朵中的民族

富之宝 发表于 2012-12-7 22:00
这个公式挺短的可以学习学习，好像还有点问题，你试下0.23，会显示零元二角三分
另外，大写金额到元角 ...

“整”或“正”好像是整数元的时候用，有角和分的时候不能多少角整，直接就是多少元多少角

富之宝

云朵中的民族 发表于 2012-12-7 22:16
刚测试一下：=IF(A1

你这两个公式用0.12试下，前面有个零元没有去掉

富之宝

云朵中的民族 发表于 2012-12-7 22:49
“整”或“正”好像是整数元的时候用，有角和分的时候不能多少角整，直接就是多少元多少角

这个你不要和我争了，我是从专业上写的，不信你可以去查一下专业书籍

云朵中的民族

富之宝 发表于 2012-12-8 12:45
这个你不要和我争了，我是从专业上写的，不信你可以去查一下专业书籍

我也不是搞账务的，究竟该咋样我也不知道，只是看到别的资料上是这么写的

云朵中的民族

他这句话是说的可以不写，那么估计你和我都没错，可以不写，也就是也可以写

云朵中的民族

我平常用的是也是从论坛上找的一个自定义的函数：

Function DX(n) '人民币大写转换
    DX = Replace(Application.Text(n, "[DBnum2]"), ".", "元")
    DX = IIf(Left(Right(DX, 3), 1) = "元", Left(DX, Len(DX) - 1) & "角" & Right(DX, 1) & "分", _
         IIf(Left(Right(DX, 2), 1) = "元", DX & "角整", IIf(DX = "零", "", DX & "元整")))
    DX = Replace(Replace(Replace(Replace(DX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

这个也是显示到角整的