vvstone

最近在跟Excel较劲：（ ]Su t2E" 1  
公式一： SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","") ;o&z?~=U  
公式二： CONCATENATE(IF(A1<0,"负",""),TEXT(IF(TRUNC(A1)=0,"",TRUNC(ABS(A1))),"[DBNum2]"),IF(INT(TRUNC(A1))=0,"","元"),TEXT(IF(OR(ABS(A1)<0.1,TRUNC(A1)=A1),"",RIGHT(TRUNC(A1*10),1)),"[DBNum2]"),IF(RIGHT(TRUNC(A1*10),1)="0","","角"),TEXT(IF(RIGHT(TRUNC(A1*100),1)="0","",RIGHT(TRUNC(A1*100),1)),"[DBNum2]"),IF(RIGHT(TRUNC(A1*100),1)="0","","分")) =mXw 0X5J  
公式三： IF(ROUND(A1,2)=0,"",IF(ROUND(ABS(A1),2)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(A1,".00"),2)*1=0,"整",IF(RIGHT(TEXT(A1,".00"),4)*1>=1,IF(RIGHT(TEXT(A1,".00"),2)*1>9,"","零"),IF(ROUND(ABS(A1),2)>=1,"零",""))&IF(RIGHT(TEXT(A1,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(A1,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(A1,".00"))*1>0,TEXT(RIGHT(TEXT(A1,".00")),"[DBNum2]")&"分","整")))

补充一下：在OWC控件中的公式：

=IF(ROUND(E9,2)=0,"",IF(ROUND(ABS(E9),2)>=1,TEXT(INT(ROUND(ABS(E9),2)),"[DBNum2]General")&"元","")&IF(RIGHT(TEXT(E9,".00"),2)*1=0,"整",IF(RIGHT(TEXT(E9,".00"),4)*1>=1,IF(RIGHT(TEXT(E9,".00"),2)*1>9,"","零"),IF(ROUND(ABS(E9),2)>=1,"零",""))&IF(RIGHT(TEXT(E9,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E9,".00"),2)),"[DBNum2]General")&"角","")&IF(RIGHT(TEXT(E9,".00"))*1>0,TEXT(RIGHT(TEXT(E9,".00")),"[DBNum2]General")&"分","整")))