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

  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()函数则是取的小的整数。

推荐阅读