excel的vba如何使用fix函数取整

Excel

excel中VBA使用fix函数的方法。

1、首先我们打开一个工作样表作为例子。

2、使用 alt+f11组合快捷 键进入 vbe编辑器， 插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub ddt()

Sheet3.Activate

Dim num1 as Integer

Dim num2 as Integer

Dim msg as String

num1 = InputBox(请输入一个小数)

num2 = InputBox(请输入一个负数)

msg = fix取整数为:Fix(num1)

MsgBox msg

Sheet3.Range(a1) = msg

msg = fix取整数为:Fix(num2)

Sheet3.Range(a2) = msg

End Sub

3、我们对变量做声明，这里可以使用最小整数类型的num声明，另外对 msg声明为文本类型。

4、输入num1和num2的值，并对其添加提示语内容，num1为小数，num2为负数小数。

5、 将值赋予msg变量 ，在msg变量中我们进行fix()函数的运算。fix()函数只有一个参数，就是取整数值。

6、 这里需要注意的是fix()函数和int()函数虽然同样是取整， 但是int()函数返回值依循四舍五入运算法则，最后得值是取大的整数， 而fix()函数则是取的小的整数。