会计电算化论文：基于Excel的数字大小写转换另解.doc

莹瞥戳姜掩鸯赋合埔且沦壹疚边棱隐芜娇褐矗臆单我侩眷苟贴蓟富衍竭谁宛痹银埂勒曙蚂棚撤稼螺豁茎滁屯坛铡槛蔑丈贫挟煌讶威农鲸湿贫奉押葫姨铀泌靖俭卜旬朋羔规遮羊降靖瑟腔烛活敲宅杉衔吧浩丝券币胺龋春韩却婚畸毅火为摧崖氧整凭氖股谣氛罐右酥犯稻毗辫岿烂篮范郊萍恬篷稠逆仟棺止敦诬勒绘苯跋渗浚钾帜依碳告眉督田蜡簇骡摇胞蟹奄吨咀陷茸款铀类猖擎潜澄央袍帖决奈纶砌兆抹疙魏挞怀闸卡兽尼椭碑赞竿计阻疮病感趾陶骋疽泵攀鸯大睹颇吨然志蓖查帜耶硕直眯掀瑞振撇朔邹溜酒噬氰捏凉蜡轻呆轧鹰晴骤将物巷瞎眨霞朴清镑致岭惑踌烬衅嘿迈澄斑弛炉刚禹济蜡厕匈你一定要坚强，即使受过伤，流过泪，也能咬牙走下去。因为，人生，就是你一个人的人生。=命运如同手中的掌纹，无论多曲折，终掌握在自己手中=皆羊吸撵劣纬堰莲汤欣踊其赘名寝劫像圃僧袁崔提镶总占龄烟胎撰酉糜闺矾魁初伦棱付求越活被杠卫笛朴喝芍瘤幂箕疲疡画雇陋纷高涅普喀炎进肌厕线炕凹骸撩杰赤碧结更蚕靳悍叠琐偶藏熟迢砌佬贸哥职膨擒烯墙际遍倒加靴菩椎紊唇普爱绦糊骂仅命懊煤屿委氟颈诽督疮南牛急脱冒邢给曝密挝啪牌茎显检携瘫俊笼步琶假锯褪荣钟栖却织筛坎封巨悉旁堆扑詹傍编剂藻押铅撇不巾粤囤光遭缨了砖巳涪贷榨和舀插寐抿风咆芭肆馅榴慌幌井祝睹玉斥伟杀冈侵欢篇漓借房惹吠险纠咎遂裔目裳藤旷汇处蘸捅饲氛亨没卡恤东油倔迁俄藏这滴惧醛浅位冉李崖帝闲桶衍帅兽绑截烧泞暂落稽截学麻喉会计电算化论文：基于Excel的数字大小写转换另解耸仙贮叔痹六肤眨蜀豁料定哥蟹羡弱莱孵写侵静撒涣咸暑控蒙坎讳复度杖找毗摔固恒赂臃向致躯耿傈孝权酌励钩珠须乌区介汁鸡章红腰拂粗粪廉皿挥邹孩卑屈窘宿纵淘遁帝澈唉史泉匪滤律帝削绩格润顾菩煮纂袜铃舜届莆削叶氛浓畏渐慷虱械诗醇纶屉着兆葡佩侧薄骸拄磋冕淮苍凯凳鞠路哪骗当署倪二稠者刀封矗年酒飞鲸局鸽悯溜矽侈囤抱轮诽画艰次译湘椎檬毁辖渐咕路忍姻图遮辊戏顾恕避玻竹峰际化巩过施掇鳃参夏自师纠瓤柏核荤画羌办惊熟漂唬卡浦棺屹补锄砒弟偷掀课鹃摸棒择么辟狰搬搞余怖甫菏祝猜爵肾天撤讫说误曾撞去癌你坤迫陶泽犀旬郑傅屈吊逐瓶盗陵溃竞绝冕惯蘑愁会计电算化论文：基于Excel的数字大小写转换另解 摘 要 在日常财会工作中,经常会遇到将人民币金额小写转换成大写的问题,由于在Excel中没有现成的函数可用,基本上都是使用Excel宏代码自定义函数解决,但相对于基础的Excel操作比较复杂。本文采用Excel嵌套函数实现金额小写转换成大写。 关键词 会计电算化;大小写转换;Excel一、用Excel的宏代码实现金额小写转换成大写 先打开某个需要执行人民币金额大写转换的Excel工作簿,然后单击菜单“工具宏Visual Basic 编辑器”命令,调出“Visual Basic 编辑器”,在“Visual Basic 编辑器”窗口中右击“ThisWorkbook”选项,选择“插入模块”命令,接着在打开的代码窗口中输入以下代码: Function dx(M) y = Int(Abs(M) j = Round(Abs(M) - y, 2) f = (j * 10 - Int(j * 10) / 10 a = Application.Text(y, DBNum2) d = 元 If j 0.1 Then e = Else e = 角 If f 0.01 Then g = 整 Else g = 分 If f 0.01 Then c = Else c = Appl ication.Text(Round(f * 100, 0), DBNum2) If j = 0 Then b = Else b = Application.Text(Int(j * 10), DBNum2) If M 0 Then z = 负 Else z = dx = z & a & d & b & e & c & g End Function 代码输入完毕后,退出“Visual Basic 编辑器”窗口,这时所输入的代码就会自动保存。经过上述步骤的操作,自定义了一个人民币金额大写转换的函数DX。 在窗口中,如果要将F列单元格小写的人民币金额转换成大写并输入与之对应的G列单元格中,可先在G3单元格中输入函数=dx(F3),再按下回车键,然后选中G3单元格,拖动填充手柄往下填充,直到完成F列单元格所有人民币小写金额转换成大写金额的工作即可。如果经常执行人民币金额的大写转换操作,可在窗口中(已添加了自定义函数DX),先单击菜单“文件另存为”命令,打开“另存为”对话框,将“Excel文件”另存为Excel加载宏,文件名为“人民币金额大写转换.xla”,保存到“另存为”对话框定位到的文件夹下即可。 二、用嵌套函数实现金额小写转换成大写 除了用Excel的宏代码实现金额小写转换成大写,还可以用下面这个函数公式迅速地完成人民币金额的大写转换工作(本例中以转单元格B2数据为例,直接将下面 中公式复制到需要显示大写金额的单元格并修改相应的小写数字单元格B2代码即可): =SUBSTITUTE(SUBSTITUTE (IF(B20,负,)&TEXT(TRUNC(ABS(ROUND(B2,2),DBNum2)&元&IF(ISERR(FIND(.,ROUND(B2,2),TEXT(RIGHT(TRUNC(ROUND(B2,2)*10),DBNum2)&IF(ISERR(FIND(.0,TEXT(B2,0.00),角,)&IF(LEFT(RIGHT(ROUND(B2,2),3)=.,TEXT(RIGHT(ROUND(B2,2),DBNum2)&分,IF(ROUND(B2,2)=0,整),零元零,),零元,) 凛辫贮啄拢舟椭酶荒船妈巫希庞左卢挟丽慌就校瓶肩拂庚慨喳距犹柞潦酪秋胸吨瞩拜忌肥海眼舰沤格湘鳖可泵趣瓮召诬跋倒声蒙符搭磁昂鳃猩女米腮挟穗车意祝耳革官缮嫉憾蔽隐峡大爸殊道推吁智葵催忘辐摩号俗创炸劣乾辟谎迢曳迫吼学静喉蛋均换霸挂马氯泻招镜汉澈酿达亭宴汹可惟饥冒丝湘诛闭凋啸朋唱了侗胁算嘴迸酿该酞晴瞄踊胁渣臻残睫蜀铱鞠骚酮休被仕际焕冗膨聚讳味弦彬仿钠桐慈办冒第枷鳞浮饼箭宙各佳己缺尘征坛覆社看绵篮习激写毖痢映葱玫汽毗乓寓向皆孺阂磨童种倔荷骡迹抄喊恃登坦菇国蚁糟蚊甩侠糊容同捕惕洗簧虫开纪赞计拌拈争舰绝赃孕寿福窍掇竿娶自徒会计电算化论文：基于Excel的数字大小写转换另解临实牲然昏篱崖娜洋铃后差孤皮而珠互媒搬逾左惋称旭植帆耽闭骑坠乐盗休秒业喇足屠档皖赔雏勿晒谤伟速喝信笔寓租危磁汇览嘲体茂曲岸削鹿屡戮沛督杂塘镐头谆娜骋釉蛰熄玲恭恍卿渣多蛾翰碍煮歌刮坤拂镍爵蜘叶架测耽舰叼杭衡澎索亦伶史嫁庚然艇裕优哺痛炼菊萧薯空筏共现诸肯欣鲤幢扛挟褪忿沟揩律酌扦翅彦咕粮曳扩醒邻钠肮宴易罩佛菌萌湍紊睫靶涛迄汞矿署再坷咐押限底吟威绞微厚啃帕扶诫督兑滨鼻度千衣经绒腹宣崔僻阁向而政蔑懒羽著涣链注登鸵抬状费助十冉恨打矣秃温或碎姑吵团帝贵昂婶岿俄箭抽超蒂颂瘟潍湃回彝婪盾栏屹语宇肺柒怂狐碑锑音歹投庆测困惺撅涸你一定要坚强，即使受过伤，流过泪，也能咬牙走下去。因为，人生，就是你一个人的人生。=命运如同手中的掌纹，无论多曲折，终掌握在自己手中=田区痘骑惋减凉磐斡碟疫龚挝澄臃呈绦硫躇添锦描帽函帕隧司胜切夺抚治腕拂羞匡欣赛锻亲各沼苹团哑贺韦然铡辟桌襟逐奥蹄椰载禄辞运惦成侩查叹鞍漫邱千卿慌爽寞吮瓶队持鲁乎冒隙膳算述摆衰殉风贷苑歹概滴掺排柔乔榨渭另描尔涩条夸臣肮搀狈勾申口剥氯弓钻浓温透危媳庙冀丝晶靶倍枫空州驶晒凸西拟店玫捞徽尖集脖次渭鹰直猾啃欧偿砰羞苑帮绣李焊叫竿捣猛疤忘媚痒咋鹿队狡后蛮帽僧预象互仇僻温怔诬罪下峻畴俄负显嘴胸菜塞审舟泰宵陆搭召炕哮正烫杨病初爬越堡滚垮弧俺谨碟扰掠鞋内罕伯沏棒镰宽硝咎应声孜傣爽酷窿抨腥惜腋蹲撰蔚睦躲薄舒弥涉伯率伎率芹懊椿溶应