EXCEL VBA．金額數字轉換為〔英文寫法〕 ＜金額＞36015.58 Thirty Six Thousand Fifteen Dollars And Fifty Eight Cents Say Total U.S. Dollars Thirty Six ...准提部林-金千里自言自語莫當病．瘋言瘋語別當真．今日有情言有意．他日無心語無存－．－．－．－．人行千里方得金．金行千里不失真．－．－．－．－日誌相簿影音好友名片201309221118EXCEL．金額數字轉換為〔英文寫法〕公式?EXCEL雜記EXCEL．金額數字轉換為〔英文寫法〕公式　■示例樣式：　＜金額＞　儲存格Ａ１：36015.58　　＜樣式１＞　公式：=USNumber(A1,1,"")　ThirtySixThousandFifteenDollarsAndFiftyEightCents　　＜樣式２＞　公式：=USNumber(A1,2,"U.S.")　SayTotalU.S.DollarsThirtySixThousandFifteenAnd　CentsFiftyEightOnly　　＜樣式３＞　公式：=UPPER(USNumber(A1,2,"U.S."))　　SAYTOTALU.S.DOLLARSTHIRTYSIXTHOUSANDFIFTEEN　ANDCENTSFIFTYEIGHTONLY　■自訂函數：　=USNumber(金額,樣式,幣別縮寫)　■程式碼１：主程式　FunctionUSNumber(ByValMyNumber,QType,CMT$)AsString　Dimi%,j%,TR,StrCT$,StrDR$,TT$,TU$,Num　IfVal(MyNumber)<=0ThenExitFunction　TR=Array("","Thousand","Million","Billion","Trillion")　'處理〔小數〕部份　Num=Split(Format(MyNumber,"0.00"),".")　TT=Get999(Val(Num(1)))　IfTT<>""Then　　StrCT=TT&"Cents"　　IfQType=2ThenStrCT="Cents"&TT　EndIf　'處理〔整數〕部份　Num=Split(Format(Num(0),"#,##0"),",")　Fori=UBound(Num)To0Step-1　　　TT=Get999(Val(Num(i))):j=j+1　　　IfTT<>""ThenTU=TT&TR(j-1)&IIf(TU="","","")&TU　Nexti　IfTU<>""Then　　StrDR=TU&"Dollars"　　IfQType=2ThenStrDR="Dollars"&TU　EndIf　StrDR=StrDR&IIf(StrDR=""OrStrCT="","","And")&StrCT　IfCMT<>""ThenCMT=CMT&""　IfQType=2ThenStrDR="SayTotal"&CMT&StrDR&"Only"　USNumber=StrDR　EndFunction　■程式碼２：副程式　FunctionGet999(TTNum)AsString　DimTN,TY,QQ%,GStr1$,GStr2$　TN=Array("","One","Two","Three","Four","Five","Six","Seven",_　　　"Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen",_　　　"Fifteen","Sixteen","Seventeen","Eighteen","Nineteen")　TY=Array("","","Twenty","Thirty","Forty","Fifty",_　　　"Sixty","Seventy","Eighty","Ninety")　'處理〔百位數〕部份　GStr1=TN(Int(TTNum/100))&"Hundred"　IfGStr1="Hundred"ThenGStr1=""　'處理〔十及個位數〕部份　QQ=TTNumMod100　IfQQ<20Then　　GStr2=TN(QQ)　Else　　GStr2=TY(Int(Right(QQ,2)/10))　　GStr2=GStr2&IIf(QQMod10,""&TN(QQMod10),"")　EndIf　Get999=GStr1&IIf(GStr1=""OrGStr2="","","")&GStr2　EndFunction－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＜範例檔＞下載：檔案名稱：20130913a01(金