zqfkchen - 2016/11/11 15:36:02
求Excec表格四舍六入五奇偶方法¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
liuguiyuan140 - 2016/11/14 8:48:00
:default4:¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
123983869 - 2016/11/14 8:58:20
BUG，没有¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
xiashuang007 - 2016/11/16 15:13:15
=ROUND(ROUND(((A1+A2)/2/8),3)*8,1)¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
这个是两个单元格 平均后修约精确至0.1。¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
zqfkchen - 2017/1/13 17:03:00
回复 4楼xiashuang007的帖子¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ谢谢
¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
smuiteeq - 2017/1/19 16:25:22
特别简单，复制下面的，建一个模块，然后用bround函数就行了，和round用法一样。可以推出末尾数为任何数的修约。¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
'终极完美的四舍六入五留双的自定义函数代码，其实很简单¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
Function bround(c#, d%)¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
bround = VBA.Round(CDec(c), d)¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ
End Function¶)õý]v` Ûbbs.3c3t.comNd· ^´ûÁõ