Vba：値を小数点第2位に四捨五入する方法

VBA を使用して値を小数点第 2 位に四捨五入するには、次の方法を使用できます。

方法 1: 値を小数点第 2 位に四捨五入する

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

この特定の例では、セルA2の値を小数点第 2 位に四捨五入し、四捨五入した値をセルB2に表示します。

方法 2: 範囲内のすべての値を小数点第 2 位に四捨五入する

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

この特定の例では、 A2:A9の範囲内の各値を小数点第 2 位に四捨五入し、範囲B2:B9の四捨五入された値を表示します。

次の例は、各メソッドを実際に使用する方法を示しています。

例 1: 値を小数点第 2 位に四捨五入する

次のマクロを作成して、セルA2の値を小数点第 2 位に四捨五入し、結果をセルB2に表示します。

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

このマクロを実行すると、次の出力が表示されます。

セルA2の値 15.248 が、セルB2では小数点第 2 位 (15.25) に四捨五入されていることに注意してください。

例 2: 範囲内のすべての値を小数点第 2 位に四捨五入する

次のマクロを作成して、範囲 A2:A9 の各値を小数点第 2 位に四捨五入し、範囲B2:B9の四捨五入した値を表示できます。

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

このマクロを実行すると、次の出力が表示されます。

A2:A9の範囲内の各値は小数点第 2 位に四捨五入されており、四捨五入された値はB2:B9の範囲に表示されることに注意してください。

注: VBA Roundメソッドの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBAで値を四捨五入する方法
VBAで値を四捨五入する方法