[原创]与[推荐]数字金额转换中文大写与英文字母

Samsea

QUOTE:

以下是引用jiyang08在2007-12-3 15:16:00的发言：
能说下具体怎么应用吗？我刚下了，不知道怎么用，谢谢

在单元格写上如： =SpellNumber(12054.25) 即可。可从一楼下载文件，就更清楚了。

laopp

HOHO~~~ 谢谢LZ~~~~~~

secowu

230.00 －》Two Hundred and Thirty Dollars and No Cents 不对吧，没有这样说法的

xshy

了不得，正好公司有人要用，谢了！

bdyzf

路过学习中

jamesww

非常实用！！！

Lixh159

路过，留下了，谢谢！

moonmybox

楼主好厉害.正为这个烦恼,你实在太好了

但是,我想问一下,小数位后没有数字,例1000，能否实现不出现no cent的字样？one thousand

同理,假如只有小数,例0.01，能否实现不出现no dollar的字样？只显示one cent

该怎么样？

Samsea

QUOTE:

以下是引用moonmybox在2008-4-30 13:30:00的发言：

楼主好厉害.正为这个烦恼,你实在太好了

但是,我想问一下,小数位后没有数字,例1000，能否实现不出现no cent的字样？one thousand

同理,假如只有小数,例0.01，能否实现不出现no dollar的字样？只显示one cent

该怎么样？

试试看：

  Select Case Dollars
        Case "":    Dollars = ""
        Case "One": Dollars = "One Dollar"
        Case Else:  Dollars = Dollars & " Dollars"
    End Select
    Select Case Cents
        Case "":    Cents = ""
        Case "One": Cents = " and One Cent"
        Case Else:  Cents = " and " & Cents & " Cents"
    End Select
    SpellNumber = Dollars & Cents
    SpellNumber = Replace(SpellNumber, "  ", " ")
    End Function

XUZHANCHENG

学习