Excel数字小写转成大写

 Excel数字小写转成大写

=IF(TRIM(D8)="","",IF(D8=0,"",IF(D8<0,"负",)&IF(INT(D8),TEXT(INT(ABS(D8)),"[dbnum2]")&"元",)&IF(INT(ABS(D8)*10)-INT(ABS(D8))*10,TEXT(INT(ABS(D8)*10)-INT(ABS(D8))*10,"[dbnum2]")&"角",IF(INT(ABS(D8))=ABS(D8),,IF(ABS(D8)<0.1,,"零")))&IF(ROUND(ABS(D8)*100-INT(ABS(D8)*10)*10,),TEXT(ROUND(ABS(D8)*100-INT(ABS(D8)*10)*10,),"[dbnum2]")&"分","整"))) 

猜你喜欢

转载自free0007.iteye.com/blog/1961722