把数字转换成中文货币表示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”转换成"壹仟贰佰肆拾伍元陆角"