excel中将表示金额的阿拉伯数字转换成中文大写的方法.doc

excel中怎么将表示金额的阿拉伯数字转换成中文大写 1、假设数字在A1单元格，目标单元格公式：=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(.,A1)),TEXT(LEFT(A1,FIND(.,A1)-1),[dbnum2])元TEXT(MID(A1,FIND(.,A1)+1,1),[dbnum2])角TEXT(MID(A1,FIND(.,A1)+2,1),[dbnum2])分,TEXT(A1,[dbnum2])元整),角分,角整),-,负) 2、要结果的单元格输入公式=IF(A20,负,)TEXT(TRUNC(ABS(ROUND(A2,2))),[DBNum2])元IF(ISERR(FIND(.,ROUND(A2,2))),,TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),[DBNum2]))IF(ISERR(FIND(.0,TEXT(A2,0.00))),角,)IF(LEFT(RIGHT(ROUND(A2,2),3))=.,TEXT(RIGHT(ROUND(A2,2)),[DBNum2])分,整)，A2是数字格。 3、打开Excel，按Alt+F11 或者选择菜单工具→宏→Visual Basic 编辑器 进入后新建模块（插入→模块），键入以下语句： Function NCN(account) Nummary Capital Number ybb = Round(account * 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, [dbnum2]) zf = Application.WorksheetFunction.Text(f, [dbnum2]) NCN = zy 圆 If j = 0 And f = 0 Then NCN = NCN 整 End If If f 0 And j 0 Then NCN = NCN zj 角 zf 分 If y = 0 Then NCN = zj 角 zf 分 End If End If If f = 0 And j 0 Then NCN = NCN zj 角 If y = 0 Then NCN = zj 角 End If End If If f 0 And j = 0 Then NCN = NCN zj zf 分 If y = 0 Then NCN = zf 分 End If End If If account = Then NCN = End If End Function 这样就可以了，关闭VB编辑器，进入Excel界面会发现在插入函数时多了一类“用户定义”，里面有个函数“NCN”，意思是“Nummary Capital Number”货币大写数字。如果不喜欢，可以在角本里改，用理想的函数名替换NCN即可。 关闭之前可以把你自己写的模块导出到一个.bas文件，以后想用的时候导入即可。因为是自己编写的，所以没有数字签名，打开带有此函数的文件时会提示有风险。降低安全级别即可，打开之后再改回来。 4、=SUBSTITUTE(IF(A2,IF(A20,负,)TEXT(TRUNC(A2),[dbnum2]g/通用格式元;[dbnum2]g/通用格式元;)TEXT(RIGHT(RMB(A2),2),[9][dbnum2]0角0分;[0][dbnum2]00分;整),零元),零分,整)