作者:乔山办公网日期:
返回目录:excel表格制作
用设置的方法,可以得到数字的大写形式,但不能得到财务金额的形式,要得到财务金额的方式,需要一个自定义函数
将下面的自e5a48de588b6e799bee5baa6361定义函数复制到你的excel模块中
Public Function renminbi(Amountin)
renminbi = Replace(Application.Text(Round(Amountin + 0.00000001, 2), "[DBnum2]"), ".", "元")
renminbi = IIf(Left(Right(renminbi, 3), 1) = "元", Left(renminbi, Len(renminbi) - 1) & "角" & Right(renminbi, 1) & "分", IIf(Left(Right(renminbi, 2), 1) = "元", renminbi & "角整", IIf(renminbi = "零", "", renminbi & "元整")))
renminbi = Replace(Replace(Replace(Replace(renminbi, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function
你就可以像正常使用函数一样,用=renminbi(数字)的方法得到金额的大写了
设B11为小写金百额.
在大写金额度那单元格里面填入公式
=SUBSTITUTE(IF(B11,IF(B11<0,"负",)&TEXT(TRUNC(B11),"[dbnum2]g/通用问格式元;[dbnum2]g/通用格式元;")&TEXT(RIGHT(RMB(B11),2),"[>9][dbnum2]0角0分答;[>][dbnum2]0分;整"),"零元"),"零分","整")
假设小写金额在来A1中,在B1中输入自
="人民币大写¥知"&IF(INT(A1)=0,"",TEXT(INT(A1),"[DBNum2]")&"元")&IF(OR(INT(A1*10)=0,INT(A1)=A1),"",IF(INT(A1*10)=INT(A1)*10,"零道",RIGHT(TEXT(INT(A1*10),"[DBNum2]"),1)&"角"))&IF(INT(A1*100)=INT(A1*10)*10,"整",RIGHT(TEXT(ROUND(A1,2),"[DBNum2]"),1)&"分")
1、打开百excel表格在A1单元格内度输入需要转换成大写金额的数字“2205576”。
2、然后在B1单元格内点击“fx”插入函数,使问用IF函数和SUBSTITUTE函数的组合。
3、在其中输入函数参数,下图为答转换的公式:=IF(A1>=1,NUMBERSTRING(INT(A1),2)&"元",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整")。
4、点击回车键即内可生成公式的容计算结果“捌佰柒拾玖元整”。