人民币小写转大写函数,第二个不错

="合 计:(大写)"&IF(INT(G16)/10=INT(INT(G16)/10),IF(ROUND(G16,2)>=1,IF(OR(G16=INT(G16),ROUND(G16,2)=1),TEXT(INT(ROUND(G16,2)),"[DBNum2]G/通用格式")&"元",IF(10*INT(G16)=INT(G16*10),TEXT(INT(ROUND(G16,2)),"[DBNum2]G/通用格式")&"元",TEXT(INT(ROUND(G16,2)),"[DBNum2]G/通用格式")&"元零")),""),IF(G16>=1,TEXT(INT(ROUND(G16,2)),"[DBNum2]G/通用格式")&"元",""))&IF(LEN(MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2))=2,IF(LEFT(MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2),1)="零",MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2)&"分",LEFT(MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2),1)&"角"&RIGHT(MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2),1)&"分"),IF(LEN(MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2))=1,MID(TEXT(ROUND(IF(G16>=1,G16-INT(G16),G16),2),"[DBNum2]G/通用格式"),3,2)&"角整",IF(ROUND(G16,2)<>0,"整","金额为零")))



="合 计:(大写)"&IF(G16<0,"负","")&IF(G16=0,"",IF(ABS(G16)<0.995,"",IF(AND(RIGHT(INT(ROUND(ABS(G16),2)/10000))="0",RIGHT(INT(ROUND(ABS(G16),2)/1000))<>"0"),SUBSTITUTE(TEXT(INT(ROUND(ABS(G16),2)),"[DBNum2]"),"万","万零"),TEXT(INT(ROUND(ABS(G16),2)),"[DBNum2]"))&"元")&IF(RIGHT(TEXT(G16,".00"),2)*1=0,IF(ABS(G16)<0.005,"","整"),IF(ABS(G16)<0.095,"",IF((LEFT(RIGHT(TEXT(G16,".00"),2))<>"0")*(ABS(G16)>=1),IF(RIGHT(TRUNC(G16),1)>="1","","零"),"")&TEXT(LEFT(RIGHT(TEXT(G16,".00"),2)),"[dbnum2]"))&IF(LEFT(RIGHT(TEXT(G16,".00"),2))*1=0,"","角")&IF(RIGHT(TEXT(G16,".00"))*1=0,"整",TEXT(RIGHT(TEXT(G16,".00")),"[dbnum2]")&"分")))




="人民币大写："&IF(ABS(G16)<0.005,"",IF(G16<0,"负",)&IF(INT(ABS(G16)),TEXT(INT(ABS(G16)),"[dbnum2]")&"元",)&IF(INT(ABS(G16)*10)-INT(ABS(G16))*10,TEXT(INT(ABS(G16)*10)-INT(ABS(G16))*10,"[dbnum2]")&"角",IF(INT(ABS(G16))=ABS(G16),,IF(ABS(G16)<0.1,,"零")))&IF(ROUND(ABS(G16)*100-INT(ABS(G16)*10)*10,),TEXT(ROUND(ABS(G16)*100-INT(ABS(G16)*10)*10,),"[dbnum2]")&"分","整"))