用VBA变成把小写金额转换成大写

发布网友发布时间：2022-05-08 08:27

共1个回答

热心网友时间：2024-01-21 09:18

=IF(A1<0,"金额为负无效",IF(OR(A1=0,A1=""),"零元整",(IF(A1<1,"(人民币)",TEXT(INT(A1),"[dbnum2]G/通用格式")&"元"&IF(INT(A1)*100-INT(A1*100)=0,"整",IF(INT(A1*10)-INT(A1)*10=0,"零"&TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分",IF(INT(A1*10)*10-INT(A1*100)=0,TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角整",TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角"&TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分")))))))

上面是大写的解决方法,身份证要自己动加校验码?那和实际上的会不对啊.有兴趣加QQ群28052038.有高手帮你.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com