VBAで四捨五入、切り捨て、切り上げ

VBAでの四捨五入はRound関数、
切り捨てはRoundDown関数、
切り上げはRoundUp関数を使用します。
よく使う処理なので手軽に関数で行えるのは便利ですね。

    Debug.Print "-----Round関数で四捨五入-----"
    Debug.Print Round(123.4567, 1)
    Debug.Print Round(123.4567, 2)
    Debug.Print Round(123.4567, 3)
    
    Debug.Print "-----RoundDown関数で切り捨て-----"
    Debug.Print WorksheetFunction.RoundDown(123.4567, 1)
    Debug.Print WorksheetFunction.RoundDown(123.4567, 2)
    Debug.Print WorksheetFunction.RoundDown(123.4567, 3)
    
    Debug.Print "-----RoundUp関数で切り捨て-----"
    Debug.Print WorksheetFunction.RoundUp(123.4567, 1)
    Debug.Print WorksheetFunction.RoundUp(123.4567, 2)
    Debug.Print WorksheetFunction.RoundUp(123.4567, 3)

結果は以下のようになります

-----Round関数で四捨五入-----
123.5
123.46
123.457
-----RoundDown関数で切り捨て-----
123.4
123.45
123.456
-----RoundUp関数で切り捨て-----
123.5
123.46
123.457