资源描述：
《财务金额的自动化大小写转换》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、财务金额的自动化大小写转换在与报销单类似的财务单据填写过程中，货币金额的小写和大写转化是一个很重要的环节，在手工处理时，不但输入时很繁琐，而且还往往会出现不符合财务上描述货币数字的情况。在本例中，我们事先自定义一个函数，然后再利用自定义的函数来实现自动转换，具体的操作步骤如下：（1）执行菜单栏中的【工具】
2、【宏】
3、【VisualBasic编辑器】命令，进入“VisualBasic编辑”窗口。（2）在“VisualBasic编辑”窗口中，执行菜单栏中的【插入】
4、【模块】命令，插入一个模块（如图1所示）。双击左侧的“模
5、块1”，在窗口右边展开“模块1（代码）”编辑窗口，输入如下代码：图1插入模块Functiondx(q)ybb=Round(q*100)'将输入的数值扩大100倍，进行四舍五入y=Int(ybb/100)'截取出整数部分j=Int(ybb/10)-y*10'截取出十分位f=ybb-y*100-j*10'截取出百分位zy=Application.WorksheetFunction.Text(y,"[dbnum2]")'将整数部分转为中文大写zj=Application.WorksheetFunction.Text(j,
6、"[dbnum2]")'将十分位转为中文大写zf=Application.WorksheetFunction.Text(f,"[dbnum2]")'将百分位转为中文大写dx=zy&"元"&"整"d1=zy&"元"Iff<>0Andj<>0Thendx=d1&zj&"角"&zf&"分"Ify=0Thendx=zj&"角"&zf&YibinCityCitytracktrafficplanningisYibincityregionalrangewithintracktrafficsystemofonceintegrati
7、on,andcitytracktrafficalsoisYibinCityCityintegratedtracktrafficsystemintheofpart,foraccurategraspcitytracktrafficresearchofobject"分"EndIfEndIfIff=0Andj<>0Thendx=d1&zj&"角"&"整"Ify=0Thendx=zj&"角"&"整"EndIfEndIfIff<>0Andj=0Thendx=d1&zj&zf&"分"Ify=0Thendx=zf&"分"EndIf
8、EndIfIfq=""Thendx=0'如没有输入任何数值为0EndIfEndFunction提示：代码中“dx”是自定义函数名称，读者可以修改为其他字符。（3）输入完成后，关闭VBA编辑窗口返回工作表状态。（4）在D13单元格中输入公式：=dx(F12)，确认后即可将F12单元格中所示的小写数字金额转换为大写的数字金额，并将结果显示在D13单元格中，如图2所示。财务小写金额转大写金额的多种方法 2010-01-2012:43:53
9、 分类：电脑知识主要exce
10、 标签：
11、字号大中小 订阅第一种方法:=IF(
12、ISERROR(FIND(".",A1)),NUMBERSTRING(INT(A1),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角整",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角"&NUMBERSTR
13、ING(MID(A1,FIND(".",A1)+2,1),2)&"分"))生成效果：肆佰叁拾伍元整 第二种方法：=IF(ISERROR(FIND(".",A1)),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元整",IF(ISERROR(TEXT(MID(A1,FIND(".",A1)+2,1),"[DBNum2]G/通用格式")),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[DBNum2]G/通用格式")
14、&"角整",TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[DBNum2]G/通用格式")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[DBNum2]G/通用格式")&"分"))生成效果：肆佰叁拾伍元整 YibinCityCitytracktra
