请教！如何将单元格的格式设置成为大写货币的格式啊？

sxgaobo

请教！如何将单元格的格式设置成为大写货币的格式啊？

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

jw0025

打开工具-宏-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)也行，简单吧。

昴日星君

假设阿拉伯数字金额在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]")&"分","整")

xulanghui

请看此贴：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>叁佰陆拾柒.叁柒

sxgaobo

谢谢情比金坚 ！我很菜，能详细说说你的方法，在什么地方，怎么用吗？

bluewater

ok,THK

情比金坚

=text(a1,"[dbnum2]")