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

fenglingsx0312

@楼主老师，设置格式只能针对固定的小数位数，比如我编辑保留2位有效数字只进不舍时，末位零没法补齐，如下：
B1=0.1934；A1=ROUNDUP(B1, 2-(INT(LOG(B1+0.1^10))+1))=0.2，末位0没法补齐。

fenglingsx0312

@楼主老师，你前面编辑的nbround函数，即保留小数位加四舍六入五成双，能够提供个末位补零的格式代码吗？谢谢！

darklesson

虽然是坟贴，但是我看有人在讨论我也点进来看了一下，我确实没看明白楼主这个函数是什么意思。按照4舍6入5逢双进1的规则得到的结果为什么让人无法理解。
下面以保留2位小数为例：
22.525，结果应该是22.53
22.575，结果应该是22.57

Function Round2(number As Range, Optional num_digits As Integer = 0)
Dim Nums#, Numstep#, i%, k%, v As Boolean
If num_digits >= Len(Split(number, ".")(1)) Then Round2 = number: Exit Function
Numstep = 1: For i = 1 To num_digits
Numstep = Numstep / 10
Next i
i = InStr(1, number, ".") + num_digits
Select Case Mid(number, i + 1, 1)
Case Is > 5: v = True
Case 5: v = Mid(number, i, 1) Mod 2 = 0
End Select
Round2 = IIf(v, Val(Left(number, i)) + Numstep, Val(Left(number, i)))
End Function

fenglingsx0312

@darklesson 这种修约规则是行业要求，是四舍六入五“成”双，并不是你所说的逢双进一，如下：
22.525，保留两位小数，结果应该是22.52
22.575，保留两位小数，结果应该是22.58
22.52500000000000000000000000000000000000000001，保留两位小数，结果应该是22.53

fenglingsx0312

三流高手 发表于 2020-11-25 18:08
你所说的这些函数都是保留小数点后n位的，可以直接在单元格格式中设置，不需要自定义函数了。

@楼主老师，你前面编辑的nbround函数，即保留小数位加四舍六入五成双，能够提供个末位补零的格式代码吗？谢谢！

darklesson

fenglingsx0312 发表于 2020-11-26 11:50
@darklesson 这种修约规则是行业要求，是四舍六入五“成”双，并不是你所说的逢双进一，如下：
22.525，保 ...

哦，我大概理解这个修约规则了。我上面的代码略微修改一下就行了，并给增加了末尾补零的功能。
Function Round2(number As Range, Optional num_digits As Integer = 0)
Dim Num$, Numstep#, i%, v As Boolean
If num_digits >= Len(Split(number, ".")(1)) Then Round2 = number: Exit Function
Num = "0.": Numstep = 1: For i = 1 To num_digits
Numstep = Numstep / 10
Num = Num & "0"
Next i
i = InStr(1, number, ".") + num_digits
Select Case Mid(number, i + 1, Len(number))
Case Is > 5: v = True
Case 5: v = Mid(number, i, 1) Mod 2 = 0
End Select
Round2 = Format(IIf(v, Val(Left(number, i)) + Numstep, Val(Left(number, i))), Num)
End Function

fenglingsx0312

darklesson 发表于 2020-11-27 10:03
哦，我大概理解这个修约规则了。我上面的代码略微修改一下就行了，并给增加了末尾补零的功能。
Function ...

你好！，测试了下，不能补零。
A1=1.2   ,保留4位小数，应为1.2000，B1=ROUND2(A1,4)=1.2

庞富文

三流高手 发表于 2017-9-30 19:31
7楼的代码还是有不足的，如果公式复杂些的话会出错。
下面的附件是在原代码的基础上改进而来，适应任何复 ...

你好，我发现如果引用单元格数据改变了，使用cround函数的单元格不能自动调整格式，怎么解决呢

三流高手

庞富文 发表于 2021-11-14 16:41
你好，我发现如果引用单元格数据改变了，使用cround函数的单元格不能自动调整格式，怎么解决呢

你的工作簿是不是设置了手动计算？

沪上包子

三流高手 发表于 2017-9-30 19:31
7楼的代码还是有不足的，如果公式复杂些的话会出错。
下面的附件是在原代码的基础上改进而来，适应任何复 ...

这是我见过最接近完美的