Excel自动转换数字大小写.doc

《Excel自动转换数字大小写.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Excel自动转换数字大小写具体的操作步骤如下：1.启动excel。按“alt+f11”快捷键打开“visualbasic编辑器”。2.在“visualbasic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:functiondx(q)dimcuraslong,yuanaslongdimjiaoasinteger,fenasintegerdimcnyuanasstring,cnjiaoasstring,cnfenasstringifq=""the

2、ndx=0exitfunctionendifcur=round(q*100)yuan=int(cur/100)jiao=int(cur/10)-yuan*10fen=cur-yuan*100-jiao*10cnyuan=application.worksheetfunction.text(yuan,"[dbnum2]")cnjiao=application.worksheetfunction.text(jiao,"[dbnum2]")cnfen=application.worksheetfunction.text(fen,"[dbnum2]")dx=cnyu

3、an&"元"&"整"d1=cnyuan&"元"iffen<>0andjiao<>0thendx=d1&cnjiao&"角"&cnfen&"分"ifyuan=0thendx=cnjiao&"角"&cnfen&"分"endifendififfen=0andjiao<>0thendx=d1&cnjiao&"角"&"整"ifyuan=0thendx=cnjiao&"角"&"整"endifendififfen<>0andjiao=0thendx=d1&cnjiao&cnfen&"分"ifyuan=0thendx=cnfen&"分"endifendifendfuncti

4、on输入完成后，关闭“visualbasic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。怎么样，方便吧？