WPS四舍六入无成双怎么弄?
时间:2023-12-01 13:29:24
方法:先添加一个宏,然后起名。这里实例起名为MyRound
然后编辑宏弹出VBA编程窗口,在下面模块中输入:(系统生成的Sub Myround之类的全部删掉。)
Function myRound(ByVal num As Single, ByVal dec As Integer) As Single
With Application.WorksheetFunction
num = num * .Power(10, dec)
num1 = .RoundDown(num, 0)
num2 = num - num1
If num2 > 0.5 Or (num2 = 0.5 And Abs(num1 / 2 - Round(num1 / 2, 0)) > 0.00001) Then num1 = num1 + 1
num1 = num1 / .Power(10, dec)
End With
myRound = num1
End Function
保存后,然后在单元格中输入=myRound(单元格,小数点位数)即可
标签:WPS四舍六入无成双怎么弄?
0
投稿
猜你喜欢
Win10年度更新(RS1)怎么样升级?升级方法一览
2022-04-10 17:42:21
班迪录屏怎么录制高清视频
2022-09-16 03:48:45
wps演示如何插入在线图片
2023-03-21 20:20:39
Win10预览版10162图赏:目前最流畅版本
2022-06-10 14:16:49
word2010怎么添加英文朗读功能
2023-11-10 00:52:48
如何在Word 2016中更改文档视图?
2022-07-12 12:55:38
Win7系统桌面任务栏消失不见了操作解决步骤
2023-10-21 09:44:53
MacBookAir与MacBookPro全新对比
2022-03-28 14:15:35
word制作单斜线和多斜线表头的方法,非常实用!
2022-02-27 02:21:54
Word文档光标变大并且打字覆盖后面的字要如何解决
2022-03-11 23:10:18
利用IF函数+TODAY函数 excel 如何输入内容后在后一个单元格自动记录当前日期?
2022-09-20 14:25:01
如何解决用switchresx设置分辨率点击保存后重启无效的问题?
2022-07-25 23:20:35
win10预览版9879怎么安装?windows10 9879安装教程(附官方下载地址)
2023-11-17 07:13:45
Excel中怎么取消保护工作表
2022-03-01 12:20:50
Excel函数sum和large如何结合使用
2023-11-20 19:11:05
iOS 13 快速隐藏所有第三方应用的小技巧
2022-04-27 19:16:21
电脑版wps文档如何批量清除突出显示
2022-02-22 15:06:26
Excel突出了选择行和列的技巧 适合查看大量数据
2023-01-19 11:21:50
关闭windows defender有什么影响?windows defender关掉后果介绍
2022-07-25 09:17:04
Excel中Randbetween函数的使用方法是什么
2022-04-19 23:04:25