VBA 中的四舍五入

Iqra Hasnain 2024年2月15日
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 中的圆形函数

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

示例代码:

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

输出:

VBA 中将函数四舍五入到小数点后一位

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

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

示例代码:

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

输出:

从 VBA 中的 excel 表中舍入一个数字

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

语法:

# 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

输出:

VBA 中的四舍五入函数

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