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

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

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

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

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

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

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