当前位置:首页 > 信息

excel表格中金额自动变大写(在Excel中,金额大小写自动保持一致)

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 fen <> 0 and jiao <> 0 then

dx = d1 & cnjiao & "角" & cnfen & "分"

if yuan = 0 then

dx = cnjiao & "角" & cnfen & "分"

end if

end if

if fen = 0 and jiao <> 0 then

dx = d1 & cnjiao & "角" & "整"

if yuan = 0 then

dx = cnjiao & "角" & "整"

end if

end if

if fen <> 0 and jiao = 0 then

dx = d1 & cnjiao & cnfen & "分"

if yuan = 0 then

dx = cnfen & "分"

end if

end if

end function

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

关键字:大写 / 自动 / 表格 / 大小写 / 金额 / 保持一致 / 
netgear无线路由器设置(网件无线路由器怎么无线设置) 八年级上册数学教学计划人教版(人教版初二上学期数学难吗?大 达朗贝尔原理(在流体力学中,拉格朗日分析法和欧拉分析法有何 生产安全事故应急预案范本(生产安全事故应急救援预案有范本吗 不动产登记申请书(农村房产证申请书范文) 居委会工作职责(居委会工作职责和职责的区别) 广东省三库一平台管理信息服务系统(谁能解答一下‘三库一平台 在施工程以及近年已竣工工程合同履行情况(质监站竣工验收完后 专题研讨会发言材料(牢记党章意识个人研讨会发言稿) 根据你熟悉的某一社会问题拟定一个详细的调查提纲(怎么做社会

猜你喜欢