大家好，相信到目前為止很多朋友對(duì)于人民幣小寫(xiě)轉(zhuǎn)大寫(xiě)公式和表格人民幣小寫(xiě)轉(zhuǎn)大寫(xiě)公式不太懂，不知道是什么意思？那么今天就由我來(lái)為大家分享人民幣小寫(xiě)轉(zhuǎn)大寫(xiě)公式相關(guān)的知識(shí)點(diǎn)，文章篇幅可能較長(zhǎng)，大家耐心閱讀，希望可以幫助到大家，下面一起來(lái)看看吧！
我給你一個(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將小寫(xiě)金額轉(zhuǎn)換成人民幣的大寫(xiě)金額
1、如何自定義：
打開(kāi)EXCEL,新建一個(gè)文件Book1,按ALT+F11進(jìn)入VBA編程環(huán)境,選中這個(gè)BOOK1文件,插入模塊,將下面的源代碼復(fù)制到右邊的模塊代碼區(qū)內(nèi),然后將此BOOK1保存,保存類(lèi)型一定選加載宏,文件名嘛可自由發(fā)揮,我就填"中文大寫(xiě)",確定OK!然后回到EXCEL,工具--加載宏-找到"中文大寫(xiě)",打勾確定,我們這個(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)換，大寫(xiě)格式放在D4單元格，則D4輸入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象內(nèi)置函數(shù)，請(qǐng)靈活使用
3、源代碼：
Functionrmbdx(value,Optionalm=0)
’中文大寫(xiě)源代碼,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滿(mǎn)意了吧
EndIf
EndIf
EndFunction
工具/原材料
excel2018版、電腦。
1、打開(kāi)電腦找到并雙擊打開(kāi)excel2018新建工作表格；
2、雙擊打開(kāi)excel新建工作表格以后，為了示范在A1輸入好數(shù)字，在復(fù)制粘貼到B1中；
3、編輯數(shù)字并選中B1后，點(diǎn)擊鼠標(biāo)右鍵選擇”設(shè)置單元格格式“的命令；
4、在彈出的對(duì)話(huà)框中點(diǎn)擊特殊，并在右邊的界面選擇人民幣大寫(xiě)點(diǎn)擊確定；
5、設(shè)置并確定好以后，此時(shí)B1的單元格就自動(dòng)的轉(zhuǎn)換為大寫(xiě)；
6、也可以在單元格內(nèi)直接輸入v+數(shù)字，如：”v365874.51“選擇大寫(xiě)的金額即可完成。
向你推薦兩個(gè)公式，這兩個(gè)公式很完整也很簡(jiǎn)潔(并且使用了TEXT(A1,";負(fù)")函數(shù)，可以處理文本型數(shù)字)的人民幣金額大寫(xiě):
公式一（172個(gè)字符）
=SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";負(fù)")TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")TEXT(RIGHT(RMB(A1,2),2),"[9][dbnum2]0角0分;"IF(A1^21,,0)"[][dbnum2]0分;整"),),"零分","整")
公式二（171個(gè)字符）
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";負(fù)")TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^21,,"零")),"零分","整")
我一直都在使用，這兩個(gè)公式很好用。
1565.36套用公式的結(jié)果就是“壹仟伍佰陸拾伍元叁角陸分”；
如果數(shù)字是整數(shù)如1565.00，則大寫(xiě)金額為“壹仟伍佰陸拾伍元整”。
這是最符合財(cái)務(wù)規(guī)范的大寫(xiě)金額的寫(xiě)法。
利用相對(duì)應(yīng)的函數(shù)即可在excel中將數(shù)字人民幣轉(zhuǎn)換成大寫(xiě)，具體操作請(qǐng)參照以下步驟，演示軟件版本為Excel2007。
1、首先在電腦上打開(kāi)一個(gè)Excel文件，進(jìn)入編輯區(qū)，如圖所示。
2、然后在B1單元格中輸入目標(biāo)數(shù)字123.56，如圖所示。
3、然后選中B2單元格作為結(jié)果輸出單元格，如圖所示。
4、然后輸入下圖中的函數(shù)命令，公式中的B1是之前輸入***數(shù)字的單元格。
5、按下回車(chē)鍵，即可得到結(jié)果。完成以上設(shè)置后，即可在excel中，使用函數(shù)將數(shù)字人民幣轉(zhuǎn)換成大寫(xiě)。
文章到此結(jié)束，希望可以幫助到大家。
