用VBA在word创建宏，功能是金额数字转换大写

Jacob Piao

于 2023-02-16 02:55:04 发布

阅读量612

点赞数

文章标签： word

本文链接：https://blog.csdn.net/weixin_42593701/article/details/129452179

版权

本文介绍了一个VBA宏代码，该代码可以将Word文档中选择的单元格内的数字金额格式化为大写形式，包括人民币（RMB）和小数部分的转换。通过ConvertCurrencyToWords函数和一系列辅助函数实现。

摘要由CSDN通过智能技术生成

以下是一个简单的VBA代码示例，可用于将Word文档中所选单元格中的数字金额转换为大写金额：

``` Sub ConvertCurrencyToWords() Dim cell As Range For Each cell In Selection.Cells If IsNumeric(cell.Value) Then cell.Value = Format(cell.Value, "#,##0.00") cell.Value = "RMB " & ConvertToWords(cell.Value) & " only" End If Next End Sub

Function ConvertToWords(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1