急求!!如何不让Excel函数四舍五入??
发布网友
发布时间：2022-04-22 01:42
共2个回答
热心网友
时间：2023-06-28 05:07
公式:
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元;"&IF(A1>-0.5%,,"负"))&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
VBA代码
Function DX(M)'200个字符
DX = IIf(Abs(M) < 0.005, "", Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 00")), Split("@ [DBNum2];;0 [>9][dbnum2]圆0角0分;[=0]圆整;[dbnum2]圆零0分")), ""), "零分", "整"), "0圆零", ""), "0圆", ""))
End Function
热心网友
时间：2023-06-28 05:07
="合计(大写)："&TEXT(INT(E26),"[dbnum2]G/通用格式")&"元"&IF(INT(E26*10)-INT(E26)*10=0,IF(INT(E26)*(INT(E26*100)-INT(E26*10)*10)=0,"","零"),TEXT(INT(E26*10)-INT(E26)*10,"[dbnum2]")&"角")&IF((INT(E26*100)-INT(E26*10)*10)=0,"整",TEXT((INT(E26*100)-INT(E26*10)*10),"[dbnum2]")&"分")
注意：此公式由变量（E26）所产生的结果是文本而不是数值，不能用作常量再次被引用。
