利用ECEL进行修约的计算方法.docxVIP

看了你的“修约”的自定义函数，就是：四舍六入，五的时候分情况：前一位偶- 舍，奇-入，五的后面还有数-入。其实还有简单的方法哟： 若你的数据在 A1，我们想精确到 0.1，我们在B1 写公式： =ROUND(A1,1)-(MOD(A1,2)=0.05) 若你的数据在 A1，我们想精确到 0.01，我们在B1 写公式： =ROUND(A1,2)-(MOD(A1,2)=0.005) 以此类推！ 去试一试吧！ 追问 谢谢您的回答。 您的这种方式有漏洞，按规范修约 2.345 保留两位小数，应该是 2.34，而不是 2.35 了，因为 5 前面是偶数，然后 5 后面没有任何数了。 我的附件它还有个好处，可以修约会到想修约会的陪数，如 0.1 0.2 0.25 0.5 5 等等。 回答 sorry！由于浮点运算的误差，出了点问题！幸好被你明鉴，未酿出大祸！修改如下： 若 A1 的值，保留到整数，使用公式： =ROUND(A1,0)-(MOD(A1,2)=0.5) 保留一位小数，我们只需将 A1 乘以 10，结果除以 10，即 =(ROUND(A1*10,0)-(MOD(A1*10,2)=0.5))/10 保留二位小数，我们只需将 A1 乘以 100，结果除以 100，即 =(ROUND(A1*100,0)-(MOD(A1*100,2)=0.5))/100 以此类推！修改很是方便的哟！ 你若想更通用一点，我们可以把修约的精度值放在某个单元格里，如 C1 存放 0.02，B1 写公式： =(ROUND(A2/C$1,0)-(MOD(A2/C$1,2)=0.5))*C$1 公式是可以下拖复制的，你可以改变一下 C1 的值去试一试！ 如果你还是想用“自定义函数的方法”，稍候再叙！ 追问 非常感谢你的帮助！要是能够用一种内嵌的函数会更好些，那样不必要另起一行来计算。还有不光是修约的合理性达到要求，最好还可以像我上传的附件那样任 意给定值的陪数关系来准确修约（如 0.2，0.25，0.3，0.4，0.5，0.002，0.025 等等。在工程里面用的也比较多。 回答 看截图，你应该是 Excel 2010 吧！自己做一个“函数”吧： 打开 excel，Alt + F11，打开VBE，【插入】【模块】，【插入】【过程】，输入函数名：xiuyue，点选“函数”，在代码窗口，粘贴下面的代码： Public Function XiuYue(ByVal BeiXiuYue As Double, ByVal JingQueDao As Double) As Double Application.Volatile Dim a As String a = BeiXiuYue / JingQueDao Dim b As String b = a - Int(a) If b = 0.5 Then If Right(Int(a), 1) Mod 2 = 0 Then XiuYue = Int(a) * JingQueDao Else XiuYue = Int(a + 0.5) * JingQueDao Else End If XiuYue = Int(a + 0.5) * JingQueDao End If End Function Alt + F11，回到表格，点【文件】【另存为】，类型下选“Excel 加载宏（*.xlam）， 文件名改为：修约（后缀不要改哟），确定！关闭Excel ，重新打开Excel，按Alt 、T、I ，勾选“修约” 这时就可以使用你定义的函数了=XiuYue(数，精度)，再打开新的 Excel 也可继续使用的哟！请严格地按我说的步骤试一试吧 ！ 再有问题，百度 Hi 我吧！