会计电算化论文：基于Excel的数字大小写转换另解.doc

《会计电算化论文：基于Excel的数字大小写转换另解.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、会计电算化论文：基于Excel的数字大小写转换另解[摘要]在日常财会工作中,经常会遇到将人民币金额小写转换成大写的问题,由于在Excel中没有现成的函数可用,基本上都是使用Excel宏代码自定义函数解决,但相对于基础的Excel操作比较复杂。本文采用Excel嵌套函数实现金额小写转换成大写。　　[关键词]会计电算化;大小写转换;Excel一、用Excel的宏代码实现金额小写转换成大写　　　　先打开某个需要执行人民币金额大写转换的Excel工作簿,然后单击菜单“工具→宏→VisualBasic编辑器”命令,调出“VisualBasic编辑器”,

2、在“VisualBasic编辑器”窗口中右击“ThisWorkbook”选项,选择“插入→模块”命令,接着在打开的代码窗口中输入以下代码:　　Functiondx(M)　　y=Int(Abs(M))　　j=Round(Abs(M)-y,2)　　f=(j*10-Int(j*10))/10　　a=Application.Text(y,"[DBNum2]")　　d="元"　　Ifj<0.1Thene=""Elsee="角"　　Iff<0.01Theng="整"Elseg="分"　　Iff<0.01Thenc=""Elsec=Application.

3、Text(Round(f*100,0),"[DBNum2]")　　Ifj=0Thenb=""Elseb=Application.Text(Int(j*10),"[DBNum2]")　　IfM<0Thenz="负"Elsez=""　　dx=z&a&d&b&e&c&g　　EndFunction　　代码输入完毕后,退出“VisualBasic编辑器”窗口,这时所输入的代码就会自动保存。经过上述步骤的操作,自定义了一个人民币金额大写转换的函数DX。　　在窗口中,如果要将F列单元格小写的人民币金额转换成大写并输入与之对应的G列单元格中,可先在G3单元格

4、中输入函数=dx(F3),再按下回车键,然后选中G3单元格,拖动填充手柄往下填充,直到完成F列单元格所有人民币小写金额转换成大写金额的工作即可。如果经常执行人民币金额的大写转换操作,可在窗口中(已添加了自定义函数DX),先单击菜单“文件→另存为”命令,打开“另存为”对话框,将“Excel文件”另存为Excel加载宏,文件名为“人民币金额大写转换.xla”,保存到“另存为”对话框定位到的文件夹下即可。　　　　二、用嵌套函数实现金额小写转换成大写　　　　除了用Excel的宏代码实现金额小写转换成大写,还可以用下面这个函数公式迅速地完成人民币金额的

5、大写转换工作(本例中以转单元格B2数据为例,直接将下面{}中公式复制到需要显示大写金额的单元格并修改相应的小写数字单元格B2代码即可):　　{=SUBSTITUTE(SUBSTITUTE　　(IF(B2<0,"负","")&TEXT(TRUNC(ABS(ROUND(B2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(B2,2))),"",TEXT(RIGHT(TRUNC(ROUND(B2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(B2,"0.00"))

6、),"角","")&IF(LEFT(RIGHT(ROUND(B2,2),3))=".",TEXT(RIGHT(ROUND(B2,2)),"[DBNum2]")&"分",IF(ROUND(B2,2)=0,"","整")),"零元零",""),"零元","")｝