Excel小寫轉大寫帶元整

《Excel小寫轉大寫帶元整》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。

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)j

3、=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&"角"&zf&"

4、分"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界面會發(fā)現(xiàn)在插入函數(shù)時多了一類“用戶定義”，里面有個函數(shù)“NCN”，就是你要的函數(shù)。起名

5、為NCN，意思是“NummaryCapitalNumber”貨幣大寫數(shù)字。如果不喜歡，可以在角本里改，用理想的函數(shù)名替換"NCN"即可。試試看吧！在A1里鍵入“1025.3”，在B1里寫“=NCN(A1)”，效果不錯吧？關閉之前可以把你自己寫的模塊導出到一個.bas文件，以后想用的時候導入即可。因為是自己編寫的，所以沒有數(shù)字簽名，打開帶有此函數(shù)的文件時會提示有風險。降低安全級別即可，打開之后再改回來。