excel怎么把阿拉伯?dāng)?shù)字轉(zhuǎn)換成中文大寫

假設(shè)數(shù)字在百A1單元格度，目標(biāo)單元問格公式：=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分答","角整"),"-","負(fù)")格式版權(quán)柄下拉復(fù)制公式，一、自定義VBA函數(shù)：Function RMBdx(Optional Mynum As Variant)'原創(chuàng)：生哥'來源：www.vip968.com 七彩陽光'功能：根據(jù)數(shù)值返回人民幣的大寫金額。    If IsNumeric(Mynum) = False Then    'IsNumeric() 判斷是否為數(shù)字        Mynum = 0    End If    Mynum = Round(Mynum, 2)     '將數(shù)字保留2位小數(shù)    If Sgn(Mynum) = 0 Then    '判斷數(shù)字是否為負(fù)數(shù)，=1為正，=0為零，=-1為負(fù)        RMBdx = ""    '數(shù)字為0，則不顯示，如需顯示其它信息，請自行修改，如改為  RMBdx = "零圓"    Else        RMBdx = IIf(Sgn(Mynum) = -1, "負(fù)", "") & Application.Text(Int(Abs(Mynum)), "[=]g;[dbnum2]") & "圓"  '若為負(fù)數(shù)，則在前加“負(fù)”字        If Abs(Mynum) - Int(Abs(Mynum)) > 0 Then    '判斷數(shù)字是否為帶小數(shù)點            RMBdx = RMBdx & Application.Text(Right(Format(Abs(Mynum) - Int(Abs(Mynum)), "0.00"), 2), "[=]g;[dbnum2]0角0分")     '轉(zhuǎn)換小數(shù)點后數(shù)字            RMBdx = Replace(Replace(RMBdx, "零分", ""), "零角", "零")       '如出現(xiàn)“零角”則e79fa5e98193e4b893e5b19e31333337626161替換為“零”,如出現(xiàn)“零分”則清除，如需顯示“角整”則使用下邊一行。            'RMBdx = Replace(Replace(RMBdx, "零分", "整"), "零角", "零")       '如出現(xiàn)“零角”則替換為“零”,如出現(xiàn)“零分”則清除，如需顯示“角整”則使用本行。        Else            RMBdx = RMBdx & "整"        End If    End IfEnd Function二、直接使用公式的最簡單方法：1、顯示“角整”如“10.20元”顯示為“壹拾圓貳角整”=IF(ROUND(A1,2)=0,"",IF(A1<0,"負(fù)","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"圓","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整"))2、不顯示“角整”如“10.20元”顯示為“壹拾圓貳角”=IF(ROUND(A1,2)=0,"",IF(A1<0,"負(fù)","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"圓","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分",""))  三、用上述方法驗證如圖：  c2公式：=rmbdx(B2)d2公式：=IF(ROUND(B2,2)=0,"",IF(B2<0,"負(fù)","")&IF(ABS(B2)>=1,TEXT(INT(ROUND(ABS(B2),2)),"[dbnum2]")&"圓","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(B2,2),2),"[dbnum2]0角0分;;整"),"零角",IF(B2^2<1,,"零")),"零分","整"))e2公式：=IF(ROUND(B2,2)=0,"",IF(B2<0,"負(fù)","")&IF(ABS(B2)>=1,TEXT(INT(ROUND(ABS(B2),2)),"[dbnum2]")&"圓","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(B2,2),2),"[dbnum2]0角0分;;整"),"零角",IF(B2^2<1,,"零")),"零分",""))我覺得這個別人已經(jīng)寫的很好了，這是我的學(xué)習(xí)筆記?？吹竭@個問題就貼出來。第三部分確實是我剛寫的公式。不用的話就刪吧，要結(jié)果的單元抄格輸入襲公式=IF(A2<0,"負(fù)","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元知"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")，A2是數(shù)字格。道，設(shè)置單元格格式——特殊——中文數(shù)字?。ɑ蛑形臄?shù)字大寫），這樣在單元格中輸入西文數(shù)字，顯示為中文數(shù)字，且能參與計算，要結(jié)果的單元百格輸度入公式=IF(A2<0,"負(fù)","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元版"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")，A2是數(shù)權(quán)字格m.gy2thfx.cn防采集。

excel如何把阿拉伯?dāng)?shù)字轉(zhuǎn)換成中文大寫？請看下面方法。

方法

打開Excel軟件。

用內(nèi)置函數(shù)numbeistring，或者用代碼定義數(shù)字格式都可以達(dá)到把阿拉伯?dāng)?shù)字轉(zhuǎn)換成大寫數(shù)字的目的

將需要輸入中文大寫數(shù)字的單元格用鼠標(biāo)拖成藍(lán)色區(qū)域。

EXCEL表中，數(shù)字自動轉(zhuǎn)換成了中文大寫了，是因為相關(guān)單元格格式設(shè)置成了中文數(shù)字，將其改回常規(guī)格式即

按住快捷鍵Ctrl+1，彈出設(shè)置單元格格式的窗口，在分類欄下選擇特殊。

在B1中輸入或復(fù)制粘貼下列公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(

在類型欄下選擇中文大寫數(shù)字，并點擊確認(rèn)。

Sub 人民幣大寫轉(zhuǎn)數(shù)字()Dim reg As Object, arr, b$, aarr

在單元格輸入阿拉伯?dāng)?shù)字，可以看到自動轉(zhuǎn)化為了中文數(shù)字。

假設(shè)數(shù)字在A1單元格，目標(biāo)單元格公式：=SUBSTITUTE(SUBSTITUTE(IF(ISN

方法一、在A1單元格來輸入數(shù)字，B1單元格輸入“源=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分","角整"),"-","負(fù)")”，知回車即可。方法二、在A1單元格輸入數(shù)字，道B1單元格輸入“=IF(A2<0,"負(fù)","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")”，回車，如果來數(shù)字在A1，在需要轉(zhuǎn)自為大百寫金額的單元度格輸入公式知 =IF(A1="","",IF(ISERROR(FIND(".",A1)),NUMBERSTRING(INT(A1),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角道整",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角"&NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)&"分")))本回答被網(wǎng)友采納，具體操作方法如下：1、打開Excel軟件。2、將需要輸入中文大寫數(shù)字的單元格用鼠標(biāo)拖成藍(lán)抄色區(qū)域。3、按住快捷鍵Ctrl+1，彈出設(shè)置單元格格式的窗口，在分類欄下選擇特殊。4、在類型欄下選擇中文大寫數(shù)字，并點擊確認(rèn)。5、在單元格輸入阿拉伯?dāng)?shù)字，可以看到自動轉(zhuǎn)化為了中文數(shù)字。拓展資料：如何將阿拉伯?dāng)?shù)字快速批量轉(zhuǎn)換成中文小寫襲或大寫？操作步驟百如下：1、選中需要轉(zhuǎn)換的數(shù)字所在單元格，點擊菜單欄【開始】（一般為默認(rèn)）中的【格式】，選擇【設(shè)置單元格格式】。2、點擊【數(shù)字】（一般為默認(rèn)）標(biāo)簽，分類里選擇【特殊】，類型選擇【中文小寫數(shù)字】。3、點擊【確定】按鈕度后，我們的數(shù)字已經(jīng)被轉(zhuǎn)換成了中文小寫數(shù)字。4、更簡便的方法是直接選中數(shù)字，然后在選中的區(qū)域【右擊】，然后在右擊菜單中選擇【設(shè)置單元格格式】。5、設(shè)置方法與步驟2一樣，只不過我們這次選擇【中文大寫數(shù)字】。6、點擊【確定】按鈕后，阿拉伯?dāng)?shù)字已經(jīng)被轉(zhuǎn)換成了中文大寫數(shù)字。本回答被網(wǎng)友采納，=IF(ROUND(A2,2)=0,"",IF(A2<0,"負(fù)","")&IF(ABS(A2)>=1,TEXT(INT(ROUND(ABS(A2),2)),"[dbnum2]")&"元zd","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A2,2),2),"[dbnum2]0角0分;;整回"),"零答角",IF(A2^2<1,,"零")),"零分","整"))，1、打開需要zd操作的excel表格，首先在A1單元格內(nèi)輸入需要轉(zhuǎn)換成大寫金額的數(shù)字，例如數(shù)字“879”。2、然后在B1單元內(nèi)格內(nèi)輸入“=”符號，用來引用計算數(shù)值的單元格。3、繼續(xù)輸入完整的轉(zhuǎn)換公式：=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^2<1,,"零")),"零分","整")。4、最后點擊回車按鍵，即可生成公式的計算結(jié)果：數(shù)字“879”被轉(zhuǎn)換成為“捌佰柒拾玖元整容”，選中所有需要使用大寫數(shù)字的單元格，單百擊鼠標(biāo)右鍵，在彈出的快捷菜單中執(zhí)行“設(shè)置單元格格式”命令度，在彈出的“單元格格式”對話框中選擇“數(shù)字”選項卡，在“分類”回列表框中選擇“特殊”選項，然后在右側(cè)的“類答別”列表框中選中“人民幣大寫”，單擊“確定”按鈕，方法一：右鍵百單元格，設(shè)置單元格格式－數(shù)字－特度殊－中文大寫數(shù)字方法二：左鍵單元格，在上版方輸入欄輸入以下文本=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"負(fù)","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分權(quán)",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")，別人的來，你試試自...=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"負(fù)","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元百"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零度",""),"零元","")本回答被提問者采納，右鍵單元格，設(shè)置單元格格式，數(shù)字，特殊，中文大寫數(shù)字，解決內(nèi)容來自m.gy2thfx.cn請勿采集。

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com