如何在 Excel 中將數值轉換為英文單詞
本文包含 Microsoft Visual Basic for Applications 函式示例,您可以使用這些函式將 Microsoft Excel 工作表單元格中的數值轉換為等效的英文單詞。
建立名為 SpellNumber 的示例函式
(01)啟動 Microsoft Excel-----按 Alt+F11 啟動 Visual Basic 編輯器-----在“插入”選單上,單擊“模組”
(02)在模組表中鍵入下面的程式碼
(03)Option Explicit'Main FunctionFunction SpellNumber(ByVal MyNumber)Dim Dollars, Cents, TempDim DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' String representation of mber = Trim(Str(MyNumber))' Position of decimal place 0 if malPlace = InStr(MyNumber, ".")' Convert cents and set MyNumber to dollar DecimalPlace > 0 ThenCents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then Dollars = Temp & Place(Count) & DollarsIf Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case DollarsCase ""Dollars = "No Dollars"Case "One"Dollars = "One Dollar"Case ElseDollars = Dollars & " Dollars"End SelectSelect Case CentsCase ""Cents = " and No Cents"Case "One"Cents = " and One Cent"Case ElseCents = " and " & Cents & " Cents"End SelectSpellNumber = Dollars & CentsEnd Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)' Convert the hundreds Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "End If' Convert the tens and ones Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText)Dim Result As StringResult = "" ' Null out the temporary function Val(Left(TensText, 1)) = 1 Then ' If value between ct Case Val(TensText)Case 10:Result = "Ten"Case 11:Result = "Eleven"Case 12:Result = "Twelve"Case 13:Result = "Thirteen"Case 14:Result = "Fourteen"Case 15:Result = "Fifteen"Case 16:Result = "Sixteen"Case 17:Result = "Seventeen"Case 18:Result = "Eighteen"Case 19:Result = "Nineteen"Case ElseEnd SelectElse ' If value between ct Case Val(Left(TensText, 1))Case 2:Result = "Twenty "Case 3:Result = "Thirty "Case 4:Result = "Forty "Case 5:Result = "Fifty "Case 6:Result = "Sixty "Case 7:Result = "Seventy "Case 8:Result = "Eighty "Case 9:Result = "Ninety "Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones IfGetTens = ResultEnd Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit)Select Case Val(Digit)Case 1:GetDigit = "One"Case 2:GetDigit = "Two"Case 3:GetDigit = "Three"Case 4:GetDigit = "Four"Case 5:GetDigit = "Five"Case 6:GetDigit = "Six"Case 7:GetDigit = "Seven"Case 8:GetDigit = "Eight"Case 9:GetDigit = "Nine"Case Else:GetDigit = ""End SelectEnd Function
(04)關閉即可
使用 SpellNumber 示例函式
(01)方法 1:直接輸入通過將下面的公式輸入單元格中,可以將 32.50 更改為“Thirty Two Dollars and Fifty Cents”:=SpellNumber(32.50)
(02)方法 2:單元格引用可以引用工作簿中的其他單元格。例如,在單元格 A1 中輸入數字 32.50,然後在另一單元格中鍵入下面的公式:=SpellNumber(A1)
(03)方法 3:插入函式Excel 2003:選擇所需的單元格。單擊“常用”工具欄中的“插入函式”。在“或選擇類別”下,單擊“使用者定義”。在“選擇函式”列表中,單擊“SpellNumber”,然後單擊“確定”。輸入所需的數字或單元格引用,然後單擊“確定”。Excel 2007 和 2010:選擇所需的單元格。單擊“公式”功能區上的“插入函式”。在“或選擇類別”下,單擊“使用者定義”。在“選擇函式”列表中,單擊“SpellNumber”,然後單擊“確定”。輸入所需的數字或單元格引用,然後單擊“確定”。
(04)如圖
-
當今社會做什麼賺錢
當今社會做什麼賺錢,當下有沒有賺錢的好生意,現在的創業不是隻有個別人能做,很多的年輕人也參與了。現在可以做什麼生意,相較於死板的上班生活,創業更為靈活,那麼都有哪些呢,一起來看看我們的推薦吧!操作方法(01)電子垃圾提煉黃金近幾年來,電子工業高速發展,手機、電腦等...
-
Vlookup函式的使用技巧
Excel作為日常工作的常用工具,大家很熟悉。提到Excel都會想到函式,如果提到函式,vlookup函式是不得不提的。下面看一下用vlookup函式如何實現根據姓名匹配年齡的例子操作方法(01)題目如下:從左邊的源資料中匹配出右邊姓名的年齡(現實工作中源資料和要匹配的資料往往不...
-
如何做好淘寶店鋪?
大家現在基本上都在淘寶購物,既方便又省力,也有很多人在淘寶開店鋪,可是如何做好淘寶店鋪呢?讓小編給您介紹一下吧。操作方法(01)在賣家中心選擇“店鋪管理”,選擇店鋪裝修。(02)點選pc端進入,選擇裝修頁面,可裝修自身店鋪,吸引顧客。(03)點選營銷中心,選擇我要推廣。(04)可看...
-
域名證書下載流程詳解
域名證書在國外是沒有的,可以說是中國特有的一種域名特色服務。域名證書的產生是想用來證明域名的所有權,最常用的是用在網站備案上,備案的時候是一定要提供域名證書檔案的。操作方法(01)為確保備案順利通過,在下載域名證書前,請先將域名模版過戶到自己實名認證好的賬...