把數字轉換成中文貨幣表示6
⑴ 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分"),"零分","整")," 元零",)," 元",)希望對你有幫助
⑵ vb 數字轉換為中文大寫錢幣轉換程序
給出一個例子，以求拋磚引玉~~~~~~
建兩個Text控制項：text1，text2
建三個Command控制項：
Command1：轉換
Command2：退出
Command3：清除
在text1中輸入金額，點Command1進行轉換，text2顯示大寫金額結果。
'寫代碼如下：
Function daxie(money As String) As String '
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定義位置代碼
Const letter = "0123456789sbqwy.jzf" '定義數字及漢字縮寫
Const upcase = "零壹貳叄肆伍陸柒捌玖拾佰仟萬億圓角整分" '定義大寫漢字
Dim temp As String
temp = money
If InStr(temp, ".") > 0 Then temp = Left(temp, InStr(temp, ".") - 1)
If Len(temp) > 16 Then MsgBox "數目太大，無法換算！請輸入一億億以下的數字", 64, "錯誤提示": 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(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
Private Sub Command1_Click()
Text2.Text = daxie(Val(Text1.Text)) ' (如return: 貳玖仟叄佰貳拾貳圓叄角貳分
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
⑶ 阿拉伯數字轉換成大寫中文的貨幣
=TEXT(C1*100,"[DBNUM2]人民幣：0仟0佰0拾0萬0仟0佰0拾0元0角0分整")
⑷ Excel中如何把數字轉換成中文大寫金額
首先，第一步要，選擇要設置格式的數據區域，第二步，右擊在快捷菜單中選擇「設置單元格格式」，第四步，在彈出的對話框中選擇「數字」選項卡，在列表中選擇「特殊」，第五步，再在右邊的列表中選擇「中文大寫數字」，最後點擊確定。
⑸ 在EXCEL中如何講數字轉換成漢字貨幣格式dbuam急
格式--單元格式--數字--會計專用。
⑹ excel中怎麼將表示金額的阿拉伯數字轉換成中文大寫
在單元格格式里有，只是只能把整數轉換，小數部分不可以的。設置見下圖：
⑺ excel中如何把數字轉換為人民幣中文繁寫
如D為小寫則把大寫公式復制過去就行了，你可以把你的小寫替代D8=IF(ROUND($D$8,2)<0,CONCATENATE("負",IF(ROUND(ABS($D$8),2)<1,"",TEXT(INT(ROUND(ABS($D$8),2)),"[dbnum2]")&"元")&IF(INT(ROUND(ABS($D$8),2)*10)-INT(ROUND(ABS($D$8),2))*10=0,IF(INT(ROUND(ABS($D$8),2))*(INT(ROUND(ABS($D$8),2)*100)-INT(ROUND(ABS($D$8),2)*10)*10)=0,"","零"),TEXT(INT(ROUND(ABS($D$8),2)*10)-INT(ROUND(ABS($D$8),2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(ABS($D$8),2)*100)-INT(ROUND(ABS($D$8),2)*10)*10)=0,"整",TEXT((INT(ROUND(ABS($D$8),2)*100)-INT(ROUND(ABS($D$8),2)*10)*10),"[dbnum2]")&"分")),IF(ROUND($D$8,2)=0,"零",IF(ROUND($D$8,2)<1,"",TEXT(INT(ROUND($D$8,2)),"[dbnum2]")&"元")&IF(INT(ROUND($D$8,2)*10)-INT(ROUND($D$8,2))*10=0,IF(INT(ROUND($D$8,2))*(INT(ROUND($D$8,2)*100)-INT(ROUND($D$8,2)*10)*10)=0,"","零"),TEXT(INT(ROUND($D$8,2)*10)-INT(ROUND($D$8,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND($D$8,2)*100)-INT(ROUND($D$8,2)*10)*10)=0,"整",TEXT((INT(ROUND($D$8,2)*100)-INT(ROUND($D$8,2)*10)*10),"[dbnum2]")&"分")))
⑻ excel里如何把數字轉換成英文貨幣表達
看這里吧，微軟的幫助
http://support.microsoft.com/kb/213360
不過結果跟你的要求少有不同
=SpellNumber(200)
顯示
Two Hundred Dollars and No Cents
⑼ 如何在excel中將數字貨幣變成中文大寫貨幣
這個比較容易啊！假設是 23.68元 ，選中這個單元格-右鍵-設置單元格格式—特殊—（右邊的）中文大寫數字
⑽ 怎樣在excel里將數字轉換成中文貨幣形式
跟我QQ聯系吧，我送你一個頁面
我可以把如「1245.6」轉換成"壹仟貳佰肆拾伍元陸角"