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 で他の一般的なタスクを実行する方法について説明します。