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

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

目次

切り下げ 数値を切り下げる(WorksheetFunction.RoundDown)

数値を切り下げる(WorksheetFunction.RoundDown)

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

コード

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

Sub test1()

    Dim num1 As Double
    num1 = 3.5
    Debug.Print WorksheetFunction.RoundDown(num1, 0) '3が表示される
    
    Dim num2 As Double
    num2 = 2.26
    Debug.Print WorksheetFunction.RoundDown(num2, 0) '2が表示される
    Debug.Print WorksheetFunction.RoundDown(num2, 1) '2.2が表示される
    
    Dim num3 As Double
    num3 = 2.82
    Debug.Print WorksheetFunction.RoundDown(num3, 0) '2が表示される
    Debug.Print WorksheetFunction.RoundDown(num3, 1) '2.8が表示される

End Sub

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

関連の記事

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

△上に戻る