Excel小寫轉(zhuǎn)大寫帶元整

ID:43347352

大?。?8.01 KB

頁(yè)數(shù):3頁(yè)

時(shí)間:2019-10-01

Excel小寫轉(zhuǎn)大寫帶元整_第1頁(yè)
Excel小寫轉(zhuǎn)大寫帶元整_第2頁(yè)
Excel小寫轉(zhuǎn)大寫帶元整_第3頁(yè)
資源描述:

《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)。

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動(dòng)畫的文件,查看預(yù)覽時(shí)可能會(huì)顯示錯(cuò)亂或異常,文件下載后無(wú)此問(wèn)題,請(qǐng)放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫(kù)負(fù)責(zé)整理代發(fā)布。如果您對(duì)本文檔版權(quán)有爭(zhēng)議請(qǐng)及時(shí)聯(lián)系客服。
3. 下載前請(qǐng)仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動(dòng)等原因無(wú)法下載或下載錯(cuò)誤,付費(fèi)完成后未能成功下載的用戶請(qǐng)聯(lián)系客服處理。
关闭