The Excel? Følgende lang VBA-kode kan hjelpe deg å stave ut tallene til tekststrenger. Gjør som følger:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende makro i Modulewindow.
Funksjon SpellNumberToEnglish (ByVal pnumber) 'Updateby20131113Dim dollar, Centsarr = Array ("", "", "tusen", "Million", "Billion", "Trillion") pnumber = Trim (Str (pnumber)) xDecimal = InStr (pnumber, "".) Hvis xDecimal > 0 Then Cents = GetTens (Venstre (Mid (pnumber, xDecimal + 1) & "00", 2)) pnumber = Trim (Venstre (pnumber, xDecimal - 1)) End IfxIndex = 1Do Mens pnumber < > "" XHundred = "" xVerdi = Høyre (pnumber, 3) Dersom Val (xVerdi) < > 0 Then xVerdi = Høyre ("000" & xVerdi, 3) Dersom Mid (xVerdi, 1, 1) < > "0" Så xHundred = GetDigit (Mid (xVerdi, 1, 1)) & "Hundre" End If Hvis Mid (xVerdi, 2, 1) < > "0" Så xHundred = xHundred & GetTens (Mid (xVerdi, 2)) Else xHundred = xHundred & GetDigit (Mid (xVerdi, 3)) End If End If Hvis xHundred < > "" Så Dollars = xHundred & arr (xIndex) & Dollar End If Hvis Len (pnumber) > 3 Da pnumber = Left (pnumber, Len (pnumber) - 3) Else pnumber = "" End If xIndex = xIndex + 1LoopSelect Case-dollar veske "" Dollars = "Ingen Dollars" Case "One" Dollars = "One Dollar" Case Else dollar = Dollars & "Dollar" End SelectSelect sak Cents veske "" Cents = "og ingen Cents" case "One" Cents = "og One Cent" Case Else Cents = "og" & Cent & "Cents" End SelectSpellNumberToEnglish = Dollars & CentsEnd FunctionFunction GetTens (pTens) Dim Resultat Som StringResult = "" Hvis Val (Venstre (pTens, 1)) = 1 Da Velg 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 Else End SelectElseSelect sak Val (Venstre (pTens, 1)) Sak 2: Resultat = "Tjue" Case 3: Resultat = "Thirty" Case 4: Resultat = "Forty" Sak 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. Deretter lagre koden, og gå tilbake til regnearket, i den tilstøtende celle E1, skriver du inn formelen = SpellNumberToEnglish (D1), se skjermbilde:
4. Trykk deretter på Enter-tasten, og velg cellen E1, deretter drar fyllhåndtaket over til området som inneholder denne formelen som du trenger. Og alle de tallene har blitt skrevet ut til engelske ord. Se skjermbilde:
Merk: Som de er formler, når du trenger å kopiere og lime dem, kan du lime inn som verdier
Stav ut eller konvertere tallene til engelske ord med Kutools for Excel Kanskje over lang koden kan gjøre deg være sint, må du ikke bekymre deg, her kan jeg gi deg en enkel og rask måte å løse det.
Med Kutools for Excel stave ut Numbers-funksjonen, kan du raskt og enkelt konvertere tallene til tekststrenger.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. . Få den nå
Når du har installert Kutools for Excel, kan du gjøre som følgende fremgangsmåte:
1. Merk området numrene du ønsker å stave.
2. Klikk Kutools > Innhold > Stave ut Numbers. Se skjermbilde:
tre. I Spell Out dialog Numbers boksen, velger engelsk fra språk. Og du kan forhåndsvise resultatene fra høyre forhåndsvisningsruten. Se skjermbilde:
4. Klikk deretter på OK eller Bruk. Og alle prisbeløpet tallene har blitt konvertert til tekst strenger i den opprinnelige serien
Merk:.. Hvis du trenger den kinesiske prisbeløpet ord, vennligst klikk kinesisk alternativ fra Språk
Klikk Stave ut Numbers for å vite mer om denne funksjonen. Anmeldelser
Next Page:Hvordan bytte til full skjerm i Excel?
Med Kutools for Excel stave ut Numbers-funksjonen, kan du raskt og enkelt konvertere tallene til tekststrenger.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. . Få den nå
Når du har installert Kutools for Excel, kan du gjøre som følgende fremgangsmåte:
1. Merk området numrene du ønsker å stave.
2. Klikk Kutools > Innhold > Stave ut Numbers. Se skjermbilde:
tre. I Spell Out dialog Numbers boksen, velger engelsk fra språk. Og du kan forhåndsvise resultatene fra høyre forhåndsvisningsruten. Se skjermbilde:
4. Klikk deretter på OK eller Bruk. Og alle prisbeløpet tallene har blitt konvertert til tekst strenger i den opprinnelige serien
Merk:.. Hvis du trenger den kinesiske prisbeløpet ord, vennligst klikk kinesisk alternativ fra Språk
Klikk Stave ut Numbers for å vite mer om denne funksjonen. Anmeldelser