VBA 中的四舍五入

我们将通过示例来介绍 VBA 中的 Round() 和 RoundUp() 函数。

在 VBA 中使用 Round() 或 RoundUp() 函数

在使用包含数字和计算的 Excel 工作表时，我们会得到分数的结果。有时我们必须将这些十进制数转换为整数。

VBA 提供了三种不同的函数，可用于将十进制数转换为整数。我们将在本文中讨论两个函数。

Round() 将十进制数四舍五入到最接近的整数。例如，我们将存储一个十进制数，然后使用 Round() 函数。

示例代码：

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num)
End Sub

输出：

我们甚至可以提到小数位数，直到我们想要四舍五入。让我们尝试将相同的数字四舍五入到小数点后一位。

示例代码：

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num, 1)
End Sub

输出：

从上面的结果，我们可以很容易地将小数点四舍五入到小数点后一位。我们还可以使用此函数对 Excel 工作表中单元格的值进行四舍五入。

让我们尝试使用 range 方法对 Excel 工作表中的数字进行四舍五入。

示例代码：

# VBA
Sub roundFunc()
Range("A1").Value = Round(Range("A1").Value, 1)
End Sub

输出：

让我们讨论另一个函数，即使数字接近较小的整数，它也可以将十进制数四舍五入。可能在很多情况下，我们必须始终将十进制数四舍五入为大于十进制数的整数。

语法：

# VBA
Application.WorksheetFunction.RoundUp(num, 1)

让我们举个例子并尝试使用 RoundUp() 函数。

示例代码：

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
MsgBox Application.WorksheetFunction.RoundUp(num, 1)
End Sub

输出：

这样，我们可以使用 RoundUp() 函数将数字四舍五入到可能的最大整数。