VBA～WorksheetFunction.Floorメソッド～Excel

VBAで指定した数値を指定した基準値の倍数の最も近い値で0に近い値に切り捨てたい場合はWorksheetFunction.Floorメソッドを使います。

書き方

WorksheetFunction.Floor(数値, 基準値)

例として下の画像において下のコードを実行するとC列にA列の数値をB列の基準値の倍数の最も近い値で0に近い値に切り捨てて表示されます。例えばセルC2はセルA2の数値5.5をセルB2の基準値3の倍数の最も近い値に切り捨てた3が表示されます

Sub test1()

Range("C2") = WorksheetFunction.Floor(Range("A2"), Range("B2"))
Range("C3") = WorksheetFunction.Floor(Range("A3"), Range("B3"))
Range("C4") = WorksheetFunction.Floor(Range("A4"), Range("B4"))
Range("C5") = WorksheetFunction.Floor(Range("A5"), Range("B5"))

End Sub

数値が正で基準値が負の場合は"WorksheetFunctionクラスのFloorプロパティを取得できません。"とエラーが表示されます。