人民幣小寫轉(zhuǎn)大寫公式，表格人民幣小寫轉(zhuǎn)大寫公式

小七
生活
2023-05-18 16:13

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

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

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

=IF(ROUND(A5,2)0,"無效數(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、如何自定義：

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

2、例子:

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

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

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

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

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

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

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

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

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

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

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

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

3、源代碼：

Functionrmbdx(value,Optionalm=0)

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

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

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

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

OnErrorResumeNext

Dima

DimjfAsString’定義角分位

Dimj’定義角位

Dimf’定義分位

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

a="負"

Else

a=""

EndIf

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

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

Else

value=Abs(CCur(value))

’當參數(shù)m不輸入(默認為0)或為0時,小數(shù)點后的第三數(shù)不進行四舍五入處理

’當參數(shù)m為1或其它數(shù)值時,小數(shù)點后的第三數(shù)進行四舍五入處理

Ifm=0Then

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

value=Fix(value)+jf/100

Else’厘位進行四舍五入實踐很少用到,但還是要照顧到

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

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

EndIf

Ifvalue=0Orvalue=""Then’當待轉(zhuǎn)換數(shù)值為0或空時,不進行轉(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’角分位都有時

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’有分無角時

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

Else

Iff=0Then’有角無分時

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

EndIf

strrmbdx=strrmbdxjf’組裝

Else

strrmbdx=strrmbdx"整"

EndIf

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

EndIf

EndFunction

Excel中將人民幣小寫轉(zhuǎn)大寫的公式？

工具/原材料

excel2018版、電腦。

1、打開電腦找到并雙擊打開excel2018新建工作表格；

2、雙擊打開excel新建工作表格以后，為了示范在A1輸入好數(shù)字，在復(fù)制粘貼到B1中；

3、編輯數(shù)字并選中B1后，點擊鼠標右鍵選擇”設(shè)置單元格格式“的命令；

4、在彈出的對話框中點擊特殊，并在右邊的界面選擇人民幣大寫點擊確定；

5、設(shè)置并確定好以后，此時B1的單元格就自動的轉(zhuǎn)換為大寫；

6、也可以在單元格內(nèi)直接輸入v+數(shù)字，如：”v365874.51“選擇大寫的金額即可完成。

EXCEL小寫轉(zhuǎn)換成大寫金額

向你推薦兩個公式，這兩個公式很完整也很簡潔(并且使用了TEXT(A1,";負")函數(shù)，可以處理文本型數(shù)字)的人民幣金額大寫:

公式一（172個字符）

=SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";負")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個字符）

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";負")TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^21,,"零")),"零分","整")

我一直都在使用，這兩個公式很好用。

1565.36套用公式的結(jié)果就是“壹仟伍佰陸拾伍元叁角陸分”；

如果數(shù)字是整數(shù)如1565.00，則大寫金額為“壹仟伍佰陸拾伍元整”。

這是最符合財務(wù)規(guī)范的大寫金額的寫法。