[已解决]关于小数点进舍VBA的问题？

ccc919

如下：
X为变量
X= Round(X+B，0)
这样子只能四舍五入。请问如果取值为 2.1或2.2或2.3或2.4 如何 显示为3 ？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-3-6 17:07

Sub test()
    Dim x, y
    '1）x是需判断的值
    x = 1


    '2）对判断的处理
    If x > 0 Then
        If x = Int(x) Then
            y = x
        Else
            y = Int(x) + 1
        End If
    Else
        y = "x不是正数"
    End If


    '3）返回结果
    MsgBox y
End Sub



根据需求，自己修改吧

跳转到最佳答案楼层

爱疯

考虑负数么，比如-2.1显示为几

ccc919

爱疯 发表于 2015-3-6 16:51
考虑负数么，比如-2.1显示为几

要考虑到列如计算结果为-4.2 或者为负数则提示不能为负数

爱疯

Sub test()
    Dim x, y
    '1）x是需判断的值
    x = 1


    '2）对判断的处理
    If x > 0 Then
        If x = Int(x) Then
            y = x
        Else
            y = Int(x) + 1
        End If
    Else
        y = "x不是正数"
    End If


    '3）返回结果
    MsgBox y
End Sub



根据需求，自己修改吧

26759761@qq.com

Sub x()
MsgBox IIf(2.3 > 0, Application.RoundUp(2.3, 0), "不能为负数")
End Sub


2.3改成变量

dsmch

1. Sub Macro1()
   
2. x = Val(Application.InputBox("请输入大于0的数值"))
   
3. If x > 0 Then
   
4.     MsgBox Application.RoundUp(x, 0)
   
5. Else
   
6.     MsgBox "X值非负，请重新输入"
   
7. End If
   
8. End Sub

复制代码