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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

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

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

等等。

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

相关：如何在VBA中对值进行舍入

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

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

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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

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

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

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

其他资源

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

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