當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 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!