VBA～WorksheetFunction.Ceilingメソッド～Excel

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

書き方

WorksheetFunction.Ceiling(数値, 基準値)

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

Sub test1()

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

End Sub