There Excel? Er ingen funksjoner eller formler kan hjelpe deg med å løse denne oppgaven direkte i Excel, men du kan opprette en brukerdefinert funksjon for å fullføre den. Vennligst gjøre med følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications Window.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window.
Funksjon NumberstoWords (ByVal pnumber) 'Updateby20140220Dim Dollarsarr = Array ("", "", "tusen", "Million", "Billion", "billion") pnumber = Trim (Str (pnumber)) xDecimal = InStr (pnumber, "".) Hvis xDecimal > 0 ThenpNumber = Trim (Venstre (pnumber, xDecimal - 1)) End IfxIndex = 1Do Mens pnumber < > "" xHundred = "" xVerdi = Høyre (pnumber, 3) Dersom Val (xVerdi) < > 0 ThenxValue = Høyre ("000" & xVerdi, 3) Dersom Mid (xVerdi, 1, 1) < > "0" ThenxHundred = GetDigit (Mid (xVerdi, 1, 1)) & "Hundre" End IfIf Mid (xVerdi, 2, 1) < > "0" ThenxHundred = xHundred & GetTens (Mid (xVerdi, 2)) ElsexHundred = xHundred & GetDigit (Mid (xVerdi, 3)) End IfEnd IfIf xHundred < > "" ThenDollars = xHundred & arr (xIndex) & DollarsEnd IfIf Len (pnumber) > 3 ThenpNumber = Left (pnumber, Len (pnumber) - 3) ElsepNumber = "" End IfxIndex = xIndex + 1LoopNumberstoWords = DollarsEnd FunctionFunction GetTens (pTens) Dim Resultat Som StringResult = "" Hvis Val (Venstre (pTens, 1)) = 1 ThenSelect sak Val (pTens) Sak 10: Resultat = "Ten" Case 11: Resultat = "Eleven" Case 12: Resultat = "Twelve" Case 13: Resultat = "Thirteen" Case 14: Resultat = "Fjorten" Case 15: Resultat = "Fifteen" Case 16: Resultat = "Sixteen" Case 17: Resultat = "Seventeen" Case 18: Resultat = "Eighteen" Case 19: Resultat = "Nitten" case ElseEnd SelectElseSelect sak Val (Venstre (pTens, 1)) Veske 2: Resultat = "Tjue" Case 3: Resultat = "Thirty" Case 4: Resultat = "Forty" Case 5: Resultat = "Femti" Case 6: Resultat = "Sixty" Case 7: Resultat = "Sytti" Case 8: Resultat = "Åtti" Case 9: Resultat = "Ninety" Case ElseEnd SelectResult = Resultat & GetDigit (Høyre (pTens, 1)) End IfGetTens = ResultEnd FunctionFunction GetDigit (pDigit) Velg sak Val (pDigit) Sak 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Tre" case 4 : GetDigit = "Four" Case 5: GetDigit = "Fem" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End SelectEnd Function3. Lagre og lukke denne koden og gå tilbake regnearket, i en tom celle, går inn i denne formelen = NumberstoWords (A2) (A2 er cellen du vil konvertere tallet til engelske ordet), se skjermbilde:
4 . Trykk deretter på Enter-tasten og velger celle C2 og drar fyllhåndtaket til området du vil inneholde denne formelen. Alle tallverdier har blitt konvertert sine tilsvarende engelske ord
Merk:.. Når du trenger å kopiere disse resultatene til andre celler, må du kopiere og lime dem som Verdier Anmeldelser