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

以下是一个简单的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

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

VBA数字转换大写-特殊大写需求
Excel 中数字转中文大写的方法很多,系统页给出了一些结果口,可实际项目当中可能遇到各种特殊情况,今天跟大家分享一个案例! 金额1648元,转换为人民币大写:壹仟陆佰肆拾捌元整,excel可以通过格 ...
【一步一步学习VBA】WORD 创建表格并合并表格
vba代码向word文档中插入表格并合并单元格,代码如下: Sub mergeCell() Dim Tbl As Table Set Tbl = ActiveDocument.Tables.Add(A ...
国产文档处理控件Spire.Doc WPS Word文档功能上线！快速创建Word指南
Spire.Doc for Java 是一款专业的Java Word组件,开发人员使用它可以轻松地将Word文档创建.读取.编辑.转换和打印等功能集成到自己的Java应用程序中. 本文将介绍如何使用S ...
(转)Excel VBA 操作 Word（入门篇）
原文地址本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人. 一.新建Word引用需要首先创建一个对 Word App ...
vba访问服务器中txt文件,vba读取word内容 vba读取txt文件
excel vba 读取 word 指定字符 Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject(＂Word.Application＂)Wdap ...
Excel如何拆分sheet（宏功能应用）
在运用Excel表格中,会出现将多个sheet需要分别变成一个单独的Excel表格,复制粘贴不仅费时,还会出现格式等问题,通过Excel中的宏应用可以轻松搞定操作步骤: 1.确认WPS版本支持宏功能 ...
vba 保存word里面的图片_1分钟批量处理100张图片，有Word在
天下苦Word久矣!Word不仅是个码字工具,还是个排版工具,而Word在排版方面经常遇到的问题,恐怕说个三天三夜都说不完! 好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:" ...
使用word自带功能快速编辑公式
使用word自带功能快速编辑公式 1. 设置默认打开为斜体 2. 更改默认字体 ①下载Latin Modern Math并安装 ②更改默认字体一个好用的软件可以将公式图片直接转换为Latex语句:[ ...
【AHK】【VBA】word四种设置自定义快捷键的方法
突然发现word有四种设置快捷键的方法,首先介绍的两种是word自带的设置方式:一种是AHK的设置方法,以一个简单例子即可上手:最后一种是方法的合体. 方法一首先是左上角的这个快速工具区,是可以自定 ...

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

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

最新文章

热门文章