当Excel数据太年夜时,看起来比力繁琐,可以将数据以万为单元进行显示,显得加倍清楚易懂。
以下列数据为例,让年夜于一万的数值保留一位小数且以万为单元显示。
插入一个表单控件。
绘制当作功后会主动弹出一个窗口,选中右上角的 新建。
此时界面会主动跳转到VBA界面。
在模块窗口两条代码间输入代码。
代码如下,复制粘贴即可。
Dim k As Integer
Dim rng As Range
Set rng = Selection
k = InputBox("若是数值年夜于1万,保留几位小数")
For Each rng In Selection
If rng >= 10000 Then
rng = rng / 10000
rng = Application.WorksheetFunction.Round(rng, k)
rng = rng & "万"
Else
rng = rng
End If
Next
返回Excel界面,选中需要处置的区域,点击按钮即可。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!