终极完美解决四舍六入五留双

twostone

学习了，谢谢楼主！

红土地

这个思路很好，值得学习一下

YZC51

口是心非 发表于 2013-7-25 13:08
你好，楼主，能否再将代码完善一下，如果位数不够，则自动用0来补足呢？谢谢。
举例说明：
要求四舍六入 ...

Function jround(c, d%)

    On Error Resume Next
    jround = Round(c + 100, d) - 100
    jround = Format(jround, Left(1 / 10 ^ d / 10, d + 2))
        
End Function

YZC51

或
Function jround(c, d%)

    On Error Resume Next
    jround = Round(c + 100, d) - 100
    jround = Format(jround, Left(0.1 / 10 ^ d , d + 2))
        
End Function

YZC51

加入空值处理
Function jround(c, d%)

    On Error Resume Next
    jround = Round(c + 100, d) - 100
    jround = Format(jround, Left(0.1 / 10 ^ d, d + 2))
    If c = "" Then jround = ""
        
End Function

YZC51

解决参数D为负数的问题

Function jround(c, d%)

    On Error Resume Next
    m = 10 ^ d
    jround = Round(c + 100, d) - 100
    jround = Format(jround, Left(0.1 / m, d + 2))
    If d < 1 Then jround = Round(c * m, 0) / m
    If c = "" Then jround = ""
   
End Function

YZC51

Function jround(c, Optional d% = 0)

    On Error Resume Next
    m = 10 ^ d
    jround = Round(c + 100, d) - 100
    jround = Format(jround, Left(0.1 / m, d + 2))
    If d < 1 Then jround = Round(c * m, 0) / m
    If c = "" Then jround = ""
   
End Function

'支持=jround(B3)，D参数为空

YZC51

口是心非 发表于 2013-8-11 07:21
你好，楼主，能否再将代码完善一下，如果位数不够，则自动用0来补足呢？谢谢。
举例说明：
要求四舍六 ...

请测试

参数有误，待修改后发表！

raninight

老师您好，如果要加个判断应该怎么办？就是判断如果选择的单元格是空的单元格，那么显示值为空。多谢了！

yjpvip

学习了，关注