VBA～WorksheetFunction.MRoundメソッド～Excel

VBAで指定した数値を指定した倍数の最も近い値に丸めたい場合はWorksheetFunction.MRoundメソッドを使います。

書き方

WorksheetFunction.MRound(数値, 倍数)

例として下の画像において下のコードを実行するとC列にA列の数値をB列の倍数の最も近い値に丸めて表示されます。例えばセルC2はセルA2の数値11をセルB2の倍数3の最も近い値12が表示されます。

Sub test1()

Range("C2") = WorksheetFunction.MRound(Range("A2"), Range("B2"))
Range("C3") = WorksheetFunction.MRound(Range("A3"), Range("B3"))
Range("C4") = WorksheetFunction.MRound(Range("A4"), Range("B4"))

End Sub

数値と倍数の符号が一致していない場合は"WorksheetFunctionクラスのMRoundプロパティを取得できません。"とエラーが表示されます。