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

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

目次

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

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

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

コード

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をセットします。

関連の記事

Excel VBA 四捨五入するサンプル
Excel VBA 数値を切り下げるサンプル

△上に戻る