大家好，相信到目前為止很多朋友對(duì)于人民幣小寫轉(zhuǎn)大寫公式和表格人民幣小寫轉(zhuǎn)大寫公式不太懂，不知道是什么意思？那么今天就由我來(lái)為大家分享人民幣小寫轉(zhuǎn)大寫公式相關(guān)的知識(shí)點(diǎn)，文章篇幅可能較長(zhǎng)，大家耐心閱讀，希望可以幫助到大家，下面一起來(lái)看看吧！

excel中人民幣小寫轉(zhuǎn)大寫的函數(shù)怎么寫？

我給你一個(gè)***將此復(fù)制下來(lái)粘貼到Excel單元格內(nèi)就可以了。

=IF(ROUND(A5,2)0,"無(wú)效數(shù)值","人民幣"IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")"元")IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")"角")IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")"分")))

還有以下***：Excel將小寫金額轉(zhuǎn)換成人民幣的大寫金額

1、如何自定義：

打開(kāi)EXCEL,新建一個(gè)文件Book1,按ALT+F11進(jìn)入VBA編程環(huán)境,選中這個(gè)BOOK1文件,插入模塊,將下面的源代碼復(fù)制到右邊的模塊代碼區(qū)內(nèi),然后將此BOOK1保存,保存類型一定選加載宏,文件名嘛可自由發(fā)揮,我就填"中文大寫",確定OK!然后回到EXCEL,工具--加載宏-找到"中文大寫",打勾確定,我們這個(gè)自定義函數(shù)就可以象內(nèi)置函數(shù)樣使用了!---=rmbdx(123456.78),爽吧!

2、例子:

A、直接在函數(shù)內(nèi)輸入數(shù)值的（請(qǐng)注意參數(shù)的用法，默認(rèn)用法是不用輸入）

=rmbdx(123456.78)---壹拾貳萬(wàn)叁仟肆佰伍拾陸元柒角捌分

=rmbdx(123456.78,0)---壹拾貳萬(wàn)叁仟肆佰伍拾陸元柒角捌分

=rmbdx(123456.78,1)---壹拾貳萬(wàn)叁仟肆佰伍拾陸元柒角捌分

=rmbdx(56.78)---伍拾陸元柒角捌分

=rmbdx(0.78)---柒角捌分

=rmbdx(0.784)---柒角捌分

=rmbdx(0.785,1)---柒角玖分

=rmbdx(0.02,1)---貳分

B、引用某單元格數(shù)值進(jìn)行轉(zhuǎn)換的

假設(shè)你的D3單元格的數(shù)據(jù)（也可以是求和或其它公式得出的結(jié)果）需要轉(zhuǎn)換，大寫格式放在D4單元格，則D4輸入公式：=rmbdx(d3)即可

C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象內(nèi)置函數(shù)，請(qǐng)靈活使用

3、源代碼：

Functionrmbdx(value,Optionalm=0)

’中文大寫源代碼,By對(duì)面男孩、redwin

’支持負(fù)數(shù),支持小數(shù)點(diǎn)后的第三位數(shù)是否進(jìn)行四舍五入處理

’默認(rèn)參數(shù)為0,即不將小數(shù)點(diǎn)后的第三位數(shù)進(jìn)行四舍五入處理

’2002-10-11--2002-10-13

OnErrorResumeNext

Dima

DimjfAsString’定義角分位

Dimj’定義角位

Dimf’定義分位

Ifvalue0Then’處理正負(fù)數(shù)的情況

a="負(fù)"

Else

a=""

EndIf

IfIsNumeric(value)=FalseThen’判斷待轉(zhuǎn)換的value是否為數(shù)值

rmbdx="需轉(zhuǎn)換的內(nèi)容非數(shù)值"

Else

value=Abs(CCur(value))

’當(dāng)參數(shù)m不輸入(默認(rèn)為0)或?yàn)?時(shí),小數(shù)點(diǎn)后的第三數(shù)不進(jìn)行四舍五入處理

’當(dāng)參數(shù)m為1或其它數(shù)值時(shí),小數(shù)點(diǎn)后的第三數(shù)進(jìn)行四舍五入處理

Ifm=0Then

jf=Fix((value-Fix(value))*100)

value=Fix(value)+jf/100

Else’厘位進(jìn)行四舍五入實(shí)踐很少用到,但還是要照顧到

value=Application.WorksheetFunction.Round(value,2)’--這句是關(guān)鍵!只用round有bug

jf=Round((value-Fix(value))*100,0)

EndIf

Ifvalue=0Orvalue=""Then’當(dāng)待轉(zhuǎn)換數(shù)值為0或空時(shí),不進(jìn)行轉(zhuǎn)換

rmbdx=""

Else

strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")"元"’轉(zhuǎn)換整數(shù)位

IfInt(value)=0Then

strrmbdx=""

EndIf

IfInt(value)valueThen

Ifjf9Then’判斷小數(shù)位

j=Left(jf,1)

f=Right(jf,1)

Else

j=0

f=jf

EndIf

Ifj0Andf0Then’角分位都有時(shí)

jf=Application.WorksheetFunction.Text(j,"[DBNum2]")"角"_

Application.WorksheetFunction.Text(f,"[DBNum2]")"分"

Else

’處理出現(xiàn)零幾分的情況

IfInt(value)=0Andj=0Andf0Then

jf=Application.WorksheetFunction.Text(f,"[DBNum2]")"分"

Else

Ifj=0Then’有分無(wú)角時(shí)

jf="零"Application.WorksheetFunction.Text(f,"[DBNum2]")"分"

Else

Iff=0Then’有角無(wú)分時(shí)

jf=Application.WorksheetFunction.Text(j,"[DBNum2]")"角整"

EndIf

EndIf

EndIf

EndIf

strrmbdx=strrmbdxjf’組裝

Else

strrmbdx=strrmbdx"整"

EndIf

rmbdx=astrrmbdx’最后成型了,各位MM滿意了吧

EndIf

EndIf

EndFunction