财务审计必备工具之二：一键显示万元并保留两位小数

一、准备工作

将下列代码放入个人宏工作簿的模块中，保存。关于保存方法可以参考2017年1月21日的文章《个人宏工作簿使VBA代码在本机任何工作簿都可用》。

点击下面蓝色字的超链接可直接跳转：

个人宏工作簿使VBA代码在本机任何工作簿都可用

Sub Roundtool()

On Error Resume Next

Dim FStr As String

Dim cel As Range

For Each cel In Selection

FStr = Mid(cel.Formula, 1 IIf(VBA.Left(cel.Formula, 1) = '=', 1, 0), Len(cel.Formula))

cel.Formula = '=round((' & FStr & ')/10^4,2)'

Next

End Sub

然后指定一个按钮到工具栏上。方法还是参见以前的那篇公众号文章。

二、使用方法

1）选中一个或多个单元格区域；

2）点击一下工具栏上的按钮；

3）选中区域中单元格中的数值都会缩小成原来的万分之一，并保留两位小数；

4）比如单元格A1的数值原来是13456.67，按钮点击完单元格显示：1.35，单元格里的内容是：=ROUND((13456.67)/10^4,2)，也就是原单元格数值除以10000，然后结果用Round函数保留两位小数。

5）如果A1单元格内是公式，比如说=B8 sum(C8:E8)/2，那么点击完按钮后A1单元格的公式变成：=ROUND((B8 SUM(C8:E8)/2)/10^4,2)。

三、操作动画

后续还会有更多内容，敬请持续关注。