EXCEL.金額數字轉換為〔英文寫法〕公式 | excel金額轉英文大寫
EXCEL.金額數字轉換為〔英文寫法〕公式 ■示例樣式: <金額> 儲存格A1:36015.58 <樣式1> 公式:=USNumber(A1,1,"") ThirtySixThousandFifteenDollarsAndFiftyEightCents <樣式2> 公式:=USNumber(A1,2,"U.S.") SayTotalU.S.DollarsThirtySixThousandFifteenAnd CentsFiftyEightOnly <樣式3> 公式:=UPPER(USNumber(A1,2,"U.S.")) SAYTOTALU.S.DOLLARSTHIRTYSIXTHOUSANDFIFTEEN ANDCENTSFIFTYEIGHTONLY ■自訂函數: =USNumber(金額,樣式,幣別縮寫) ■程式碼1:主程式 FunctionUSNumber(ByValM...
EXCEL.金額數字轉換為〔英文寫法〕公式 ■示例樣式: <金額> 儲存格A1:36015.58 <樣式1> 公式:=USNumber(A1,1,"") Thirty Six Thousand Fifteen Dollars And Fifty Eight Cents <樣式2> 公式:=USNumber(A1,2,"U.S.") Say Total U.S. Dollars Thirty Six Thousand Fifteen And Cents Fifty Eight Only <樣式3> 公式:=UPPER(USNumber(A1,2,"U.S.")) SAY TOTAL U.S. DOLLARS THIRTY SIX THOUSAND FIFTEEN AND CENTS FIFTY EIGHT ONLY ■自訂函數: =USNumber(金額,樣式,幣別縮寫) ■程式碼1:主程式 Function USNumber(ByVal MyNumber, QType, CMT$) As String Dim i%, j%, TR, StrCT$, StrDR$, TT$, TU$, Num If Val(MyNumber) <= 0 Then Exit Function TR = Array("", " Thousand", " Million", " Billion", " Trillion") 處理〔小數〕部份 Num = Split(Format(MyNumber, "0.00"), ".") TT = Get999(Val(Num(1))) If TT <> "" Then StrCT = TT & " Cents" If QType = 2 Then StrCT = "Cents " & TT End If 處理〔整數〕部份 Num = Split(Format(Num(0), "#,##0"), ",") For i = UBound(Num) To 0 Step -1 TT = Get999(Val(Num(i))): j = j + 1 If TT <> "" Then TU ...