Excel自朝望管胶后动转换数字大小写具体的操作步骤如下:
1.启动excel。按“alt+f11”快捷键打开“visualbasic编辑器”。
2.在“vi虽声艺本置皮缩步sualbasic编辑器”中,单击“插入”菜单栏中的“模块”命令,插入一个模块。双击左侧“工程”窗口中的“模块1”选项,在窗口右边展丝小处伤得占开“模块1(代码)”编辑窗口,然后输入如下代码:
functiondx(q)
dimcuraslong,yuanaslo超击ng
dimjiaoasinteger,fenasinteger
dimcnyuanasstring,cnjiaoasstring,cnfenasstring
ifq=""then
dx=0
e氧二xitfunction
endif
cur=round(q*100)
yuan=int(cur/100)
jiao=int(cur/10)-yuan*10
fen=cur-代yuan*100-ji讲三根端门教ao*10
cnyuan=appl氧鱼式参地且ication.worksheetfunction.text(yuan,"[已dbnum2]")
cnjiao=application.w模短信月设培急试若已orksheetfunction.text(jiao,"[dbnum2]")
cnfen=application.workshe例无常季调来etfunction.text(fen,"[dbnum2]")
dx=cnyuan&"元"&"整"
d1=cnyuan&"元"
iffen<>0andjiao<>0then
dx=d1&cnjiao&"角"&cnfen&"分"
ifyuan=0then
dx合完=cnjiao&"角"&c聚级察nfen&"分"
endif
en留音大某dif
iffen=0and种前汉学jiao<>0then
dx=d1&cnjiao&"角房态弦明"&"整"
ifyuan=0then
dx=cnjiao&"角"&"整"
endif
endif
iffen<>0andjiao=0then
dx=d1&cnjiao&cnfen&"分"
ifyuan=0then
dx=cnfen&"分"
endif
endif
endfunction
输入完成后,关闭“visualbasic编辑器”返回工作表。现在,我们可测试一下这个函数。首先,在a1单元格中输入一个小写数字的金额,例如123456.78,然后,在a2单元格中输入公式:=dx(a1),确认后即可将a1所表示的小写数字金额转换为大写的数字金额,并在a2单元格中显示出来。怎么样,方便吧?
标签:Exc