[VBA][Excel]切り上げ、切り捨て


※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

■概要
小数点第1位を切り捨て
小数点第2位を切り捨て
小数点第3位を切り捨て
一の位を切り捨て

小数点第1位を切り上げ
小数点第2位を切り上げ
小数点第3位を切り上げ
一の位を切り上げ


下記を実行すると

Private Sub CommandButton1_Click()

Dim i As Integer

i = 1

'サンプル
Sheet1.Cells(i, 1).Value = "サンプル数値 123.456"
i = i + 1

'●切り捨て
Sheet1.Cells(i, 1).Value = "WorksheetFunction.RoundDownメソッド"
i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundDown(123.456, 0)

'小数点第2位以下を切り捨て
i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundDown(123.456, 1)

i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundDown(123.456, 2)

'一の位以下を切り捨て
i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundDown(123.456, -1)


'●切り上げ
i = i + 1
Sheet1.Cells(i, 1).Value = "WorksheetFunction.RoundUpメソッド"
i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundUp(123.456, 0)

'小数点第2位を切り上げ
i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundUp(123.456, 1)

i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundUp(123.456, 2)

'一の位を切り上げ
i = i + 1
Sheet1.Cells(i, 1).Value = WorksheetFunction.RoundUp(123.456, -1)


End Sub

このようになります。

vba-excel-rounddown-roundup