在Excel中,金额大小写自动保持一致
来源:百度知道 编辑:UC知道 时间:2024/06/09 16:15:15
如:A5单元格中填写金额大写,B5中是计算出来的小写金额
1.如何在我计算完B5中的数值,A5自动匹配大写??反之??
2.在我改变完B5中的数值,A5自动匹配大写??反之??
注:设置单元格格式,我已用了,还有没有更好的办法?自动方便的,可否有类似的软件?
1.如何在我计算完B5中的数值,A5自动匹配大写??反之??
2.在我改变完B5中的数值,A5自动匹配大写??反之??
注:设置单元格格式,我已用了,还有没有更好的办法?自动方便的,可否有类似的软件?
Excel自动转换数字大小写具体的操作步骤如下:
1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。
2. 在“visual basic编辑器”中,单击“插入”菜单栏中的“模块”命令,插入一个模块。双击左侧“工程”窗口中的“模块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