, geen kenmerken of formule kan helpen je rechtstreeks van dat probleem op te lossen, maar je kan de oprichting van een gebruiker die functie te vervullen.Doe de volgende stappen:,,,, op 1, Alt+F11, sleutels, het openstellen van Microsoft de visuele van toepassing.,,,,, 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. (xValue, 3) als het einde als als) aan het einde van xHundred < > "" dan dat lezen = xHundred & arr (xIndex) & dat lezen, als als len (pNumber) > 3 - pNumber = links (pNumber, len (pNumber) - 3) anders pNumber = "" het einde als xIndex = xIndex + 1 - NumberstoWords = dat lezen einde - functie. GetTens (pTens dim het resultaat als touw) = "als val (links (pTens, 1)) = 1 - deze zaak val (pTens) Zaak 10: het" Tien "zaak 11: = =" elf "zaak: het resultaat =" twaalf "zaak 13: het =" Thirteen "zaak: het =" Fourteen "zaak 15: het =" vijftien "zaak 16 =" Sixteen "zaak 17: het resultaat =" zeventien "zaak 18: het =" Eighteen "Zaak 19:" het leven "(= de zaak anders kies anders kiezenZaak C - val (links (PTENs, 1) Zaak 2: resultaten = "20" Zaak C - 3: resultaten = "30" - Zaak 4: resultaten = "40" geval 5: resultaten = "50" geval 6: resultaten = "60" zaak 7: resultaten = "8: de zaak 70" = "Zaak C - 9: de resultaten van 80" = "de zaak uiteindelijk kiezen voor andere resultaten van de 90" = resultaat & getdigit (rechts (PTENs, 1) als de ge - SI = resultaten in het einde van functionele getdigit (pdigit) de keuze van de zaak val (pdigit) - Zaak 1:getdigit = "een" Zaak C - 2:getdigit = twee gevallen "3:getdigit =" drie ". Zaak C - 4: getdigit =" vier "Zaak C - 5:getdigit =" vijf "Zaak C - 6:getdigit =" zes "Zaak C - 7:getdigit =" zeven "Zaak C - 8:getdigit =" acht "Zaak C - 9:getdigit =" negen "geval: getdigit =" ten einde de keuze is,,, 3.Het behoud van het sluiten van de code en de terugkeer naar het werk en de tabel in een lege cel, in de formule = numberstowords (A2), (A2) is het aantal om te zetten, de Engelse woorden, zie foto 's):,,,,,, 4.En dan, de invoer, de sleutels, en de keuze van de cel C2 sleurt aan te vullen met deze formule op wil je.Alle waarden zijn omgezet in de overeenkomstige woorden Engels.,,,,,, noot: wanneer u een kopie van deze resultaten voor de andere cellen, kopiëren en plakken.,,,,