【實用】支票銀碼寫法 | excel數字轉英文only
【實用】支票銀碼寫法:在Excel將數字轉換英文http://www.borion.net/excel.htm先執行Excel,之後選「工具」「巨集」→「VisualBasic編輯器」,這時會進入VisualBasic的編輯環境,選功能表的「插入」→「模組」,把「自動轉換英文小寫VBA程式碼」的內容一一輸入到右方視窗的空白處,完成後再儲存。然後,關了VisualBasic的編輯視窗,就會回到Excel畫面,在A1格輸入==>12356.5在A2格輸入公式==>=SpeNum(A1)這樣A2格就會自動轉換出「TwelveThousandThreeHundredFiftySixDollarsandFiftyCentsOnly」************************************...
【實用】支票銀碼寫法 : 在 Excel 將數字轉換英文http://www.borion.net/excel.htm
先執行Excel,之後選「工具」「巨集」→「Visual Basic編輯器」,
這時會進入Visual Basic的編輯環境,選功能表的「插入」→「模組」,
把「自動轉換英文小寫VBA程式碼」的內容一一輸入到右方視窗的空白處,完成後再儲存。
然後, 關了 Visual Basic的編輯視窗, 就會回到Excel畫面,
在 A1 格輸入 ==> 12356.5
在 A2 格輸入公式 ==> =SpeNum(A1)
這樣 A2 格就會自動轉換出「Twelve Thousand Three Hundred Fifty Six Dollars and Fifty Cents Only 」
*********************************************************************
「自動轉換英文小寫VBA程式碼」
*********************************************************************
Main Function Function SpeNum(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " String representation of amount. MyNumber = Trim(Str(MyNumber)) Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".")...