資源描述:
《Excel小寫轉(zhuǎn)大寫帶元整》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、EXCEL如何將小寫自動(dòng)轉(zhuǎn)成大寫顯示并在元或角后顯示整方法一:=IF(ABS(A2)<0.005,"",IF(A2<0,"負(fù)",)&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]")&"分","整"))????方法二:可以自己編一個(gè)!步驟如下:打開(kāi)Excel,按Alt+F11(或者選擇菜單工具→宏→VisualBasic編輯器),進(jìn)入后新建模塊(插入→模塊),鍵入以下語(yǔ)句: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這樣就可以了,關(guān)閉VB編輯器,進(jìn)入Excel界面會(huì)發(fā)現(xiàn)在插入函數(shù)時(shí)多了一類“用戶定義”,里面有個(gè)函數(shù)“NCN”,就是你要的函數(shù)。起名
5、為NCN,意思是“NummaryCapitalNumber”貨幣大寫數(shù)字。如果不喜歡,可以在角本里改,用理想的函數(shù)名替換"NCN"即可。試試看吧!在A1里鍵入“1025.3”,在B1里寫“=NCN(A1)”,效果不錯(cuò)吧?關(guān)閉之前可以把你自己寫的模塊導(dǎo)出到一個(gè).bas文件,以后想用的時(shí)候?qū)爰纯?。因?yàn)槭亲约壕帉懙?,所以沒(méi)有數(shù)字簽名,打開(kāi)帶有此函數(shù)的文件時(shí)會(huì)提示有風(fēng)險(xiǎn)。降低安全級(jí)別即可,打開(kāi)之后再改回來(lái)。