Excel VBA之函数篇-3.24整数小数随意切换 如何取整你说的算

前景提要

按照计划，今天将会是函数篇的最后一节了，函数篇已经持续更新了23篇了，前前后后也是和大家分享了不少VBA中的函数知识，有些函数可能大家并不是很在意，因为他的功能并不是很强大，有些函数大家则是非常的喜欢，应该能够帮助我们解决眼下的不少的问题，不过学习自然是要从基础做起，不能有挑食的习惯，所以虽然函数食之无味，但是弃之又太可惜了，大家还是要多温习之前学过的函数篇章的。

今天我们继续分享函数，最后一个函数知识了，今天的这两个函数也是和工作比较贴近的，大家应该会比较喜欢，就是数据的取整，和小数点后面位数的选择。

函数说明

先说说取整吧，针对取整，今天打算说两个函数，一个就是fix函数，一个是round函数，为什么要一次介绍两个呢？之所以将这两个函数放在一起说，是因为这两个函数虽然说作用一样，但是产生效果则是不同的，fix函数在取整的过程中，不会四舍五入，整数部分是多少，他取整的结果就是多少，而round则不同，他会四舍五入，所以再使用的时候需要根据不同的场景和需求来使用，round函数，还有设置小数点后面的位数的功能。

场景说明

假设下面的这份表是否某商城的员工再上个星期的销售业绩综合的表，店主想要知道自己的这些员工再上个星期的工作状态和销售能力，所以他需要用下面的这份表来做为参照，但是从销售情况来看，有些员工的销售额有很多的小数点，店主觉得这样看起来不方便，觉得取整数部分来看比较的好，那么如何只取整数部分呢？

image.png

Sub test()

Dim i&

For i = 4 To 12

    Cells(i, 3) = Fix(Cells(i, 2))

Next i

End Sub

image.png

嗯，不错，成功的将所有的销售的整数部分全部提取出来的，并且没有出现四舍五入的情况，单独看整数部分，我们会发现，a5和a9的销售水平是最好的，之后其他的几位同事的水平就有点层次不齐了，最近的店铺的业绩并不算是太好，这些销售能力不得表的员工，可以考虑将他们撤退了，选择留下来一些更加有实力的员工，这样不仅仅可以提升效率，也可以节省成本，但是单纯从整数部分来看，好像a1,a1的销售纪录都是差不多的啊，如果要按照优胜劣汰的方式的话，起码要有一个排名，这两人的成绩看起来差不多，那么我们再四舍五入一下取整吧。

Sub test()

Dim i&

For i = 4 To 12

    Cells(i, 4) = Round(Cells(i, 2))

Next i

End Sub

image.png

数据的结果上左边一列的结果，稍微有一些不同，我们可以看到a2的成绩出现了变化，因为他的销售金额是1000.9,他再取整的过程中出现了四舍五入的情况，同样的情况也出现在了a4身上，这样就可以比较出来在整体排名上上，a2的成绩是要好过a1的，a1和a8是倒数的两名销售员。

当然取整的方法计算起来比较方便，但是终究并不是最标准，最接近真实值的，再平时的计算中，大家更加 采用的还是保留小数点后面一位数的方式来进行汇总的，那么如何再VBA中实现保留小数点后面一位数呢？

Sub test()

Dim i&

For i = 4 To 12

    Cells(i, 5) = Round(Cells(i, 2), 1)

Next i

End Sub

设置小数点后面的位数的时候，依然还是使用Round函数，不过这里我们发现Round后面多了一个小数点，这个小数点就是设置保留几位小数的，想要保留2位小数的话，就写成2就好，以此类推。

image.png