TOP

函数VBA:Round

描述

VBA Round 函数将数字四舍五入到指定的小数位数。


语法 Round

Round(数字,小数位数)

示例 VBA Round

使用 Round 函数将数字四舍五入到小数点后两位:

Sub RoundExample1()

    number = 12.3456
    
    round = Round(number, 2)
    
    MsgBox round '12.35 返回
    
End Sub

使用 Round 函数对不同的数值进行舍入:

Sub RoundExample2()

    MsgBox Round(14.2)         '退货:14
    MsgBox Round(-14.2)        '返回:-14
    MsgBox Round("14.2")       '退货:14
    MsgBox Round("-14.2")      '返回:-14
    
    MsgBox Round(9.5)          '退货:10
    MsgBox Round(-9.5)         '回报:-10
    
    MsgBox Round(1.25, 1)      '回报:1.2
    MsgBox Round(50, 1)        '退货:50
    
    MsgBox Round(4532.6351, 2) '回报:4532.64
    
End Sub