操作步骤：单元格格式--数字--特殊--中文大写数字，如1234.56它显示出的是壹仟贰佰叁拾肆.伍陆，而我要显示货币：壹仟贰佰叁拾肆圆伍角陆分？请问怎么办啊？
如果你的数字在单元格A1中，那么你可以在随便一个单元格中输入公式
=IF((A1-INT(A1))=0,TEXT(A1,"[DBNUM2]")&"元整",IF(INT(A1*10)-A1*10=0,TEXT(INT(A1),"[DBNUM2]")&"元"&TEXT((INT(A1*10)-INT(A1)*10),"[DBNUM2]")&"角整",TEXT(INT(A1),"[DBNUM2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"零",TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A1,1),"[DBNUM2]")&"分"))
按回车就好了
=IF((A1-INT(A1))=0,TEXT(A1,"[DBNUM2]")&"元整",IF(INT(A1*10)-A1*10=0,TEXT(INT(A1),"[DBNUM2]")&"元"&TEXT((INT(A1*10)-INT(A1)*10),"[DBNUM2]")&"角整",TEXT(INT(A1),"[DBNUM2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"零",TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A1,1),"[DBNUM2]")&"分"))
按回车就好了
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-07-15
Alt+F11，插入-模块，粘贴下面程序到模块中
Function Daxie(M)
Y=Int(Round(100*Abs(M))/100)
J=Round(100*Abs(M)+0.00001)-Y*100
F=(J/10-Int(J/10))*10
A=IIf(Y<1,"",Application.Text(Y,"[DBNum2]") & "元")
B=IIf(J>9.5,Application.Text(Int(J/10),"[DBNum2]") & "角",IIf(Y<1,"",IIf(F>1,"零","")))
C = IIf(F<1,"整",Application.Text(Round(F,0),"[DBNum2]") &"分")
Daxie=IIf(Abs(M)<0.005,"",IIf(M<0,"负" &A &B &C, A & B & C))
End Function
假设数字在A1，则在B1输入公式=Daxie(A1)本回答被提问者采纳
Function Daxie(M)
Y=Int(Round(100*Abs(M))/100)
J=Round(100*Abs(M)+0.00001)-Y*100
F=(J/10-Int(J/10))*10
A=IIf(Y<1,"",Application.Text(Y,"[DBNum2]") & "元")
B=IIf(J>9.5,Application.Text(Int(J/10),"[DBNum2]") & "角",IIf(Y<1,"",IIf(F>1,"零","")))
C = IIf(F<1,"整",Application.Text(Round(F,0),"[DBNum2]") &"分")
Daxie=IIf(Abs(M)<0.005,"",IIf(M<0,"负" &A &B &C, A & B & C))
End Function
假设数字在A1，则在B1输入公式=Daxie(A1)本回答被提问者采纳
第2个回答 2011-07-15
假设数据在A1,在B1输入:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")
第3个回答 2011-07-15
直接输入
