全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
Word中数字金额小写“变”大写在日常的办公应用中,尤其是作为一名财务人员,经常需要输入大写金额的形式的数字,“肆仟叁佰五拾元零伍分”,如果用手工输入的话,显得比较麻烦,其实只要通过输入小写数字并通过编写一个简单的宏就能达到快速输入的目的!启动Word后按下A lt+F11组合键,在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口,在代码编辑窗口中输入如下代码:Option ExplicitSub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = 壹贰叁肆伍陆柒捌玖零 定义一个中文大写汉字常量 On Error Resume Next 错误忽略 With Selection Numeric = VBA.Round(VBA.Val(.Text), 2) 四舍五入保留小数点后两位 判断是否在表格中 If .Information(wdWithInTable) Then _.MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter 对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) 2147483647 Then MsgBox 数值超过范围!, _ vbOKOnly + vbExclamation, Warning: Exit Sub IntPart = Int(VBA.Abs(Numeric) 定义一个正整数 Odd = VBA.IIf(IntPart = 0, , 圆) 定义一个STRING变量 插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), 人民币金额大写:, 人民币金额大写:负) 对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 如果是0,即是选定的数据为整数 Oddment = VBA.IIf(Odd = , , Odd & 整) Case Is 10 10,即是零头是分 Oddment = VBA.IIf(Odd , 圆零 & VBA.Mid(ZWDX, DecimalPart, 1) & 分, _ VBA.Mid(ZWDX, DecimalPart, 1) & 分) Case 10, 20, 30, 40, 50, 60, 70, 80, 90 如果是角整 Oddment = 圆 & VBA.Mid(ZWDX, DecimalPart / 10, 1) & 角整 Case Else 既有角,又有分的情况 Jiao = VBA.Left(CStr(DecimalPart), 1) 取得角面值 Fen = VBA.Right(CStr(DecimalPart), 1) 取得分面值 Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & 角 转换为角的中文大写 Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & 分 转换为分的中文大写 End Select 指定区域插入中文大写格式的域 Set MyField = .Fields.Add(Range:=.Range, Text:= & IntPart & *CHINESENUM2) MyField.Select 选定域(最后是用指定文本覆盖选定区域) 如果仅有角分情况下,Mychinese为 MyChinese = VBA.IIf(MyField.Result 零, MyField.Result, ) .Text = Lable & MyChinese & Oddment End WithEnd Sub输入完毕后按下Alt+Q键返回word中,以后只需要依次选中需要转换的小写金额后,按下Alt+F8打开宏对话框,选择“小写金额变大写
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年劳动力交流意向协议范本(二篇)
- 2024年廉租房工程安全责任合同(二篇)
- 2024年服装订购合同标准模板(3篇)
- 2024年合作合同标准模板(2篇)
- 2024年财产租赁合同标准范本(四篇)
- 人教版小学数学四年级上册期末测试卷带答案(新)
- 苏教版科学四年级下册期末测试卷附答案【综合题】
- 六年级下册道德与法治第二单元《爱护地球 共同责任》测试卷含答案【黄金题型】
- 部编版道德与法治三年级下册第一单元 我和我的同伴 测试卷附答案(培优b卷)
- 人教版数学四年级上册期末测试卷含答案(考试直接用)
- 《I'm watching TV》英语说课稿课件(全英文)
- 2024年中国建材集团总部招聘1人公开引进高层次人才和急需紧缺人才笔试参考题库(共500题)答案详解版
- 职业教育中心音乐表演专业人才培养方案
- 小升初复习模拟试卷(试题)-2023-2024学年六年级下册数学青岛版
- 心衰治疗指南解读2024课件
- 全球及中国无人机(UAV)保险行业市场现状供需分析及市场深度研究发展前景及规划可行性分析研究报告(2024-2030)
- 陕西省西安爱知初级中学2024届中考化学最后冲刺模拟试卷含解析
- 营销策划服务购销合同模版
- 人教PEP五年级下册英语 Unit 5 B Let's learn教学反思
- 国家职业技能标准 (2019年版) 消防设施操作员
- 宝洁公司财务分析报告.docx
评论
0/150
提交评论