Office中国论坛/Access中国论坛

标题: 请教！如何将单元格的格式设置成为大写货币的格式啊？ [打印本页]

作者: sxgaobo 时间: 2004-10-13 16:57
标题: 请教！如何将单元格的格式设置成为大写货币的格式啊？
请教！如何将单元格的格式设置成为大写货币的格式啊？

即：叁佰陆拾柒元叁角柒分整

作者: 情比金坚 时间: 2004-10-13 19:50
=text(a1,"[dbnum2]")

作者: bluewater 时间: 2004-10-13 21:45
ok,THK

作者: sxgaobo 时间: 2004-10-13 23:28
谢谢情比金坚 ！我很菜，能详细说说你的方法，在什么地方，怎么用吗？

作者: xulanghui 时间: 2004-10-14 01:53
请看此贴：http://www.office-cn.net/forum.php?mod=viewthread&tid=19689情比金坚的方法只适用整数，小数会变成<COLGROUP><COL style="WIDTH: 78pt; mso-width-source: userset; mso-width-alt: 3328" width=104>叁佰陆拾柒.叁柒

作者: 昴日星君 时间: 2004-10-14 02:59
假设阿拉伯数字金额在A9, 公式:=IF(A9<0,"负","")&IF(TRUNC(ROUND(A9,2))=0,"",TEXT(TRUNC(ABS(ROUND(A9,2))),"[DBNum2]")&"元")&IF(ISERR(FIND(".",ROUND(A9,2))),"",IF(AND(LEFT(TRUNC(ROUND(A9,2)))="0",RIGHT(TRUNC(ROUND(A9,2)*10))="0"),,TEXT(RIGHT(TRUNC(ROUND(A9,2)*10)),"[DBNum2]")))&IF(ISERR(FIND(".0",TEXT(A9,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A9,2),3))=".",TEXT(RIGHT(ROUND(A9,2)),"[DBNum2]")&"分","整")

作者: jw0025 时间: 2004-12-21 07:01
打开工具-宏-VB编辑器，然后选插入-模块，输入以下内容，退出Public Function rmbdx(xx As Currency) As String

xx = Application.WorksheetFunction.Round(xx, 2)

rmbdx = Application.WorksheetFunction.Text(xx, "[DBNum2]")

If xx - Int(xx) = 0 Then

rmbdx = rmbdx & "元整"

Else If Abs(xx) - Int(Abs(xx)) <= 0.09 Then

rmbdx = Replace(rmbdx, ".", "元") & "分"

Else

      If xx * 10 - Int(xx * 10) = 0 Then

      rmbdx = Replace(rmbdx, ".", "元") & "角整"

      Else

      rmbdx = Replace(rmbdx, ".", "元")

      rmbdx = Left(rmbdx, Len(rmbdx) - 1) & "角" & Right(rmbdx, 1) & "分"

      End If

End If

End If

If Abs(xx) < 1 Then rmbdx = Replace(rmbdx, "零元", "")

If Abs(xx) < 0.1 Then rmbdx = Replace(rmbdx, "零", "")

If Left(rmbdx, 1) = "-" Then rmbdx = Replace(rmbdx, "-", "负")

If xx = 0 Then rmbdx = "零元整"

End Function然后就在函数里选rmbdx就行了。=rmbdx(F21)也行，简单吧。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)