当前位置:知识问问>百科问答>在Exc来自el中,金额大小家独作逐龙写自动保持一致?

在Exc来自el中,金额大小家独作逐龙写自动保持一致?

2023-03-11 12:28:41 编辑:join 浏览量:589

在Exc来自el中,金额大小家独作逐龙写自动保持一致?

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

版权声明:文章由 知识问问 整理收集,来源于互联网或者用户投稿,如有侵权,请联系我们,我们会立即处理。如转载请保留本文链接:https://www.zhshwenwen.com/answer/23830.html
热门文章