關於Excel - SpellNumber 問題﹖

我所見過的 Function SpellNumber 是 One Hundred Twenty Three Dollars and Ten Cents, 比你的題目是多了一個英文字 Dollars
希望是相同啦
先在 Visual Basic 編輯器, 找到 Funcion SpellNumber 的 code
在 code 的最後如下幾句 delete:
Select Case Cents
Case ""
Cents = " and No Cents"
Case " One "
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
改成:
if cents <> "" then cents = " and " & Cents & " Cents"

其他完全不變。

其實 Function SpellNumber 最大的問題 是 在 Dollars 內 不加 and:
如 1010, Function SpellNumber 會出現 One Thousand Ten
但如出現 One Thousand and Ten 便更佳

2007-04-15 22:59:57 補充：
攪錯咗及亂碼, 應改成:If Cents <> “” Then Cents = “ and ” & Cents & “ Cent ”

2007-04-16 17:37:50 補充：
其實根據英文的文法, 1 仙 才是用cent, two 以上, ten , twenty ....全部都是用cents當然, 你想改, 亦非常容易, 但請提供以下資料, 以便一併改No CentsOneFiveTenFifteen以上那個是用Cent, 那個是用Cents

答錯在評價處XD

雖則這個問題是幾年前, 剛考我在找在關這些資料時看到這問題 XD 其實把Visual Base內所有Cents的"s"都delete, 就可以了, 一開始Dim Dollars, Cents, Temp, 這個Cents開始delete "s"