[建议]用函数公式的指定有效位数的数值修约(2004.11.26有新内容1楼)

bosco_yip · 发表于 2004-11-19 00:12

如需要返回零值, 公式改成如下 :

=IF(A7=0,0,MROUND(A7,IF(--(RIGHT(A7/10^(INT(LOG(ABS(A7)))-$C$6+1),2))=0.5,2,1)*SIGN(A7)*10^(INT(LOG(ABS(A7)))-$C$6+1)))

bosco_yip · 发表于 2004-11-19 00:13

2) 公式是对的,请看

=MROUND(0.002375,IF(--(RIGHT(0.002375/10^(INT(LOG(ABS(0.002375)))-3+1),2))=0.5,2,1)*SIGN(A8)*10^(INT(LOG(ABS(0.002375)))-3+1))

正确返回0.00238

chenjun · 发表于 2004-11-19 00:41

对的，我第1次看时没有看到最后的+1))部份，公式不错，好象Stephen Bullen是位世界高手。只是MROUND是VBA定义的函数。

bosco_yip · 发表于 2004-11-19 08:37

对的, Stephen Bullen是位MS Excel MVP, 请参照 :

http://www.j-walk.com/ss/excel/eee/eee011.txt

bosco_yip · 发表于 2004-11-19 08:40

MROUND 是在加载宏, 分析工具箱那里

wssf · 发表于 2004-11-19 16:31

有段时间没来了,真高兴这个问题还在讨论, chenjun斑竹的帖子有些深,对我等菜鸟来说理解和使用有些难,希望的,是拿过来就可以用或可以克隆的,这绝不是怕动脑子偷懒,实在是个人水平太低. 有关四舍六入问题<office精英俱乐部>网站"函数应用"栏中YGZ先生给出了一个准确的公式,可以解决我的部分问题. 但是,我所急需的是有效数字问题,一般在数字修约时多伴有保留几位有效数字,所以希望看到在满足保留有效数字同时又按四舍六入修约的讨论. 此例子再帖一下: 0.02345 2.34501 12.35 12000 保留3位有效数字又按四舍六入修约结果为 0.0234 2.35 12.4 1.20×10^4 请各路英雄出手相助! 谢谢!

apolloh · 发表于 2004-11-21 14:02

老大，看看这个

昨晚我也想到科学记数法，没想到今天看你的贴已经这么做了，不过也有不同之处

2004-11-24修正见

http://club.excelhome.net/viewthread.php?tid=68996

[此贴子已经被作者于2004-11-24 13:05:11编辑过]

ccguo · 发表于 2005-4-18 23:25

VBA的round()函数本身就有这个四舍六入五奇偶的功能，只是由于计算误差，在保留位数为1位以上时不准确。

以下自定义函数，m为要进行舍入的数字，n为舍入的基数，如10,1,0.1,0.01,0.02,0.05,0.005等

Function round2(m, n) round2 = Round(Round(m / n, 3)) * n End Function

本人已在excel2000和2003上验证，请有兴趣者测试一下，有问题请联系cc_dy@163.com

chenjun · 发表于 2005-4-19 00:02

round2(1.245001,0.01)=1.24，按规则应该=1.25，这还是MS的一个BUG。

_s_bri · 发表于 2008-1-7 20:29

QUOTE:

以下是引用chenjun在2004-10-20 0:42:00的发言：
经常有网友提出按GB8170的规则并指定有效位数进行数值修约，这个修约规则好象与ISO的国际标准等效，不知为什么excel中没有直接的函数，附件中提供了一个用函数公式的解决方法，会VBA的朋友也可以按这个思路自编一个自定义函数。
对附件中的公式应该还可以优化，请大家讨论。
附件中为了充分体现出excel的15位有效数对单元格用了科学记数格式，实际使用中可以改为其他的格式。

2L3ph9kN.rar (12.48 KB, 下载次数: 71)

		自动登录	找回密码
密码			免费注册

[建议]用函数公式的指定有效位数的数值修约(2004.11.26有新内容1楼)

一个简单的自定义函数，可解决舍入问题