监理检测网论坛

注册

 

返回列表
发新话题 回复该主题
查看: 1794|回复: 5

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

zqfkchen
头像

  • 技术员
  • 21
  • 69
  • 2014-08-11
1#
t T
发表于 2016-11-11 15:36 |只看楼主
求Excec表格四舍六入五奇偶方法µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
分享 转发
TOP
liuguiyuan140
头像

  • 爱心志愿者
  • 151
  • 339
  • 2016-08-19
2#
t T
发表于 2016-11-14 08:48 |只看该用户

µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
TOP
123983869
头像

  • 技术员
  • 6
  • 32
  • 2009-04-12
3#
t T
发表于 2016-11-14 08:58 |只看该用户

BUG，没有µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
TOP
xiashuang007
头像

客途秋恨

  • 技术员
  • 5
  • 30
  • 2007-03-12
4#
t T
发表于 2016-11-16 15:13 |只看该用户

=ROUND(ROUND(((A1+A2)/2/8),3)*8,1)µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
这个是两个单元格 平均后修约精确至0.1。µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
TOP
zqfkchen
头像

  • 技术员
  • 21
  • 69
  • 2014-08-11
5#
t T
发表于 2017-01-13 17:03 |只看楼主

回复 4楼xiashuang007的帖子µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
谢谢µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
TOP
smuiteeq
头像

  • 技术员
  • 17
  • 52
  • 2012-05-29
6#
t T
发表于 2017-01-19 16:25 |只看该用户

特别简单，复制下面的，建一个模块，然后用bround函数就行了，和round用法一样。可以推出末尾数为任何数的修约。µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
'终极完美的四舍六入五留双的自定义函数代码，其实很简单µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
Function bround(c#, d%)µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
    bround = VBA.Round(CDec(c), d)µriõª#ßÇgbbs.3c3t.comëß¿å68N*º
End Functionµriõª#ßÇgbbs.3c3t.comëß¿å68N*º
TOP
上一主题| 下一主题
返回列表
发主话题 回复该主题
高级编辑器高级编辑器