Excel VBA 数値を切り上げるサンプル

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

切り上げ	数値を切り上げる(WorksheetFunction.RoundUp)

数値を切り上げる(WorksheetFunction.RoundUp)

WorksheetFunction.RoundUp(引数1、引数2)

1つめの引数は、切り上げる対象の数値を指定します。
2つめの引数は、切り上げた結果の桁数を指定します。
以下はMicrosoft公式のWorksheetFunction.RoundUpメソッドのリンクです。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.worksheetfunction.roundup

WorksheetFunction.RoundUpメソッドで、切り上げるサンプルです。

Sub test1()

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

End Sub

WorksheetFunction.RoundUpメソッドの2つめの引数は、切り上げした結果の桁数になります。
切り上げした結果を整数にしたい場合は、5行目のように2つめの引数に0をセットします。