[求助]实现"四舍六入五单双"的函数或方法

张三李四

4.556        4.56        4.56
4.555        4.56        4.56
4.554        4.55        4.55
4.546        4.55        4.55
4.545        4.55        4.54
4.544        4.54        4.54
原值        四舍五入        四舍六入逢单进



Sub dfd()
For h = 1 To 6
   aa = Cells(h, 1)
   Cells(h, 2) = Application.Round(aa, 2)
   Cells(h, 3) = Round(aa, 2)
Next h
End Sub

qyshanzi

5楼的方法简单实用！

cym10201129

高高高，实在是高

wxgdhzslf

学习，记录！

三流高手

shshhow 发表于 2011-5-3 11:38
遇到个很奇怪的问题。。用ROUND(A1,1)-IF(MOD(A1*100,20)=5,0.1,0)进行四舍六入五考虑中，如果值为4.85，则 ...

其实类似的错误还有不少，这是因为显示的数值与存储的数值存在微小的差异（不是所有的数值都能用二进制表示的），4.85在计算机内部可能就是4.84999999999……。

三流高手

关于四舍六入五留双，大家可看看此帖：
http://club.excelhome.net/thread-928319-1-1.html

麦子学

回复顶一下帖。

朝明

Ericall 发表于 2011-6-13 17:21
=ROUND(A1+MOD(INT(A1*10),2)%-1%,1)

自定义函数一样的和上面的毛病

朝明

lsdongjh 发表于 2011-5-3 12:05
'任意位数四舍六入五单双。
'numdecimalplaces :要保留的位数
Function myRound(rg As Range, numdecimal ...

试了试，不符合要求：4.85留一位是4.8，但4.852留一位是4.9。
4舍6进5单双是要看需舍弃或进入的5是不是最后一位，只有在5是最后一位是才实行5单双

jlslc

excel里就有这样的函数吧，就是银行家算法。