EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图,比如生活开支......
代做excel如何利用vba实现四舍五入
今天跟大家分享一下如何利用vba实现数据四舍五入
工具/原料
- Excel
方法/步骤
如下图表格中含有一些数据,现在我们想要利用vba批量将这些数据保留两位小数。
点击表格任意一单元格,然后同时按下Ctrl A
同时按下Alt F11
点击sheet1,然后在右边空白区域录入vba代码
点击【运行】,然后选择【运行子过程/用户窗体】
在弹出对话框内输入2,然后点击【确定】即可完成。
完成效果如下图,最后跟大家分享一下本文这里所使用的vba代码,如有需要可以复制粘贴使用。
'激活工作表事件
'激活工作表,写入除目录外所有表名
'作者:如需代做Excel,请百度方方格子
'------------------------------------------
Sub 真正的四舍五入()
Dim r As Range
Dim str
Dim bitnum As Double
Dim tmp As Double
'-----------------------------
str = Application.InputBox("请输入要保留的小数位数", "输入", "2")
If str = False Then Exit Sub
If Not IsNumeric(str) Then Exit Sub
bitnum = CDbl(str)
If bitnum 0 Then Exit Sub
'-----------------------------
For Each r In Selection
If IsNumeric(r.Value) Then
tmp = Application.WorksheetFunction.Round(r.Value, bitnum)
r.Value = tmp
End If
Next
End Sub
注意事项
- 如有疑问可以点击下方【我有疑问】,与我沟通交流!!
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!