特别简单，复制下面的，建一个模块，然后用bround函数就行了，和round用法一样。可以推出末尾数为任何数的修约。]
¬z?Óbbs.3c3t.comÇõîQ
'终极完美的四舍六入五留双的自定义函数代码，其实很简单]
¬z?Óbbs.3c3t.comÇõîQ
Function bround(c#, d%)]
¬z?Óbbs.3c3t.comÇõîQ
bround = VBA.Round(CDec(c), d)]
¬z?Óbbs.3c3t.comÇõîQ
End Function]
¬z?Óbbs.3c3t.comÇõîQ
%20(2)_1.gif)
