1、按ALT+F11 Thisworkbook-插入-模块。2、将下面代码拷贝进去。Function TranValue(rng As Double, number As Integer) As Double TranValue = Round(rng, number)End Function 3、在电子表格中直接使用公式 = tranvalue(A1,1) ;然后向下拉公式既可以....
EXCEL使用内置的VBA自带的ROUND函数,就是标准的四舍六入五成双;公式要判断被舍入的是不是5且5后面有没有数,如有,则进位,如无,则5前面是单数进行否则不进位 假设:单元格E5为被舍入前数值,且保留1位小数,如果保留其他位小数,则相应的取值位+1,加数值0.1变为0.01,0.001...)可固定一个单元...
其中结果一栏的设置公式为:=IF(A2=0,0,(IF(A2>0,ROUND((TRUNC(A2*10^(B2+1))-((A2*10^(B2+1)-TRUNC(A2*10^(B2+1)))<=0)*(MOD(TRUNC(A2*10^(B2+1)),5)=0)*(1-MOD(INT(A2*10^B2),2))*5)/10^(B2+1),B2),-(ROUND((TRUNC(ABS(A2)*10^(B2+1))-((ABS(A2)...
方法/步骤 打开Excel工作薄,请点击输入图片描述 选中数据区域 请点击输入图片描述 单击【方方格子】选项卡→【四舍五入】→【四舍六入五成双】请点击输入图片描述 【四舍六入五成大】对话框中→【选项】保留小数位数输入“2”并勾选”使用公式“→单击【确定】请点击输入图片描述 【存放结果】选择D...
1、按ALT+F11 Thisworkbook-插入-模块。2、将下面代码拷贝进去。Function TranValue(rng As Double, number As Integer) As Double TranValue = Round(rng, number)End Function 3、在电子表格中直接使用公式 = tranvalue(A1,1) ;然后向下拉公式既可以....
“四舍六入五成双”,也即“4舍6入5凑偶”,这里“四”是指≤4 时舍去,"六"是指≥6时进上,"五"指的是根据5后面的数字来定,当5后有数时,舍5入1;当5后无有效数字时,需要分两种情况来讲:(1)5前为奇数,舍5入1;(2)5前为偶数,舍5不进(0是偶数)。公式为:IF(MOD(ABS...
先按正常的四舌五入ROUND(A1),当该位等于5、前一位单数的情况:此时该数乘以2以后除4余3 该情况下与正常的四舌五入不同,需要减去(其余情况下与正常的四舌五入一样)故,在整数的情况下公式为:=ROUND(A1,)-(MOD((A1*2),4)=3)(注意:后面的(MOD((A1*2),4)=3)是IF语句的简化:...
1.保留到个位=IF(A1-INT(A1)0.5,ROUND(A1,0),IF(MOD(INT(A1),2)=0,INT(A1),ROUND(A1,0)))2.保留一位小数=IF(A2*10-INT(A2*10)0.5,ROUND(A2*10,0),IF(MOD(INT(A2*10),2)=0,INT(A2*10),ROUND(A2*10,0)))/103.保留两位小数=IF(A3*100-INT(A3*100)0.5,...
=IF(MOD(INT(F2+10*LOG10((C2+C3)/8)*10^3),10)=5,EVEN(F2+10*LOG10((C2+C3)/8)*100-0.5)/10^2,INT(F2+10*LOG10((C2+C3)/8)*10^2+0.5)/10^2)根据你要保留的小数修改 ^2 保留两位 ^3 保留三位 ... ...注意:里面有个10^3要增加1 ...
把公式输入表格,在A1输入一个两位的小数,然后用公式求值就能看出来了 ROUND(A1,1)是把A1的值四舍五入为一位小数 MOD(A1*100,20)是把A1的值乘以100后除以20取余数。然后这余数等于5的话就得到true,此时除以10会得到0.1的数值,比如A1是1.25,先四舍五入得到的是1.3,但是五成双的话尾数...