Excel VBA WorksheetFunction.Roundメソッドで四捨五入するサンプル

2024年3月8日

環境
Windows 10 Pro 64bit
Excel 2016

構文
WorksheetFunction.Round(引数1、引数2)
引数1は、四捨五入する対象の数値を指定します。
引数2は、四捨五入した結果の桁数を指定します。

使用例
WorksheetFunction.Roundメソッドで、四捨五入するサンプルです。
サンプルコード

Sub testw()

    Dim nm1 As Double
    nm1 = 2.5
    Debug.Print WorksheetFunction.Round(nm1, 0) '3が表示される

    Dim nn2 As Double
    nn2 = 2.26
    Debug.Print WorksheetFunction.Round(nn2, 0) '2が表示される
    Debug.Print WorksheetFunction.Round(nn2, 1) '2.3が表示される
    
    Dim nn3As Double
    nn3= 2.82
    Debug.Print WorksheetFunction.Round(num3, 0) '3が表示される
    Debug.Print WorksheetFunction.Round(num3, 1) '2.8が表示される

End Sub

Posted by arkgame