, er der ingen elementer eller fremgangsmåder der kan hjælpe dig med at løse denne opgave direkte i excel, men du kan skabe en bruger defineret funktion til at afslutte det.følg med følgende trin:,,, 1., hold den, alat + f11, nøgler, og det åbner, microsoft visual basic for ansøgninger vindue,.,,,. 2.Click ,Insert, > ,Module,, and paste the following code in the, Module Window,.,,Function NumberstoWords(ByVal pNumber) 'Updateby20140220 Dim Dollars arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") pNumber = Trim(Str(pNumber)) xDecimal = InStr(pNumber, ".") If xDecimal > 0 Then pNumber = Trim(Left(pNumber, xDecimal - 1)) End If xIndex = 1 Do While pNumber <> "" xHundred = "" xValue = Right(pNumber, 3) If Val(xValue) <> 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) <> "0" Then xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) <> "0" Then xHundred = xHundred & GetTens(Mid(xValue, 2)) Else xHundred = xHundred & GetDigit(Mid(xValue, 3)) End If End If If xHundred <> "" Then Dollars = xHundred & arr(xIndex) & Dollars End If If Len(pNumber) > 3 Then pNumber = Left(pNumber, Len(pNumber) - 3) Else pNumber = "" End If xIndex = xIndex + 1 Loop NumberstoWords = Dollars End Function Function GetTens(pTens) Dim Result As String Result = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) 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 Else End Select Else Select hvis val (venstre (ptens, 1) 2. tilfælde: resultat = "20" sag 3: resultat = "30" sag 4: resultat = "40" sag 5: resultat = "50", sag 6: resultat = "60" sag 7: resultat = 70 "sag 8: resultat =" - "sag 9: resultat =" 90 "tilfælde anden ende udvælger resultat = resultat & getdigit ((ptens, 1)), hvis gettens = resultat ende fungere funktion getdigit (pdigit) udvælge sag val (pdigit) sag 1: getdigit =", en "2. tilfælde: getdigit =" to "sag 3: getdigit =" tre "sag 4: getdigit =" fire "sag 5: getdigit =" fem "sag 6: getdigit =" seks "sag 7: getdigit =" syv "sag 8: getdigit =" 8 "sag 9: getdigit =" ni "tilfælde andre: getdigit =" valget ende funktion, 3.save og tæt på denne kodeks, og gå tilbage den arbejdsplan, i en tom celle, træder denne formel = numberstowords (a2) (a2, cellen er vil du konvertere antallet til engelsk ord), se skærmbillede:,,,,,,. 4.så tryk ind, nøgle, og udvælge celle c2 så trække fylde klare til det interval, som du har lyst til at indeholde formlen.alle de numeriske værdier er blevet ændret tilsvarende engelske ord.,,,,,, bemærkning: når du har brug for at kopiere disse resultater til andre celler, venligst kopi og sæt dem som værdier.,,,,