Excel如何數字轉換爲英文
數字轉換爲英文對於英語比較差的同學來說是很難的一件事情,我們能不能用VBA代碼來輕鬆實現這個過程呢?現在我們就用ExcelVba代碼來實現這個操作。
編寫代碼:
(01)新建如圖所示的Excel表格,我們講吧A列中的數字用英文的形式轉換到B列中。
(02)按住“Alt+F11”開啟VBA編輯器,如圖所示。
(03)在VBA編輯器中單擊選單欄“插入”——模組,如圖所示。
(04)在開啟的模組中輸入如下代碼:Option ExplicitFunction 數字轉英文(ByVal MyNumber)Dim Dollars, Cents, TempDim DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "MyNumber = Trim(Str(MyNumber))DecimalPlace = InStr(MyNumber, ".")If 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 Select數字轉英文 = Dollars & CentsEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "End IfIf Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)Dim Result As StringResult = ""If Val(Left(TensText, 1)) = 1 ThenSelect 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 SelectElseSelect 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))End IfGetTens = ResultEnd FunctionFunction 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
調用函數:
(01)現在回到Excel表格中,單擊“B1”單元格,在選單欄選擇“插入”——函數。
(02)在開啟的“插入函數”對話框的“或選擇類別”中選擇“用戶定義”,然後選擇函數“數字轉英文”,單擊“確定”按鈕。
(03)在開啟的“函數參數”對話框中輸入“A1”,單擊“確定”按鈕。
(04)然後用填充手柄向下填充公式,現在就可以看到轉換好的英文了。
-
電腦工具欄到了電腦的右邊,怎麼恢復到底部?
一般電腦的工具欄是在電腦的底部,可是有些時候就會跑到電腦兩側,今天我要講的就是恢復方法。操作方法(01)工具欄跑到了電腦的右側(02)在工具欄處點擊鼠標右鍵,找到“屬性”點擊,出現任務欄對話框(03)在鎖定任務欄前打√,任務欄在屏幕上的位置選擇底部,點擊確定即可...
-
如何使用QQ雲盤呢?怎麼使用微雲呢?
現在雲盤比較流行,隨着網絡的發展,以前的U盤現在逐步減少,網絡雲盤可以透過網絡盤幫我們儲存資料,不需要再隨身攜帶U盤了。下面和大家談下如何使用qq雲盤?操作方法(01)在電腦上登入QQ。(02)點擊微雲圖標進入微雲。(03)日常筆記可以在“筆記”欄開啟,然後點擊新建一個檔案。...
-
用excel的days函數快速計算兩日期之間的天數
如何用excel的days函數快速計算兩日期之間的天數?下面,圖文演示,給大家作個參考。公式編寫(01)用days函數編輯公式:=days(結束日期,開始日期)如圖所示。(02)按回車,得到兩日期之間的天數爲4天。舉例應用(01)下面,舉個簡單例子。比如,下圖中,若超過10天,即標上:超時(02)選中D2:D8再在...
-
電腦屏幕旋轉快速鍵 。電腦屏幕旋轉了怎麼辦
很多用戶有時會不小心觸發一些系統中的快速鍵導致電腦屏幕方向被更改又不知道怎麼恢復,這就來教一下怎麼旋轉屏幕。方法一(01)電腦屏幕旋轉快速鍵旋轉至正常位置:CTRL+ALT+方向鍵上。旋轉90度:CTRL+ALT+方向鍵左。旋轉180度:CTRL+ALT+方向鍵下。旋轉270度:CTRL+ALT+方...