Word 用 VBA 函数将数字转换为大写金额

最新推荐文章于 2023-11-30 15:24:05 发布

寄语风中

最新推荐文章于 2023-11-30 15:24:05 发布

阅读量4.7k

点赞数 1

分类专栏： Word VBA Office

本文链接：https://blog.csdn.net/u010533853/article/details/79780093

版权

本文介绍如何使用Visual Basic for Applications (VBA)宏，在Microsoft Word中将数字转换为规范的大写金额形式，适用于财务报告和发票等场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'自定义函数 NTDX 将数字金额转换为财务要求的大写金额（NTDX：Number To DaXie）
Public Function NTDX(A As Variant)
    Set Excel = CreateObject("excel.Application") '在 Word 中引用 Excel 程序, 然后可使用 Excel 程序中的工作表函数
    If A = "" Or Not IsNumeric(A) Then
        MsgBox "请确认金额是否 【为空】 或是否为【非数值】", Title:="Error"
        Exit Func