按四舍六入五留双的规则进行有效数字修约

xiajun890528

你好，我看到你有发保留有效位数的公式，我不会很懂，方便加下嘛？我qq 419890528  麻烦了~ 谢谢你，我们是检测行业，也是要修约

blackttea1

谢谢楼主，正需要。

三流高手

gnd_zzl 发表于 2018-12-31 11:23
楼主您好，发现一个问题，比如将cround函数嵌套进if函数，自动补齐0的功能就失效了。
举例说明，有这样的 ...

用13楼的附件测试是正常的啊

三流高手

车子 发表于 2019-8-23 18:58
老师,十三楼的excel的表格是不是还在哪里设置了东西，为什么我另外表格中编制的cround函数报错？

13楼的表格中有VBA编写的自定义函数。如果你需要在其它表格中使用它，需要将代码拷贝到你自己的文件中。

lm3312

对你的这个函数——不认可，因为它背离了ROUND()函数的使用习惯。
一般来说，保留的小数位是2，那么，结果应该是 .00。如果第一行你需要的计算结果是610000，那么函数要保留的小数位应该是-5，这与工作表函数ROUND()的规则是一致的，如下面图片中的红色数值是用工作表函数ROUND()并按照你的计算公式计算的，结果差太大，你的函数的保留小数是2，让人无法理解。
所以，你如果要做类似工作表的函数，则自定义函数的使用规则应尽量符合原工作表函数，否则，只是一点计算结果的变化，却要记住两套规则，这会让人在使用时感到很繁琐，这也是你的这个函数没人愿意用的最大原因。

bjh187

好东西，下来学习

fenglingsx0312

@楼主，复制了代码，末位0为什么还是不保留？操作流程你看下是否有错：
ALT+F11,THISBOOK插入模块，粘贴cround代码；
ALT+F11,THISBOOK插入类模块，粘贴格式代码。

三流高手

fenglingsx0312 发表于 2020-11-24 09:38
@楼主，复制了代码，末位0为什么还是不保留？操作流程你看下是否有错：
ALT+F11,THISBOOK插入模块，粘贴cr ...

在ThisWorkBook上双击鼠标，打开代码窗口，选择WorkBook的SheetChange事件，然后再粘贴格式代码

fenglingsx0312

@楼主  问题解决了，谢谢。
           还有个问题请教，我希望nbround、roundup、round函数都能补齐末位0，是否仅仅将代码中“cround”改为“cround”or“nbround”or“roundup”or“round”就可以了？

三流高手

你所说的这些函数都是保留小数点后n位的，可以直接在单元格格式中设置，不需要自定义函数了。