excel怎麼把阿拉伯數字轉換成中文大寫

假設數字在百A1單元格度，目標單元問格公式：=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]")&"元整"),"角分答","角整"),"-","負")格式版權柄下拉複製公式，一、自定義VBA函式：Function RMBdx(Optional Mynum As Variant)'原創：生哥'來源：www.vip968.com 七彩陽光'功能：根據數值返回人民幣的大寫金額。    If IsNumeric(Mynum) = False Then    'IsNumeric() 判斷是否為數字        Mynum = 0    End If    Mynum = Round(Mynum, 2)     '將數字保留2位小數    If Sgn(Mynum) = 0 Then    '判斷數字是否為負數，=1為正，=0為零，=-1為負        RMBdx = ""    '數字為0，則不顯示，如需顯示其它資訊，請自行修改，如改為  RMBdx = "零圓"    Else        RMBdx = IIf(Sgn(Mynum) = -1, "負", "") & Application.Text(Int(Abs(Mynum)), "[=]g;[dbnum2]") & "圓"  '若為負數，則在前加“負”字        If Abs(Mynum) - Int(Abs(Mynum)) > 0 Then    '判斷數字是否為帶小數點            RMBdx = RMBdx & Application.Text(Right(Format(Abs(Mynum) - Int(Abs(Mynum)), "0.00"), 2), "[=]g;[dbnum2]0角0分")     '轉換小數點後數字            RMBdx = Replace(Replace(RMBdx, "零分", ""), "零角", "零")       '如出現“零角”則e79fa5e98193e4b893e5b19e31333337626161替換為“零”,如出現“零分”則清除，如需顯示“角整”則使用下邊一行。            'RMBdx = Replace(Replace(RMBdx, "零分", "整"), "零角", "零")       '如出現“零角”則替換為“零”,如出現“零分”則清除，如需顯示“角整”則使用本行。        Else            RMBdx = RMBdx & "整"        End If    End IfEnd Function二、直接使用公式的最簡單方法：1、顯示“角整”如“10.20元”顯示為“壹拾圓貳角整”=IF(ROUND(A1,2)=0,"",IF(A1<0,"負","")&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,"負","")&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,"負","")&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,"負","")&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,,"零")),"零分",""))我覺得這個別人已經寫的很好了，這是我的學習筆記。看到這個問題就貼出來。第三部分確實是我剛寫的公式。不用的話就刪吧，要結果的單元抄格輸入襲公式=IF(A2<0,"負","")&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是數字格。道，設定單元格格式——特殊——中文數字小（或中文數字大寫），這樣在單元格中輸入西文數字，顯示為中文數字，且能參與計算，要結果的單元百格輸度入公式=IF(A2<0,"負","")&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是數權字格www.51dongshi.com防採集。

excel如何把阿拉伯數字轉換成中文大寫？請看下面方法。

方法

開啟Excel軟體。

用內建函式numbeistring，或者用程式碼定義數字格式都可以達到把阿拉伯數字轉換成大寫數字的目的

將需要輸入中文大寫數字的單元格用滑鼠拖成藍色區域。

EXCEL表中，數字自動轉換成了中文大寫了，是因為相關單元格格式設定成了中文數字，將其改回常規格式即

按住快捷鍵Ctrl+1，彈出設定單元格格式的視窗，在分類欄下選擇特殊。

在B1中輸入或複製貼上下列公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(

在型別欄下選擇中文大寫數字，並點選確認。

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

在單元格輸入阿拉伯數字，可以看到自動轉化為了中文數字。

假設數字在A1單元格，目標單元格公式：=SUBSTITUTE(SUBSTITUTE(IF(ISN

方法一、在A1單元格來輸入數字，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]")&"元整"),"角分","角整"),"-","負")”，知回車即可。方法二、在A1單元格輸入數字，道B1單元格輸入“=IF(A2<0,"負","")&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]")&"分","整")”，回車，如果來數字在A1，在需要轉自為大百寫金額的單元度格輸入公式知 =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)&"分")))本回答被網友採納，具體操作方法如下：1、開啟Excel軟體。2、將需要輸入中文大寫數字的單元格用滑鼠拖成藍抄色區域。3、按住快捷鍵Ctrl+1，彈出設定單元格格式的視窗，在分類欄下選擇特殊。4、在型別欄下選擇中文大寫數字，並點選確認。5、在單元格輸入阿拉伯數字，可以看到自動轉化為了中文數字。拓展資料：如何將阿拉伯數字快速批量轉換成中文小寫襲或大寫？操作步驟百如下：1、選中需要轉換的數字所在單元格，點選選單欄【開始】（一般為預設）中的【格式】，選擇【設定單元格格式】。2、點選【數字】（一般為預設）標籤，分類裡選擇【特殊】，型別選擇【中文小寫數字】。3、點選【確定】按鈕度後，我們的數字已經被轉換成了中文小寫數字。4、更簡便的方法是直接選中數字，然後在選中的區域【右擊】，然後在右擊選單中選擇【設定單元格格式】。5、設定方法與步驟2一樣，只不過我們這次選擇【中文大寫數字】。6、點選【確定】按鈕後，阿拉伯數字已經被轉換成了中文大寫數字。本回答被網友採納，=IF(ROUND(A2,2)=0,"",IF(A2<0,"負","")&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單元格內輸入需要轉換成大寫金額的數字，例如數字“879”。2、然後在B1單元內格內輸入“=”符號，用來引用計算數值的單元格。3、繼續輸入完整的轉換公式：=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^2<1,,"零")),"零分","整")。4、最後點選回車按鍵，即可生成公式的計算結果：數字“879”被轉換成為“捌佰柒拾玖元整容”，選中所有需要使用大寫數字的單元格，單百擊滑鼠右鍵，在彈出的快捷選單中執行“設定單元格格式”命令度，在彈出的“單元格格式”對話方塊中選擇“數字”選項卡，在“分類”回列表框中選擇“特殊”選項，然後在右側的“類答別”列表框中選中“人民幣大寫”，單擊“確定”按鈕，方法一：右鍵百單元格，設定單元格格式－數字－特度殊－中文大寫數字方法二：左鍵單元格，在上版方輸入欄輸入以下文字=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"負","")&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,"","整")),"零元零",""),"零元","")，別人的來，你試試自...=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"負","")&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,"","整")),"零元零度",""),"零元","")本回答被提問者採納，右鍵單元格，設定單元格格式，數字，特殊，中文大寫數字，解決內容來自www.51dongshi.com請勿採集。