I denne artikkelen vil jeg vise deg to raske og gratis måter å konvertere valutatall til engelske ord i Excel 2019, 2016, 2013 og andre versjoner.

Microsoft Excel er en flott program for å beregne dette og hint. Den ble opprinnelig utviklet for å behandle store datamatriser. Imidlertid lar den også lage regnskapsposter som fakturaer, evaluering eller balanser raskt og effektivt.

I mer eller mindre solide betalingsdokumenter er det nødvendig å duplisere numeriske verdier med deres ordform. Det er mye vanskeligere å forfalske maskinskrevne tall enn de som er skrevet for hånd. Noen svindler kan prøve å lage 8000 av 3000, mens det er nesten umulig å i all hemmelighet erstatte "tre" med "åtte".

Så det du trenger er ikke bare å konvertere tall til ord i Excel (f.eks. 123.45 til "ett hundre og tjuetre, førtifem"), men skriv ut dollar og cent (f.eks. $29,95 som "tjueni dollar og nittini cent" ), pund og pence for GBP, euro og eurocent for EUR, osv.

Selv de nyeste versjonene av Excel har ikke et innebygd verktøy for å stave tall, for ikke å snakke om tidligere versjoner. Men det er da Excel er veldig bra. Du kan alltid forbedre funksjonaliteten ved å bruke formler i alle deres

kombinasjoner, VBA-makroer eller tredjeparts tillegg.

Nedenfor finner du to måter å konvertere tall fra tall til ord

Og muligens må du kanskjekonverter ord til tall i Excel

Merk. Hvis du leter etter tall til tekstkonvertering , som betyr at du vil at Excel skal se nummeret ditt som tekst, er det en litt annen ting. For dette kan du bruke TEKST-funksjonen eller noen andre måter som er beskrevet i Hvordan endre tall til tekst i Excel.

SpellNumber VBA-makro for å konvertere tall til ord

Som jeg allerede har nevnt , Microsoft ønsket ikke å legge til et verktøy for denne oppgaven. Men da de så hvor mange brukere som trengte det, opprettet og publiserte de den spesielle VBA-makroen på nettsiden deres. Makroen gjør det navnet SpellNumber antyder. Alle andre makroer jeg kom over er basert på Microsoft-koden.

Du kan finne makroen nevnt som "stavenummerformel". Det er imidlertid ikke en formel, men en makrofunksjon, eller for å være mer presis Excel Brukerdefinert funksjon (UDF).

Alternativet for stavenummer er i stand til å skrive dollar og øre. Hvis du trenger en annen valuta, kan du endre " dollar " og " cent " med navnet på din.

Hvis du ikke er en VBA-kyndig fyr , nedenfor finner du en kopi av koden. Hvis du fortsatt ikke vil eller har tid til å ordne opp i dette, vennligst bruk denne løsningen.

1. Åpne arbeidsboken der du skal stave tallene.
2. Trykk Alt +F11 for å åpne Visual Basic-redigeringsvinduet.
3. Hvis du har flere bøker åpnet, kontroller at den nødvendige arbeidsboken er aktiv medlisten over prosjekter i øvre venstre hjørne av editoren (ett av arbeidsbokelementene er uthevet med blått).
4. I redigeringsmenyen går du til Sett inn -> Modul .
5. Du bør se et vindu kalt YourBook - Module1. Velg all koden i rammen nedenfor og lim den inn i dette vinduet.

   Alternativ Eksplisitt 'Hovedfunksjon Funksjon SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Plass(4) = " Milliard " Plass(5) = " Trillion " MyTall = Trim(Str(MittTall)) Desimalsted = InStr(Mittnummer, "." ) Hvis Desimalsted > 0 Then Cents = GetTens(Left(Mid(MyNumber, DesimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DesimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Sted(tell) & Dollars If Len(MyNumber) > 3 Da MittNumber = Venstre(MittTall, Len(MittTall) - 3) Else MittTall = "" Slutt If Count = Count + 1 Loop Velg Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollars" Case Else Dollars = Dollars & " Dollars" Slutt Velg Velg Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " og " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End funksjon funksjon GetHundreds(ByVal MyNumber) Dim Result As String Hvis Val(MyNumber) = 0 Avslutt deretter funksjon MyNumber = Right( "000" & MyNumber, 3) ' Konverter hundrevis plass. Hvis Mid(MittTall, 1, 1) "0" Da Resultat = GetSiffer(Mid(MittTall, 1, 1)) & " Hundred " End If ' Konverter tiere og enere plass. Hvis Mid(MittTall, 2, 1) "0" Da er Resultat = Resultat & GetTens(Mid(MyNumber, 2)) Else Result = Resultat & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Null ut den midlertidige funksjonsverdien. If Val(Left(TensText, 1)) = 1 Then ' Hvis verdi mellom 10-19... Velg Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Tolv " Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Femten" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nitten" Case Else End Velg Else ' Hvis verdi mellom 20-99... Velg Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Resultat = "Førti" Tilfelle 5: Resultat = "Femti" Tilfelle 6: Resultat = "Seksti" Tilfelle 7: Resultat = "Sytti" Tilfelle 8: Resultat = "Eighty" Tilfelle 9: Resultat = "Nitti" Case Else Slutt Velg resultat = Resultat & GetDigit _ (Right(TensText, 1)) ' Hent en plass. Slutt Hvis GetTens = Resultat Slutt Funksjon Funksjon GetDigit(Siffer) Velg Stor bokstavVal(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "To" 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 = "" Avslutt Velg sluttfunksjon

6. Trykk Ctrl+S for å lagre den oppdaterte arbeidsboken.

   Du må lagre arbeidsboken på nytt. Når du prøver å lagre arbeidsboken med en makro, får du meldingen " Følgende funksjoner kan ikke lagres i makrofri arbeidsbok "

   

   Klikk Nei. Når du ser en ny dialogboks, velg alternativet Lagre som. I feltet " Lagre som type " velger du alternativet " Excel-makroaktivert arbeidsbok ".

   

Bruk SpellNumber-makro i dine regneark

Nå kan du bruke funksjonen Stavenummer i Excel-dokumentene dine. Skriv inn =SpellNumber(A2) i cellen der du må få nummeret skrevet med ord. Her er A2 adressen til cellen med nummeret eller beløpet.

Her kan du se resultatet:

Voila!

Kopier SpellNumber-funksjonen raskt til andre celler.

Hvis du trenger å konvertere hele tabellen, ikke bare 1 celle, plasser musepekeren i nedre høyre hjørne av cellen med formelen til den blir til et lite svart kryss:

Venstreklikk og dra den over kolonne for å fylle ut formelen. Slipp knappen for å se resultatene:

Merk. Vær så snillhusk at dersom du bruker SpellNumber med lenke til en annen celle, vil den skrevne summen oppdateres hver gang tallet i kildecellen endres.

Du kan også legge inn tallet direkte i funksjonen, f.eks. eksempel =SpellNumber(29.95) (29,95 - uten anførselstegn og dollartegnet).

Ulemper ved å bruke makro for å stave tall i Excel

For det første må du kjenne til VBA for å endre koden i henhold til din behov. Det er nødvendig å lime inn koden for hver arbeidsbok, der du planlegger å endre den. Ellers må du lage en malfil med makroer og konfigurere Excel til å laste denne filen ved hver start.

Den største ulempen med å bruke en makro er at hvis du sender arbeidsboken til noen andre, vil denne personen ikke se teksten med mindre makroen er innebygd i arbeidsboken. Og selv om det er innebygd, vil de få et varsel om at det er makroer i arbeidsboken.

Stav tall til ord ved hjelp av et spesielt tillegg

For Excel-brukere som raskt trenger å stave summer, men som ikke har tid til å lære VBA eller finne ut løsninger, har vi laget et spesialverktøy som raskt kan utføre beløp-til-ord-konvertering for noen få populære valutaer. Vennligst møt Spell Number-tillegget som følger med den nyeste versjonen av Ultimate Suite for Excel.

Foruten å være klar til bruk, er verktøyet veldig fleksibelt når det gjelder å konvertere mengder til tekst:

• Du kan velge en avfølgende valutaer: USD, EUR, GBP, BIT, AUD.
• Stav brøkdelen i cent, pennies eller bitcents.
• Velg en hvilken som helst tekst for store og små bokstaver for resultatet: små bokstaver, STORE BOKSTAVER , Store bokstaver i tittel eller store og små bokstaver i setning.
• Stav desimaldelen på forskjellige måter.
• Inkluder eller utelat null cent.

Tillegget støtter alle moderne versjoner inkludert Excel 365, Excel 2029, Excel 2016, Excel 2013 og Excel 2010. Utforsk gjerne andre funksjoner på produktets hjemmeside som er koblet til ovenfor.

Og nå, la oss se dette tallstavingsverktøyet i aksjon :

1. Velg en tom celle for resultatet.
2. I kategorien Ablebits i Verktøy -gruppen klikker du Stave nummer .
3. I dialogvinduet Spillnummer som vises, konfigurer følgende ting:
   • For boksen Velg nummeret ditt , velg cellen som inneholder beløpet du ønsker å få skrevet som tekst.
   • Spesifiser ønsket for øyeblikket , bokstav og måten desimalen del av tallet skal staves.
   • Definer om du vil inkludere null cent eller ikke.
   • Velg om du vil sette inn resultatet som en verdi eller formel.
4. Nederst i dialogvinduet, forhåndsvis resultatet. Hvis du er fornøyd med måten nummeret ditt er skrevet på, klikk Stav . Ellers kan du prøve andre innstillinger.

Skjermbildet nedenfor viser standardenvalg og stavet nummer i B2. Legg merke til en formel (mer presist, en brukerdefinert funksjon) i formellinjen:

Og dette er en rask demonstrasjon av hvordan andre valutaer kan staves:

Tips og merknader:

• Fordi Stavenummer -tillegget ble utviklet for å håndtere virkelige brukssaker som fakturaer og andre økonomiske dokumenter, kan det bare konvertere ett nummer om gangen.
• For å stave en kolonne med tall , sett inn en formel i den første cellen, og kopier deretter formelen ned.
• Hvis det er sjanse for at kildedataene dine kan endres i fremtiden, det er best å sette inn resultatet som formel , slik at det oppdateres automatisk når det opprinnelige tallet endres.
• Når du velger resultatet som formel alternativet, er en tilpasset brukerdefinert funksjon (UDF) satt inn. Hvis du planlegger å dele arbeidsboken din med noen som ikke har Ultimate Suite installert, husk å erstatte formler med verdier før du deler.

Omvendt konvertering - engelske ord til tall

Helt ærlig , Jeg kan ikke forestille meg hvorfor du kan trenge det. Bare i tilfelle... :)

Det ser ut til at Excel MVP, Jerry Latham, opprettet en Excel-brukerdefinert funksjon (UDF) som WordsToDigits . Den konverterer engelske ord tilbake til nummer.

Du kan laste ned Jerry's WordsToDigits-arbeidsbok for å se UDF-koden. Her finner du også hans eksempler på hvordan du brukerfunksjon.

Du kan se hvordan funksjonen fungerer på arket " Sample Entries ", hvor du også vil kunne legge inn egne eksempler. Hvis du planlegger å bruke WordsToDigits i dokumentene dine, vær oppmerksom på at denne funksjonen har begrensninger. Den gjenkjenner for eksempel ikke brøker som er skrevet inn i ord. Du finner alle detaljer på arket " Informasjon ".