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

优昙钵华

终于找到一个四舍六入的了，试试是否可以奇进偶舍，多谢你的贡献

wjt_1221

谢谢楼主，正需要。

三流高手

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

测试了一下，是正常的呀

EX咖喱棒

貌似还是会出错，数值大一点不会，小的话好像会出现这样的情况。奔溃啊，公式也不复杂。大神帮忙看看呗，谢谢了

车子

老师,十三楼的excel的表格是不是还在哪里设置了东西，为什么我另外表格中编制的cround函数报错？

ggmmlol

你的函数写得太复杂了。

根据"有效数字"的定义，把数值x保留d位有效数字，需要经过3个步骤：
第1步：就是先求得一个数值X,并使得X满足以下2个条件条件：
        条件1：X的整数部分只有1位，
        条件2：x = X * (10 ^ n) (其中n为整数）
第2步，对X按舍入规则（四舍六入五留双），保留d-1位小数，得到数值Y，则Y的有效位数为：1位整数加d-1位小数，共d位。
第3步，把Y乘以10^n，得到最终结果。

而第2步的计算，可以直接使用VBA的Round函数。（请注意：VBA的Round函数，与工作表的ROUND函数是不同的，前者是“四舍六入五留双”，后者是“四舍五入”）

按以上分析，可以写出既简单、又高效的自定义函数：

1. Function CROUND(c, d%)
   
2.     Dim n%
   
3.     n = Int(Log(Abs(c)) / Log(10))
   
4.     CROUND = VBA.Round(c / 10 ^ n, d - 1) * 10 ^ n
   
5. End Function

复制代码

ygdyj

谢谢分享，确实有用

wjt_1221

ggmmlol 发表于 2019-8-23 22:31
你的函数写得太复杂了。

根据"有效数字"的定义，把数值x保留d位有效数字，需要经过3个步骤：

0.5095 用你的写法出来是0.509，是错的，结果0.510才是对的。

Juho_Mak

三流高手 发表于 2017-10-25 13:00
单元格的格式是由代码自动设置的，只对cround函数的结果起作用。

老师好，内容很受用，但我在做验证表格的时候，一般都需要把工作表保护起来，只留可手输的单元格，测试中发现在保护工作表后，cround函数修约出现修约有0的结果，不能实现补齐0的效果，代码是否有存在这个小缺陷呢

prince939

抱走了， 谢谢大神