数字转换为大写数字公式-摘自百度经验

将小写数字转化为财会大写数字编辑公式摘至：/article/d2b1d1024cb3f65c7f37d46b.html步骤/方法1.第一种方法：通过函数嵌套实现数字转人民币大写形式的公式是：=IF(B1vO,"金额为负无效"，(IF(OR(B1=0,B1=""),"(人民币)零元"，IF(B1v1,"(人民币)”，TEXT(INT(B1),"[dbnum2](人民币)G/通用格式")&"元"))))&IF((INT(B1*10)-INT(B1)*10)=0,IF(INT(B1*100)-INT(B1*10)*10=0,"","零”)，(TEXT(INT(B1*10)-INT(B1)*10,"[dbnum2]")&"角"))&IF((INT(B1*100)-INT(B1*10)*10)=0,"整“，TEXT((INT(B1*100)-INT(B1*10)*10),"[dbnum2]")&"分")数字转人民币大写形式的公式是：="大写金额："&IF(TRIM(B1)="","",IF(B1=0,"","人民币"&IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))ABc1第一种醪式：1259.69（人民币）壹仟贰佰伍拾玖元陆角玖分2笫二种形式：12旳.6$大写金额：人民币壹讦贰佰伍拾玫元陆角玖分2.第二种方法：通过宏VBA自定义函数实现第一步：按下ALT+F11组合键，或者是单击工具宏VisualBasic编辑器，进入VisualBasic编程环境,单击“插入”菜单模块，复制下面代码，保存，退出关闭。FunctionN2RMB(M)y=int(Round(100*Abs(M))/100)j=Round(100*Abs(M)+0.00001)-y*100f=(j/10-int(j/10))*10A=iif(yv1,"",Application.Text(y,"[DBNum2]")&"元")b=iif(j>9.5,Application.Text(int(j/10),"[DBNum2]")&"角",iif(yv1,"",iif(f>1,"零"，"")))

c=iif(f<1,"整",Application.Text(Round(f,0),"[DBNum2]")&"分")N2RMB=iif(Abs(M)<0.005,"”,iif(M<0,"负"&A&b&c,A&b&c))EndFunction第二步：返回excel操作界面，在B1单元格输入：=N2RMB(A1),就可以将A1单元格的数字转为人民币大写，然后向下复制公式即可将全部的数字转为人民币大写。Bl--N2m(Al)AB10.0120,12壹角贰分3I.23壹元贰角巻分412.34壹牯感元巻角肆分5123.45壹佰贰拾巻兀肆角伍分61234.56壹仟贰佰巷拾肆元伍角陆分712345.67壹万贰仟卷佰肆推伍兀陆角蕖分二123456.78壹拾贰万巻仟肆佰伍拾陆兀荣角捌分91234567.89豈佰贰拾巻万肆仟伍伯陆抬耒元芻寸弟玖分1012345678.90壹仟贰佰卷