特别简单，复制下面的，建一个模块，然后用bround函数就行了，和round用法一样。可以推出末尾数为任何数的修约。£¡ó §âÄø´bbs.3c3t.comô¸*³ 5Øk¢3
'终极完美的四舍六入五留双的自定义函数代码，其实很简单£¡ó §âÄø´bbs.3c3t.comô¸*³ 5Øk¢3
Function bround(c#, d%)£¡ó §âÄø´bbs.3c3t.comô¸*³ 5Øk¢3
bround = VBA.Round(CDec(c), d)£¡ó §âÄø´bbs.3c3t.comô¸*³ 5Øk¢3
End Function£¡ó §âÄø´bbs.3c3t.comô¸*³ 5Øk¢3
%20(2)_1.gif)
