监理检测网论坛

注册

 

发新话题 回复该主题

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

1#
求Excec表格四舍六入五奇偶方法tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
分享 转发
TOP
2#

tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
TOP
3#

BUG,没有tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
TOP
4#

=ROUND(ROUND(((A1+A2)/2/8),3)*8,1)tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
这个是两个单元格 平均后修约精确至0.1。tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
TOP
5#

回复 4楼xiashuang007的帖子tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
谢谢tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
TOP
6#

特别简单,复制下面的,建一个模块,然后用bround函数就行了,和round用法一样。可以推出末尾数为任何数的修约。tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
'终极完美的四舍六入五留双的自定义函数代码,其实很简单tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
Function bround(c#, d%)tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
    bround = VBA.Round(CDec(c), d)tµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
End Functiontµ±"Ð¥ ÉÆ_bbs.3c3t.comèÎê§`Zf„íò
TOP
发主话题 回复该主题