excel中vba使用fix函数的方法

excel中vba使用fix函数的方法

小编致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看小编经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，成为和小编一样的经验达人。excel中vba使用fix函数的方法，这里，让小编给大家介绍一下。

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

使用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

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

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

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

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

先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。