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

linyancheng

=IF(ISODD(RIGHT(ROUNDDOWN(B3*10^C3,0),1))=TRUE,ROUND(B3,C3),IF(RIGHT(ROUNDDOWN(B3*10^(C3+1),0),1)<>"5",ROUND(B3,C3),ROUNDDOWN(B3,C3)))

我以前寫的公式，原值在B3, 位數在C3。

補充：
位數的用法如round的第二個參數，可以為任意位數。
有空學習改成函數。

[ 本帖最后由 linyancheng 于 2009-6-27 17:20 编辑 ]

fish_gz

thank thank you.

a楚西

Samsea你好，能想个好办法实现保留两位和三位小数的吗？我试了半天，头脑笨不好使啊？

ice_li

可以按照0.1、0.01、0.5、0.2、10、100等修约的函数
Public Function Myround(RoundNumber As Single, RoundSpace As Single) As Single
  Dim FixNumber As Single, p As Single, q As Single
  FixNumber = RoundNumber / RoundSpace
  p = FixNumber - Int(FixNumber)
  q = Int(FixNumber) Mod 2
  If p < 0.5 Then
    Myround = Int(FixNumber) * RoundSpace
  ElseIf p > 0.5 Then
    Myround = Int(FixNumber + 1) * RoundSpace
  Else
    If q = 0 Then
      Myround = Int(FixNumber) * RoundSpace
    Else
      Myround = Int(FixNumber + 1) * RoundSpace
    End If
  End If
End Function

[ 本帖最后由 ice_li 于 2010-12-6 18:56 编辑 ]

dhqcrgw

不错的主意呀!好好学习了~!!!

shshhow

遇到个很奇怪的问题。。用ROUND(A1,1)-IF(MOD(A1*100,20)=5,0.1,0)进行四舍六入五考虑中，如果值为4.85，则此公式将该值进位为4.9，其它的结果均正常，唯有此数值要进位，就如2.85、6.85等数值均不进位。强烈不解中。。。郁闷中。。。

shshhow

遇到个很奇怪的问题。。用ROUND(A1,1)-IF(MOD(A1*100,20)=5,0.1,0)进行四舍六入五考虑中，如果值为4.85，则此公式将该值进位为4.9，其它的结果均正常，唯有此数值要进位，就如2.85、6.85等数值均不进位。强烈不解中。。。郁闷中。。。盼望高手解答。。。。。

lsdongjh

'任意位数四舍六入五单双。
'numdecimalplaces :要保留的位数
Function myRound(rg As Range, numdecimalplaces As Integer) As Double
    Application.Volatile
    Dim dbValue As Double
    Dim dbValueB As Double
    Dim dbValueC As Double
    Dim intI As Integer
    intI = numdecimalplaces + 1
    dbValue = rg.Value
   
    dbValueB = Application.WorksheetFunction.Round(dbValue, numdecimalplaces)
    dbValueC = dbValue * (10 ^ intI)
   
    If dbValueC Mod 20 = 5 Then
        dbValueC = 1 / (10 ^ numdecimalplaces)
    Else
        dbValueC = 0
    End If
   
    myRound = dbValueB - dbValueC
   
End Function

[ 本帖最后由 lsdongjh 于 2011-5-3 12:07 编辑 ]

Ericall

=ROUND(A1+MOD(INT(A1*10),2)%-1%,1)

183426431

不错{:soso_e156:}