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（）函数则是取的小的整数。
相关推荐：
