OFFICE中把金額轉(zhuǎn)換成大寫的技巧
瀏覽
收藏
【摘要】環(huán)球網(wǎng)校為方便會計從業(yè)人員了解會計行業(yè)，特整理了會計行業(yè)的相關(guān)資料供大家參考，本文是網(wǎng)校分享的“OFFICE中把金額轉(zhuǎn)換成大寫的技巧”介紹了OFFICE中把金額轉(zhuǎn)換成大寫的技巧，希望對大家有幫助，更多資料敬請關(guān)注環(huán)球會計從業(yè)資格考試頻道!
相關(guān)推薦：支票填寫注意事項及人民幣大寫規(guī)則
假設(shè)A1單元格為原始數(shù)據(jù)一、公式法一：
=IF(A1=0,"零元整",IF(A1<0,"負",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,"零"))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))
二、公式法二：
=IF(A1<0,"負",)&TEXT(TRUNC(ABS(A1)),"[DBNum2]G/通用格式")&"元"&IF(ROUND(A1,3)=ROUND(A1,),"整",TEXT(RIGHT(TRUNC(A1*10),1),"[DBNum2]G/通用格式")&"角"&IF(ROUND(A1,3)=ROUND(A1,1),"整",TEXT(RIGHT(ROUND((A1*100),),1),"[DBNum2]G/通用格式")&"分"))
三、公式法三：
=CONCATENATE(TEXT(INT(A1),"[DBNum2][$-804]G/通用格式")&"元"&IF((INT(A1*10)-INT(A1)*10)=0,"",TEXT(IF(AND(CEILING(A1*100,1)-INT(A1*10)*10=10,INT(A1*1000)-INT(A1*100)*10>=5),INT(A1*10)-INT(A1)*10+1,INT(A1*10)-INT(A1)*10),"[DBNum2][$-804]G/通用格式")&"角")&IF(OR(INT(A1*100)-INT(A1*10)*10=0,(IF(INT(A1*1000)-INT(A1*100)*10>=5,CEILING(A1*100,1)-INT(A1*10)*10=10,FALSE))),"整",(IF(INT(A1*1000)-INT(A1*100)*10>=5,(IF(CEILING(A1*100,1)-INT(A1*10)*10=10,"",(TEXT(CEILING(A1*100,1)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式")&"分"))),(TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式")&"分")))),"(￥",FIXED(A1,2,TRUE),"元)")
環(huán)球網(wǎng)校友情提示：環(huán)球網(wǎng)校會計從業(yè)資格考試頻道為考生提供2016年會計從業(yè)資格考試資訊供大家參考，考生亦可登錄會計證論壇，與其他學(xué)員交流經(jīng)驗，以上是網(wǎng)校整理的”OFFICE中把金額轉(zhuǎn)換成大寫的技巧“資料供大家參考!
編輯推薦：
【摘要】環(huán)球網(wǎng)校為方便會計從業(yè)人員了解會計行業(yè)，特整理了會計行業(yè)的相關(guān)資料供大家參考，本文是網(wǎng)校分享的“OFFICE中把金額轉(zhuǎn)換成大寫的技巧”介紹了OFFICE中把金額轉(zhuǎn)換成大寫的技巧，希望對大家有幫助，更多資料敬請關(guān)注環(huán)球會計從業(yè)資格考試頻道!
相關(guān)推薦：支票填寫注意事項及人民幣大寫規(guī)則
四、VBA代碼法(自定義函數(shù))
Public Function BigNum(xiaoxie As Currency)
Application.Volatile
Dim fuhao As String
fuhao = ""
If xiaoxie < 0 Then
xiaoxie = -xiaoxie
fuhao = "負"
End If
If xiaoxie = 0 Then
BigNum = "零元整"
Else
Const cNum = "零壹貳叁肆伍陸柒捌玖-萬仟佰拾億仟佰拾萬仟佰拾元角分"
Const cCha = "零仟零佰零拾零零零零零億零萬零元億萬零角零分零整-零零零零零億萬元億零整整"
BigNum = ""
sNum = Trim(Str(Int(Round(xiaoxie, 2) * 100)))
For i = 1 To Len(sNum)
BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)
Next i
For i = 0 To 11
BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))
Next i
BigNum = fuhao + BigNum
End If
End Function
上面四種辦法中，方法一和方法四等價;方法二、三和方法一、四的區(qū)別只是整數(shù)部分為零時，方法一、四不顯示“零元”，而直接顯示“角分”;方法三在方法2的基礎(chǔ)上加上了數(shù)字顯示，下面是不同數(shù)據(jù)在四種方法中的顯示結(jié)果：
原始數(shù)據(jù) 方法一 方法二 方法三 方法四
0.12 壹角貳分 零元壹角貳分 零元壹角貳分(￥0.12元) 壹角貳分
1.02 壹元零貳分 壹元零角貳分 壹元貳分(￥1.02元) 壹元零貳分
1001001 壹佰萬壹仟零壹元整 壹佰萬壹仟零壹元整 壹佰萬壹仟零壹元整(￥1001001.00元) 壹佰萬壹仟零壹元整
0 零元整 零元整 零元整(￥0.00元) 零元整
-25001 負貳萬伍仟零壹元整 負貳萬伍仟零壹元整 -貳萬伍仟零壹元整(￥-25001.00元) 負貳萬伍仟零壹元整
環(huán)球網(wǎng)校友情提示：環(huán)球網(wǎng)校會計從業(yè)資格考試頻道為考生提供2016年會計從業(yè)資格考試資訊供大家參考，考生亦可登錄會計證論壇，與其他學(xué)員交流經(jīng)驗，以上是網(wǎng)校整理的”OFFICE中把金額轉(zhuǎn)換成大寫的技巧“資料供大家參考!
編輯推薦：
最新資訊
- 吉林開展政府會計制度培訓(xùn)2018-12-05
- 麗水市衛(wèi)生計生委舉辦政府會計制度專題培訓(xùn)2018-12-05
- 建筑工程稅率是多少，計算公式是什么？2016-08-14
- 人民幣整萬元大寫怎么寫2016-08-14
- 房地產(chǎn)稅改革對老百姓的影響2016-08-14
- “營改增”后創(chuàng)業(yè)就業(yè)的稅收優(yōu)惠2016-08-13
- 增值稅專用發(fā)票“驗簽失敗”什么原因，怎么處理2016-08-13
- “營改增”城建稅、教育費附加稅率是多少？2016-08-05
- 運費發(fā)票稅率什么時候按11%開具2016-08-05
- 離職補償金n+1什么意思，怎么算工資2016-08-05
打卡人數(shù)
