如何在vba中对值进行四舍五入（附示例）

您可以使用 VBA 中的RoundUp方法对值进行舍入。

该函数使用以下基本语法：

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

此特定示例会将单元格A1中的值舍入为最接近的整数，并将结果显示在单元格B1中。

请注意， RoundUp方法的第二个参数指定要向上舍入的位数，其中：

• -3轮到下一个千
• -2舍入到最接近的百位
• -1向上舍入到最接近的十位
• 0四舍五入到最接近的整数
• 1四舍五入到最接近的十分位（小数点后一位）
• 2四舍五入到最接近的百分位（小数点后两位）
• 3四舍五入到最接近的千分位（小数点后三位）

等等。

以下示例展示了如何在实践中使用RoundUp方法。

示例 1：VBA 中四舍五入到最接近的整数

我们可以创建以下宏，将单元格A1中的值四舍五入到最接近的整数，并将结果显示在单元格B1中：

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格A1中的值 1432.78 在单元格B1中四舍五入为最接近的整数 1433。

示例 2：VBA 中四舍五入到最接近的百位

我们可以创建以下宏，将单元格A1中的值四舍五入到最接近的百位，并将结果显示在单元格B1中：

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格A1中的值 1432.78 在单元格B1中四舍五入到最接近的 1500 的百位。

示例 3：在 VBA 中四舍五入到最接近的十分位

我们可以创建以下宏，将单元格A1中的值四舍五入到最接近的十分位（即一位小数），并将结果显示在单元格B1中：

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格A1中的值 1432.78 在单元格B1中向上舍入为最接近的 1432.8 的十分之一。

注意：您可以在此处找到 VBA RoundUp方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何编写 SUMIF 和 SUMIFS 函数
VBA：如何编写 COUNTIF 和 COUNTIFS 函数
VBA：如何编写 AVERAGEIF 和 AVERAGEIFS 函数