1、在与报销单类似的财务单据填写过程中,我们除了要输入用阿拉伯数字表示的小写数字金额外,还要输入相应的中文大写数字。
2、如果手工进行处理,不但输入时很繁琐,而且还很容易出错,经常会造成大小写不相符的情况发生。
3、为此,我们可以利用VBA自定义一个函数,然后再利用这个自定义的函数来实现货币大小的自动转换。
【资料图】
4、这样,不但方便快捷,而且不易出错。
5、具体的操作步骤如下: 1. 启动Excel。
6、按“Alt+F11”快捷键打开“Visual Basic编辑器”。
7、 2. 在“Visual Basic编辑器”中,单击“插入”菜单栏中的“模块”命令,插入一个模块。
8、双击左侧“工程”窗口中的“模块1”选项,在窗口右边展开“模块1(代码)”编辑窗口,然后输入如下代码: Function dx(q) Dim Cur as Long,yuan as Long Dim Jiao as Integer,Fen as Integer Dim CnYuan as String, CnJiao as String, CnFen as String If q = "" Then dx = 0 Exit Function End If Cur = Round(q * 100) Yuan = Int(Cur / 100) Jiao = Int(Cur / 10) - Yuan * 10 Fen = Cur - Yuan * 100 - Jiao * 10 CnYuan = Application.WorksheetFunction.Text(Yuan, "[DBNum2]") CnJiao = Application.WorksheetFunction.Text(Jiao, "[DBNum2]") CnFen = Application.WorksheetFunction.Text(Fen, "[DBNum2]") dx = CnYuan & "元" & "整" d1 = CnYuan & "元" If Fen 0 And Jiao 0 Then dx = d1 & CnJiao & "角" & CnFen & "分" If Yuan = 0 Then dx = CnJiao & "角" & CnFen & "分" End If End If If Fen = 0 And Jiao 0 Then dx = d1 & CnJiao & "角" & "整" If Yuan = 0 Then dx = CnJiao & "角" & "整" End If End If If Fen 0 And Jiao = 0 Then dx = d1 & CnJiao & CnFen & "分" If Yuan = 0 Then dx = CnFen & "分" End If End If End Function 输入完成后,关闭“Visual Basic编辑器”返回工作表。
9、现在,我们可测试一下这个函数。
10、首先,在A1单元格中输入一个小写数字的金额,例如123456.78,然后,在A2单元格中输入公式:=dx(A1),确认后即可将A1所表示的小写数字金额转换为大写的数字金额,并在A2单元格中显示出来。
11、怎么样,方便吧?。
本文到此分享完毕,希望对大家有所帮助。
免责声明:本文由用户上传,如有侵权请联系删除!标签:
股票行情快报:诺普信(002215)7月28日主力资金净卖出2.53万元
苹果手机不越狱怎么查看已连接wifi密码(苹果不越狱看wifi密码)
被举报强奸19岁女孩,涂磊再回应:自己被网暴,妻子也得了大病
全国最北最长的地方铁路——北黑铁路首段新建线开通
甘肃省特色农产品及食品加工产业链招商引资洽谈会引资150.52亿元
“西安新农人发展联盟”成立大会在西安举办
台风“杜苏芮”登陆福建晋江,水利部全力防范应对台风暴雨洪水
告人诈骗要多少钱
2023赣南师范大学科技学院录取分数线是多少 2023赣南师范大学科技学院录取规则
余生随心非主流繁体字(非主流个性签名繁体字)
国泰君安半年度业绩快报:归母净利润57.42亿元 同比减少9.89%
芯动联科:上半年净利润同比增长31.62% 拟10派0.6元
2个字的名字(现在能取2个字的名字)
服务大运 离境退税“即买即退”上线
三部门:明确2023年城乡居民医保筹资标准为1020元
女足世界杯中国队1:0战胜海地队
宁波银行:宁银消金注册资本增至29.11亿元
欧莱雅集团2023上半财年销售额达205.7亿欧元
腌酸豇豆角的做法(豇豆角的做法)
麒盛科技控股股东唐国海质押1300万股 用于个人资金需求
习近平出席第31届世界大学生夏季运动会开幕式
诈骗罪后判刑多久
中国贸促会调研:外贸企业对国际市场信心增强
偷渡到缅甸当雇佣军 90后男子被判拘役
西安城墙景区有游客钻门缝进入疑逃票,工作人员:正在处理,会加固城门
优酷COO刘燕红亮相中国国际数码互动娱乐展览会
美的集团拟分拆子公司安得智联于深交所主板上市
台风“杜苏芮”已造成福建约72万人受灾
南京有哪些婚礼习俗(新人在婚礼上都有哪些礼仪)
张睿吃红牌!中国女足少一人应战
8月四川将实施这些新规
新华全媒+丨支持民营经济发展,税务部门如何发力?
沃华医药:2023年半年度净利润约3720万元,同比下降33.66%
今年登革热病例获或创新高!《自然》杂志指出罪魁祸首
北京鸣医智造丁阳:向上而行,拒绝医美行业“野蛮生长”
中国女篮首战83:63胜葡萄牙迎“开门红”
赵勇获批担任中银消费金融董事
湖北武汉 大量“治污鱼”死亡 或因湖水被污染 周围恶臭居民苦不堪言
金融监管总局:银行保险机构开发新业务应强化操作风险的事前识别等工作
从亲哥到太监全都兼顾,最会照顾XP的官方非《摇光录》莫属了吧!
泰山队静候京鲁大战,帕托出场概率大增,吴兴涵租借加盟中甲
全球最大!扬州船企创下“中国造船”新速度
安徽省人大常委会通过一批人事任免
男子用切割机破坏庙门还进庙砸神像,警方已介入
2022年中国“三新”经济增加值相当于GDP的比重为17.36%
UGG第一财季收入下跌6%
货拉拉全国上线违禁品自动识别功能
金融监管总局:银行保险机构应当建立有效的操作风险管理考核评价机制
优化供应链合作 零供圆桌论坛设立采购选品对接板块
万达商管回应美元债缺口传闻:已经完成兑付,目前经营情况稳定
问道手游精怪怎么获得(问道手游精怪)
ABB推出GoFa™协作机器人系列两款新品
融创中国:计划债权人会议将于9月18日召开
西藏林芝:搬迁村的藏纸“致富经”
台风红色预警继续发布!“杜苏芮”上午将登陆!
中国信通院:2023年二季度互联网投融资总额10.1亿美元
一加亮相ChinaJoy 2023,散热体验区引燃现场氛围
特朗普因“密件风波”面临多项新指控
aiptek投影仪使用说明书
庆阳市防汛抗旱指挥部提升防汛应急响应至Ⅲ级
吉林森林公安破获系列非法狩猎案 14人落网
中央气象台:“杜苏芮”将北上,京津冀豫等地警惕极端降雨影响
云南德宏多地发生山洪灾害 已造成人员失联
台风杜苏芮已造成福建省72.46万余人受灾
中阳县2023年生猪产业高质量发展项目第三批奖补资金拟发放情况的公示
曝光!又一批涉嫌非法社会组织名单公布
紫金山天文台:宝瓶座δ南流星雨即将浪漫来袭
行政拘留!以虚假证明、恶意投诉骗取关怀,招行信用卡坚决拒绝
赋能农业生态是生鲜电商的破局之道
三星为 Galaxy Z Flip 5 / Fold 5 手机提供以旧换新服务
“CAS概念验证计划”高校专场路演举办
成都大运会|从“双奥之城”到“大运之城”:体育之美展现魅力中国
2023年小麦质量营养与安全品质评价技术培训班举办
重疾险进口药怎么报销?报销比例是多少?
全国重要生态系统保护和修复重大工程建设暨荒漠化综合防治现场会召开
北大荒农业股份七星分公司规模化经营让土地提质增效
豆瓣高分电影top100(高分求电影 目的地上海 下载地址!)
Harbour Group International通过收购新的多户住宅开发项目扩大南佛罗里达州投资组合
屯溪高压阀门:售后服务认证持续获得五星证书
跳出家装产业周期,嘉宝莉的“艺术穿越”
追光丨大运会如约而至,成都准备好了
生意社:成本上涨 本周DOTP价格震荡上涨
成都大运会:共有113个国家和地区 6500名运动员参赛
全球首个合成橡胶期货及期权在上交所正式挂牌交易
重庆市垫江县市场监管局开展民营医院专项检查
心包积液严重吗怎么治疗_心包积液严重吗
国家税务总局:上半年全国新增减税降费及退税缓费9279亿元
公安部:对聚众斗殴、寻衅滋事等案件快办快处
淘宝新上线AI装修产品,不到24小时引发数千人排队试测
夏粮收购市场稳中向好 丰收粮卖上好价钱
腾龙山庄(腾龙山)
同比倍增 上半年汽车整车出口金额达464.2亿美元
报告:今年上半年国内游戏市场收入达1442.63亿元
2022南通科技职业学院分数线是多少分
重庆13个区县遭遇暴雨 12条河流出现超警戒水位洪水
外交部提醒在尼日尔中国公民加强安全防范
手机动态:OPPO Reno3手机序列号怎么查找
瑞士美度表舵手系列TV腕表卓绝上市 锐意突破,强者回归
国际最新研究:监测回声定位信号或助力追踪濒危海豚
陕西省人大常委会表决通过一批任免职人员名单