關於Excel - SpellNumber 問題﹖2

英文 是沒有角, 祇有元(Dollar)和仙(Cent)
以仙為例, 1仙 應寫成 1Cent
2仙應寫成 2 Cents
1角, 即 10 仙, 應寫成 10 Cents
如 1角 寫成 10 Cent 是不正確的, 請閣下不要堅持
由於你不要Dollar這個字, 及在最後加上Only.
我主張你將Spellnumber 的Code 作如下的一次性修改:
從 Select Case Dollars 這句開始
至 SpellNumber = Dollars & Cents 為止, 全部不要,
改成以下的code:
Dim x As String
Dim y As String
If Dollars = "" Or Cents = "" Then
x = ""
Else
x = " and "
End If
If Cents = "" Then
y = ""
ElseIf Cents = "One " Then ' 注意 One 之後是沒有空格的
y = " Cent"
Else
y = " Cents"
End If
SpellNumber = Dollars & x & Cents & y & " Only"

改完之後, 請測試以下數字, 試試效果
123.00、0.10、4.01 及其他數字

以下這句:
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function

改成以下的code:
Loop
Dim x As String
Dim y As String
If Dollars = "" Or Cents = "" Then
x = ""
Else
x = " and "
End If
If Cents = "" Then
y = ""
ElseIf Cents = "One " Then ' 注意 One 之後是沒有空格的
y = " Cent"
Else
y = " Cents"
End If
SpellNumber = Dollars & x & Cents & y & " Only"
End Function

彈出來 編譯錯誤 必須是:運算式, 請問應該點 更改? thx!

正確呀！.......妳可能誤會了！cent 的解釋

cent = 0.01= 1 分

妳的意思係 cent = 0.10 誤會了！cent 不是等於 10分 = 1角

所以 spell number 0.10 = ten cents is right.