当前位置：网站首页 > 创业 > 正文

Excel一键实现数字金额变大写技巧

张子豪 2025-10-12 06:56 1

处置Excel数据过程中，经常会碰着要输入年夜写金额的环境，若何快速的将数字酿成年夜写金额呢！

东西/原料

Excel

方式/步调

1
先新建一个Excel文档，然后另存为后缀名为xlsm的格局。
2
绘制一个节制按钮，本教程以插入一个矩形外形为例。
3
编纂外形。
4
按下组合键Alt+F11切换到VBA界面。
5
插入一个模块。
6
在模块中复制粘贴以下代码：
Sub Money()
Dim k As String
Dim m As String
Dim n As String
Dim p As String
Dim rng As Range
Set rng = Selection
For Each rng In Selection
If rng - Int(rng) = 0 Then
rng = Application.WorksheetFunction.Text(rng, "[DBNUM2]")
rng = rng & "元整"
Else
If rng * 10 - Int(rng * 10) = 0 Then
k = rng.Value
rng = Application.WorksheetFunction.Text(Int(k), "[DBNUM2]")
rng = rng & "元"
m = rng.Value
rng = Application.WorksheetFunction.Text(Int(k * 10) - Int(k) * 10, "[DBNUM2]")
rng = rng & "角整"
n = rng.Value
rng = m & n
Else
k = rng.Value
If Int(rng * 10) - Int(rng) = 0 Then
rng = Application.WorksheetFunction.Text(Int(k), "[DBNUM2]")
rng = rng & "元"
m = rng.Value
rng = Application.WorksheetFunction.Text(Int(k * 100) - Int(k * 10) * 10, "[DBNUM2]")
rng = rng & "分"
n = rng.Value
rng = m & "零角" & n
Else
rng = Application.WorksheetFunction.Text(Int(k), "[DBNUM2]")
rng = rng & "元"
m = rng.Value
rng = Application.WorksheetFunction.Text(Int(k * 10) - Int(k) * 10, "[DBNUM2]")
rng = rng & "角"
n = rng.Value
rng = Application.WorksheetFunction.Text(Int(k * 100) - Int(k * 10) * 10, "[DBNUM2]")
rng = rng & "分"
p = rng.Value
rng = m & n & p
End If
End If
End If
Next
End Sub
7
封闭VBA窗口，回到Excel窗口。
8
为外形指心猿意马宏。
9
框选需要转换的单位格，点击按钮即可。