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() 函数将数字四舍五入到可能的最大整数。
转载请发邮件至 1244347461@qq.com 进行申请，经作者同意之后，转载请以链接形式注明出处
本文地址：
相关文章
发布时间：2023/03/19 浏览次数：627 分类：vba
-
本教程演示了如何在 vba 中使用具有多个条件的自动过滤器。
发布时间：2023/03/19 浏览次数：383 分类：vba
-
本教程演示如何在 vba 中设置工作表。
