全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中,所以要自己建设,暂时找到了三种实现途径,经过测试均功能正常,还有一种是在书上找到的,懒得KEYIN进来了,反正也差不多了。方法1,通过在EXCEL表格框(例如在“B1”单元)中直接输入以下公式:=IF(A10,金额为负无效,(IF(OR(A1=0,A1=),(人民币)零元,IF(A1“宏”-“VisualBasic编辑器”,在编辑器窗口中,点击菜单“插入”-“模块”,在出现的窗口中输入以下内容:Function daxie(ByVal Num) 人民币中文大写函数 Application.Volatile True Place = 分角元拾佰仟万拾佰仟亿拾佰仟万 Dn = 壹贰叁肆伍陆柒捌玖 D1 = 整零元零零零万零零零亿零零零万 If Num 999999999999999# Then: daxie = 数字超出转换范围!: Exit Function If Num = 0 Then: daxie = 零元零分: Exit Function NumA = Trim(Str(Num) NumLen = Len(NumA) For J = NumLen To 1 Step -1 数字转换过程 temp = Val(Mid(NumA, NumLen - J + 1, 1) If temp 0 Then 非零数字转换 NumC = NumC & Mid(Dn, temp, 1) & Mid(Place, J, 1) Else 数字零的转换 If Right(NumC, 1) 零 Then NumC = NumC & Mid(D1, J, 1) Else Select Case J 特殊数位转换 Case 1 NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) Case 3, 11 NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & 零 Case 7 If Mid(NumC, Len(NumC) - 1, 1) 亿 Then NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & 零 End If Case Else End Select End If End If Next daxie = (人民币) & FuHao & Trim(NumC)End Function然后切换回excel,在“A2”单元中输入数字,在“B2”单元中输入:“=DaXie(A2)”,就可看到效果。方法3,同样是通过VBA公式,方法同上,公式如下:Function daxie1(money As String) As String Dim x As String, y As StringConst zimu = .sbqwsbqysbqwsbq 定义位置代码Const letter = 0123456789sbqwy.zjf 定义汉字缩写Const upcase = 零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分 定义大写汉字Dim temp As Stringtemp = moneyIf InStr(temp, .) 0 Then temp = Left(temp, InStr(temp, .) - 1)If Len(temp) 16 Then MsgBox 数目太大,无法换算!请输入一亿亿以下的数字, 64, 错误提示: Exit Function 只能转换一亿亿元以下数目的货币!x = Format(money, 0.00) 格式化货币y = For i = 1 To Len(x) - 3y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)NextIf Right(x, 3) = .00 Theny = y & z *元整Elsey = y & Left(Right(x, 2), 1) & j & Right(x, 1) & f *元*角*分End Ify = Replace(y, 0q, 0) 避免零千(如:40200肆萬零千零贰佰)y = Replace(y, 0b, 0) 避免零百(如:41000肆萬壹千零佰)y = Replace(y, 0s, 0) 避免零十(如:204贰佰零拾零肆)Do While y Replace(y, 00, 0)y = Replace(y, 00, 0) 避免双零(如:1004壹仟零零肆)Loopy = Replace(y, 0y, y) 避免零億(如:210億 贰佰壹十零億)y = Replace(y, 0w, w) 避免零萬(如:210萬 贰佰壹十零萬)y = IIf(Len(x) = 5 And Left(y, 1) = 1, Right(y, Len(y) - 1), y) 避免壹十(如:14壹拾肆;10壹拾)y = IIf(Len(x) = 4, Replace(y, 0., ), Replace(y, 0., .) 避免零元(如:20.00贰拾零圆;0.12零圆壹角贰分)For i = 1 To 19y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1) 大写汉字Nextdaxie1 = (人民币) & yEnd Function切换回excel,在“A3”单元中输入数字,在“B3”单元中输入:“=
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2021-2022年部编版四年级语文上册期末测试卷(加答案)
- 硕士研究生招生考试试题数学二解析2021
- 人教版七年级上册《生物》期末考试题(A4版)
- 2022-2023年人教版八年级数学下册期中考试题带答案
- 2023年人教版七年级地理上册期末测试卷
- 新人教版八年级语文上册期末考试带答案
- 2024届湖南省邵阳市高三一模化学试题(含答案解析)
- 肺栓塞业务查房
- 2024年缝中设备行业商业计划书
- 2024年连续式微波杀菌和萃取设备项目创业投资方案
- DB32-T 3755-2020 U型H型组合钢板桩支护技术规程-(高清现行)
- 药品一级经销商协议、药品委托生产协议、药品购销合同-《民法典》修订版
- DB62∕T 3155-2018 兰州市新区回弹法检测泵送混凝土抗压强度技术规程
- 读书就是要“过河拆桥”议论文阅读专练及答案(2020湖北武汉中考语文试题)
- 道德与法治课件:《我与集体共成长》PPT优秀课件
- 木业公司防疫与质量管理规章制度范本
- 医务人员技术档案表
- 部编人教版六年级下册语文修改病句专项水平练习题
- 母亲节主题班会家长的发言稿范文
- 熔体纺丝工艺要点
- 2022新教科版六年级科学下册全一册全部教案(共28节)
评论
0/150
提交评论