Excel小写转大写带元整.doc

《Excel小写转大写带元整.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、EXCEL如何将小写自动转成大写显示并在元或角后显示整方法一:=IF(ABS(A2)<0.005,"",IF(A2<0,"负",)&IF(INT(ABS(A2)),TEXT(INT(ABS(A2)),"[dbnum2]")&"元",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10,"[dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)<0.1,,"零")))&IF(ROUND

2、(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整"))    方法二:可以自己编一个！步骤如下：打开Excel，按Alt+F11（或者选择菜单工具→宏→VisualBasic编辑器），进入后新建模块（插入→模块），键入以下语句：FunctionNCN(account)'NummaryCapitalNumberybb=Round(account*100)y=Int(ybb/100

3、)j=Int(ybb/10)-y*10f=ybb-y*100-j*10zy=Application.WorksheetFunction.Text(y,"[dbnum2]")zj=Application.WorksheetFunction.Text(j,"[dbnum2]")zf=Application.WorksheetFunction.Text(f,"[dbnum2]")NCN=zy&"圆"Ifj=0Andf=0ThenNCN=NCN&"整"EndIfIff<>0Andj<>0ThenNCN=NCN&zj&"角"&z

4、f&"分"Ify=0ThenNCN=zj&"角"&zf&"分"EndIfEndIfIff=0Andj<>0ThenNCN=NCN&zj&"角"Ify=0ThenNCN=zj&"角"EndIfEndIfIff<>0Andj=0ThenNCN=NCN&zj&zf&"分"Ify=0ThenNCN=zf&"分"EndIfEndIfIfaccount=""ThenNCN=""EndIfEndFunction这样就可以了，关闭VB编辑器，进入Excel界面会发现在插入函数时多了一类“用户定义”，里面有个函数“NCN”，就是你要的函

5、数。起名为NCN，意思是“NummaryCapitalNumber”货币大写数字。如果不喜欢，可以在角本里改，用理想的函数名替换"NCN"即可。试试看吧！在A1里键入“1025.3”，在B1里写“=NCN(A1)”，效果不错吧？关闭之前可以把你自己写的模块导出到一个.bas文件，以后想用的时候导入即可。因为是自己编写的，所以没有数字签名，打开带有此函数的文件时会提示有风险。降低安全级别即可，打开之后再改回来。