[交流] 求Excec表格四舍六入五奇偶方法 [复制链接]

ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d

BUG，没有ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d

=ROUND(ROUND(((A1+A2)/2/8),3)*8,1)ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
这个是两个单元格 平均后修约精确至0.1。ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d

回复 4楼xiashuang007的帖子ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
谢谢ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d

特别简单，复制下面的，建一个模块，然后用bround函数就行了，和round用法一样。可以推出末尾数为任何数的修约。ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
'终极完美的四舍六入五留双的自定义函数代码，其实很简单ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
Function bround(c#, d%)ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
    bround = VBA.Round(CDec(c), d)ûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d
End FunctionûÝΩ«gX›ºÂbbs.3c3t.comê}æy<•7}d