如何數字轉換為大寫的中文貨幣

Ⅰ Excel 怎麼將數字自轉換成中文大寫貨幣

假如數據在A1欄，在你需要的單元格輸入：=IF(A1=INT(A1),NUMBERSTRING(INT(A1),2)&"元整",IF(A1*10=INT(A1*10),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(INT(A1*10)-INT(A1)*10,2)&"角整",IF(ROUNDDOWN(A1*10-INT(A1)*10,0)=0,NUMBERSTRING(INT(A1),2)&"元零"&NUMBERSTRING(ROUND(A1*100-INT(A1*10)*10,0),2)&"分",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(INT(A1*10)-INT(A1)*10,2)&"角"&NUMBERSTRING(ROUND(A1*100-INT(A1*10)*10,0),2)&"分")))
或輸入：=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[dbnum2];; ")&TEXT(MOD(A1*100,100),"[>9][dbnum2]元0角0分;[=0]元整;[dbnum2]元零0分"),"零分","整")," 元零",)," 元",)希望對你有幫助

Ⅱ 阿拉伯數字轉換成大寫中文的貨幣

=TEXT(C1*100,"[DBNUM2]人民幣：0仟0佰0拾0萬0仟0佰0拾0元0角0分整")

Ⅲ 英文版Excel中如何把數字轉換成中文大寫金額

用VBA自定義一個大寫金額轉換的函數，在公式中輸入此函數名就可以了。
具體方法：按 Alt+F11 ，在VBA編輯器菜單中點 插入→模塊，將下面的函數復制到插入的模塊當中，

'===================================================================

Function CChinese(StrEng As String) As String
'將阿拉伯數字轉成中文字的程式例如：1560890 轉成 "壹佰伍拾陸萬零捌佰玖拾"。
'程式限制為不可輸入超過16個數字
If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "無效的數字"
CChinese = "": Exit Function
End If
Dim intLen As Integer, intCounter As Integer
Dim strCh As String, strTempCh As String
Dim strSeqCh1 As String, strSeqCh2 As String
Dim strEng2Ch As String
strEng2Ch = "零壹貳叄肆伍陸柒捌玖"
strSeqCh1 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"
strSeqCh2 = " 萬億兆"
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
If strTempCh = "零" And intLen <> 1 Then
If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = ""
End If
Else
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
End If
If (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)
If intCounter > 3 Then
If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function

'===================================================================

'===================================================================
Function daxie(money As String) As String
'實現貨幣金額中文大寫轉換的程序
'程式限制為不可輸入超過16個數字
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定義位置代碼
Const letter = "0123456789sbqwy.zjf" '定義漢字縮寫
Const upcase = "零壹貳叄肆伍陸柒捌玖拾佰仟萬億圓整角分" '定義大寫漢字

If CDbl(money) >= 1E+16 Then daxie = "#VALUE!": Exit Function '只能轉換一億億元以下數目的貨幣！

x = Format(money, "0.00") '格式化貨幣
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z" '***元整
Else
y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分
End If
y = Replace(y, "0q", "0") '避免零千(如：40200肆萬零千零貳佰)
y = Replace(y, "0b", "0") '避免零百(如：41000肆萬壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如：204貳佰零拾零肆)

y = Replace(y, "0j", "0") '避免零角
y = Replace(y, "0f", "") '避免零分

Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免雙零(如：1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零億(如：210億 貳佰壹十零億)
y = Replace(y, "0w", "w") '避免零萬(如：210萬 貳佰壹十零萬)
y = IIf(x < 0.1, Right(y, Len(y) - 3), y) '避免零幾分(如：0.01零壹分；0.04零肆分)
y = IIf(Len(x) = 5 And Left(y, 1) = "1", Right(y, Len(y) - 1), y) '避免壹十(如：14壹拾肆；10壹拾)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如：20.00貳拾零圓；0.12零圓壹角貳分)

For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大寫漢字
Next
daxie = y
End Function
'===================================================================

回到Excel工作表中，若要轉化A1單元格的數字，則可在其他任意單元格中輸入公式 =CChinese(A1)。要轉換成大寫金額，則可在其他任意單元格中輸入公式 =daxie(A1)。

Ⅳ 在Excel使用中，如何將貨幣的數字變成中文的大寫啊

在需要輸出格式中輸入公式=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為貨幣數字格

Ⅳ EXCEL如何將數字金額轉換為中文大寫美元

用numberstring函數。
如：將a2單元格的531轉換成大寫，則公式
=numberstring(a2,2)：此時得出：伍佰叄拾壹
=numberstring(a2,1)：此時得出：五百三十一
=numberstring(a2,3)：此時得出：五三一
如要將數字讀出：則用此公式
=if(iserror(find(".",a2)),numberstring(int(a2),2)&"元整",if(iserror(numberstring(mid(a2,find(".",a2)+2,1),2)),numberstring(int(a2),2)&"元"&numberstring(mid(a2,find(".",a2)+1,1),2)&"角整",numberstring(int(a2),2)&"元"&numberstring(mid(a2,find(".",a2)+1,1),2)&"角"&numberstring(mid(a2,find(".",a2)+2,1),2)&"分"))

Ⅵ 如何在excel中將數字貨幣變成中文大寫貨幣

這個比較容易啊！假設是 23.68元 ，選中這個單元格-右鍵-設置單元格格式—特殊—（右邊的）中文大寫數字

Ⅶ Excel 怎樣將數字貨幣轉化為大寫貨幣

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

Ⅷ 電子表格里的數字貨幣金額怎樣轉換成中文大寫 愛說篇

直接使用 滑鼠右鍵 「自定義單元格格式」==》特殊==》中文大寫即可。
如果不滿意，試試這：
=NUMBERSTRING(1234567890,1)
參數1可以修改 ，123456..是假設數字，可以改為單元格名稱
還不行就試試：
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0]負[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
其中A1是假設數據的單元格。

Ⅸ 請問如何將excel的貨幣轉換成中文大寫

=TEXT(A1*100,"人民幣0拾0萬0仟0佰0拾0元0角0分[dbnum2]")

Ⅹ Excel中如何把數字轉換成中文大寫金額

可以通過自定義數據格式將中文轉換成 大寫。如果需要完整金額，可以參考以下：
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0]負[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")