excel每一个单元格中一个数字,另一个单元格里计算出大写金额
H2单元格输入【=A2*10000+B2*1000+C2*100+D2*10+E2+F2*0.1+G2*0.01”】这个我只计算到万了,就是实验一下效果,鼠标右键单元格格式有一个会计专用,可以做一个金额合计来用。转大写金额必须用代码,多加一个合计方便很多,记账也很合理!
I2单元格输入【=SUBSTITUTE(SUBSTITUTE(TEXT(INT(H2),"[DBNum2][$-804]G/通用格式元"&IF(INT(H2)=H2,"整",""))&TEXT(MID(H2,FIND(".",H2&".0")+1,1),"[DBNum2][$-804]G/通用格式角")&TEXT(MID(H2,FIND(".",H2&".0")+2,1),"[DBNum2][$-804]G/通用格式分"),"零角","零"),"零分","")】
=TEXT(RMB(J8*10^8+K8*10^7+L8*10^6+M8*10^5+N8*10^4+O8*10^3+P8*10&2+Q8*10+R8+S8*10^(-1)+T8*10^(-2)),"[=]g;"&TEXT(INT(ABS(J8*10^8+K8*10^7+L8*10^6+M8*10^5+N8*10^4+O8*10^3+P8*10&2+Q8*10+R8+S8*10^(-1)+T8*10^(-2))+0.5%),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(J8*10^8+K8*10^7+L8*10^6+M8*10^5+N8*10^4+O8*10^3+P8*10&2+Q8*10+R8+S8*10^(-1)+T8*10^(-2)),2),"[dbnum2]0角0分;;整"),"零角",IF((J8*10^8+K8*10^7+L8*10^6+M8*10^5+N8*10^4+O8*10^3+P8*10&2+Q8*10+R8+S8*10^(-1)+T8*10^(-2))^2<1,,"零")),"零分","整"))