Excel VBA WorksheetFunction.RoundUpメソッドで数値を切り上げるサンプル

2024年3月8日

環境
Windows 10 Pro 64bit
Excel 2016

構文
WorksheetFunction.RoundUp(引数1、引数2)
1つめの引数は、切り上げる対象の数値を指定します。
2つめの引数は、切り上げた結果の桁数を指定します。

使用例
WorksheetFunction.RoundUpメソッドで、切り上げるサンプルです
サンプルコード

Sub tests()

    Dim nm1 As Double
    nm1 = 3.5
    Debug.Print WorksheetFunction.RoundUp(nm1, 0) '4が表示される
    
    Dim nm2 As Double
    nm2 = 2.26
    Debug.Print WorksheetFunction.RoundUp(nm2, 0) '3が表示される
    Debug.Print WorksheetFunction.RoundUp(nm2, 1) '2.3が表示される
    
    Dim nm3 As Double
    nm3 = 2.82
    Debug.Print WorksheetFunction.RoundUp(nm3, 0) '3が表示される
    Debug.Print WorksheetFunction.RoundUp(nm3, 1) '2.9が表示される

End Sub

Posted by arkgame