I denne artikel vil jeg vise dig to hurtige og gratis måder at konvertere valutatal til engelske ord i Excel 2019, 2016, 2013 og andre versioner.

Microsoft Excel er et fantastisk program til at beregne dette og hint. Det blev oprindeligt udviklet til at behandle store datamængder. Det gør det dog også muligt at oprette regnskabsposter som fakturaer, evalueringer eller balancer hurtigt og effektivt.

I mere eller mindre solide betalingsdokumenter er det nødvendigt at kopiere numeriske værdier med deres ordform. Det er meget sværere at forfalske maskinskrevne tal end håndskrevne tal. En svindler kan forsøge at lave 8000 ud af 3000, mens det er næsten umuligt at udskifte "tre" med "otte" i al hemmelighed.

Så du skal ikke bare konvertere tal til ord i Excel (f.eks. 123,45 til "et hundrede og treogtyve tre og fyrre femogfyrre"), men stave dollars og cents (f.eks. 29,95 dollars som "niogtyve dollars og nioghalvfems cents"), pund og pence til GBP, euro og eurocents til EUR osv.

Selv de nyeste versioner af Excel har ikke et indbygget værktøj til at stave tal, for slet ikke at tale om tidligere versioner. Men det er her, Excel er rigtig godt. Du kan altid forbedre dets funktionalitet ved hjælp af formler i alle deres

kombinationer, VBA-makroer eller tilføjelsesprogrammer fra tredjepart.

Nedenfor finder du to måder at konvertere tal fra tal til ord på

Og muligvis skal du konvertere ord til tal i Excel

Bemærk. Hvis du leder efter den omdannelse af tal til tekst , hvilket betyder, at du vil have Excel til at se dit tal som tekst, er det en lidt anden ting. Til dette kan du bruge TEXT-funktionen eller et par andre måder, der er beskrevet i Sådan ændres tal til tekst i Excel.

SpellNumber VBA-makro til at konvertere tal til ord

Som jeg allerede har nævnt, ønskede Microsoft ikke at tilføje et værktøj til denne opgave. Men da de så, hvor mange brugere der havde brug for det, oprettede og offentliggjorde de den særlige VBA-makro på deres websted. Makroen gør det, som navnet SpellNumber antyder. Alle andre makroer, jeg er stødt på, er baseret på Microsoft-koden.

Du kan finde makroen nævnt som "spellnumber formula". Det er dog ikke en formel, men en makrofunktion, eller mere præcist Excel brugerdefineret funktion (UDF).

Med stave- og skrivefunktionen kan du skrive dollars og cents. Hvis du har brug for en anden valuta, kan du ændre " dollar " og " cent " med navnet på din ene.

Hvis du ikke er VBA-kyndig, kan du nedenfor finde en kopi af koden. Hvis du stadig ikke ønsker eller ikke har tid til at løse dette, kan du bruge denne løsning.

1. Åbn den projektmappe, hvor du skal stave tallene.
2. Tryk på Alt+F11 for at åbne Visual Basic-redigeringsvinduet.
3. Hvis du har flere bøger åbne, skal du kontrollere, at den ønskede projektmappe er aktiv ved hjælp af listen over projekter i øverste venstre hjørne af editoren (et af projektmappeelementerne er fremhævet med blå farve).
4. I editor-menuen skal du gå til Indsæt -> Modul .
5. Du bør se et vindue med navnet YourBook - Module1. Vælg al koden i rammen nedenfor og indsæt den i dette vindue.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Tusind " Place(3) = " Million " Place(4) = " Milliard " Place(4) = " Milliard " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & &; Place(Count) & Dollars If Len(MyNumber)> 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "Ingen Dollars" Case "One" Dollars = "OneDollar" Case Else Dollars = Dollars & " Dollars" End Select Select Select Case Cents Case "" Cents = " og ingen Cents" Case "One" Cents = " og en cent" Case Else Cents = " og " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Konverter hundredepladsen. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Konverter tiers- og enerepladsen. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Nul den midlertidige funktionsværdi. If Val(Left(TensText, 1)) = 1 Then ' Hvis værdi mellem 10-19... Select Case Val(TensText) Case 10: Resultat = "Ti" Case 11: Resultat = "Elleve" Case 12: Resultat = "Tolv" Case 13: Resultat = "Tretten" Case 14: Resultat = "Fjorten" Case 15: Resultat = "Femten" Case 16: Resultat = "Seksten" Case 17: Resultat = "Syvten" Case 18: Resultat = "Otte" Case 19: Resultat = "Otte" Case 19: Resultat ="Nineteen" Case Else End Select Else Else ' Hvis værdi mellem 20-99... Select Case Val(Left(TensText, 1)) Case 2: Resultat = "Twenty " Case 3: Resultat = "Thirty " Case 4: Resultat = "Forty " Case 5: Resultat = "Fifty " Case 6: Resultat = "Sixty " Case 7: Resultat = "Seventy " Case 8: Resultat = "Eighty " Case 9: Resultat = "Ninety " Case Else End Select Result = Result & GetDigit _(Right(TensText, 1)) ' HentEnd If GetTens = Resultat End Function Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" 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 = "" End Select End Function

6. Tryk på Ctrl+S for at gemme den opdaterede arbejdsbog.

   Du skal gemme arbejdsmappen igen. Når du forsøger at gemme arbejdsmappen med en makro, får du beskeden " Følgende funktioner kan ikke gemmes i en makrofri arbejdsbog "

   Se også: Hyperlinks virker ikke i Outlook? Hvordan får du links til at åbne i Outlook igen?
   

   Klik på Nej. Når du får vist en ny dialogboks, skal du vælge Gem som. I feltet " Gem som type " vælge indstillingen " Excel-makro-aktiveret arbejdsbog ".

   

Brug makroen SpellNumber i dine regneark

Nu kan du bruge funktionen SpellNumber i dine Excel-dokumenter. Indtast =SpellNummer(A2) til den celle, hvor du skal have tallet skrevet i ord. A2 er adressen på cellen med tallet eller beløbet.

Her kan du se resultatet:

Voila!

Du kan hurtigt kopiere funktionen SpellNumber til andre celler.

Hvis du skal konvertere hele tabellen og ikke kun én celle, skal du placere musemarkøren i det nederste højre hjørne af cellen med formlen, indtil den bliver til et lille sort kryds:

Venstreklik og træk den hen over kolonnen for at udfylde formlen. Slip knappen for at se resultatet:

Bemærk. Husk, at hvis du bruger SpellNumber med et link til en anden celle, vil den skrevne sum blive opdateret, hver gang tallet i kildecellen ændres.

Du kan også indtaste nummeret direkte i funktionen, f.eks, =SpellNummer(29.95) (29,95 - uden anførselstegn og dollartegn).

Ulemper ved at bruge makro til at stave til tal i Excel

Først og fremmest skal du kende VBA for at kunne ændre koden efter dine behov. Det er nødvendigt at indsætte koden for hvert regneark, hvor du har planer om at ændre den. Ellers skal du oprette en skabelonfil med makroer og konfigurere Excel til at indlæse denne fil ved hver start.

Den største ulempe ved at bruge en makro er, at hvis du sender arbejdsmappen til en anden person, vil denne person ikke kunne se teksten, medmindre makroen er indbygget i arbejdsmappen. Og selv hvis den er indbygget, vil vedkommende få en advarsel om, at der er makroer i arbejdsmappen.

Stave tal i ord ved hjælp af en særlig tilføjelsesfunktion

For Excel-brugere, der har brug for hurtigt at stave beløb, men ikke har tid til at lære VBA eller finde ud af løsninger, har vi skabt et særligt værktøj, der hurtigt kan udføre omregning af beløb til ord for nogle få populære valutaer. Mød Spell Number add-in'et, der er inkluderet i den seneste version af vores Ultimate Suite for Excel.

Ud over at være klar til brug er værktøjet virkelig fleksibelt, når det gælder om at konvertere mængder til tekst:

• Du kan vælge en af følgende valutaer: USD, EUR, GBP, BIT, AUD.
• Stav brøkdelen i cents, pennies eller bitcents.
• Vælg en hvilken som helst tekstboks for resultatet: små bogstaver, STORE bogstaver, titelbogstav eller sætningsbogstav.
• Stav decimaldelen på forskellige måder.
• Medtag eller udelad nul cents.

Tilføjelsesprogrammet understøtter alle moderne versioner, herunder Excel 365, Excel 2029, Excel 2016, Excel 2013 og Excel 2010. Du er velkommen til at udforske andre funktioner på produktets hjemmeside, som der er linket til ovenfor.

Og nu skal vi se dette værktøj til stavning af tal i aktion:

1. Vælg en tom celle til resultatet.
2. På den Ablebits under fanen, i fanen Hjælpeprogrammer gruppe, klik på Besværgelse nummer .
3. I den Antal udslip dialogvinduet, der vises, skal du konfigurere følgende ting:
   • For den Vælg dit nummer Vælg den celle, der indeholder det beløb, du ønsker at få skrevet som tekst.
   • Angiv den ønskede i øjeblikket , bogstavsinddeling og den måde, hvorpå den decimaldel af nummeret skal staves.
   • Angiv, om nul cent skal medtages eller ej.
   • Vælg, om du vil indsætte resultatet som en værdi eller en formel.
4. Nederst i dialogvinduet, forhåndsvisning resultatet. Hvis du er tilfreds med den måde, dit nummer er skrevet på, skal du klikke på Stave Ellers kan du prøve forskellige indstillinger.

Skærmbilledet nedenfor viser standardindstillingerne og det stavede tal i B2. Bemærk venligst en formel (nærmere bestemt en brugerdefineret funktion) i formellinjen:

Og dette er en hurtig demonstration af, hvordan andre valutaer kan staves ud:

Tips og noter:

• Fordi den Besværgelse nummer tilføjelsesprogrammet er designet til at håndtere virkelige brugstilfælde som fakturaer og andre finansielle dokumenter, kan det kun konvertere et nummer ad gangen.
• For at stave et kolonne af tal , indsæt en formel i den første celle, og kopier derefter formlen ned.
• Hvis der er en chance for, at dine kildedata kan ændre sig i fremtiden, er det bedst at indsæt resultatet som formel , så det opdateres automatisk, når det oprindelige nummer ændres.
• Når du vælger den resultat som formel mulighed, en brugerdefineret brugerdefineret funktion (Hvis du planlægger at dele din projektmappe med en person, der ikke har Ultimate Suite installeret, skal du huske at erstatte formler med værdier, før du deler den.

Omvendt konvertering - engelske ord til tal

Jeg kan ærlig talt ikke forestille mig, hvorfor du skulle have brug for det. Bare for en sikkerheds skyld... :)

Det ser ud til at Excel MVP, Jerry Latham, har skabt en sådan Excel brugerdefineret funktion (UDF) som WordsToDigits Den konverterer engelske ord tilbage til tal.

Du kan downloade Jerrys arbejdsbog WordsToDigits for at se UDF-koden. Her finder du også hans eksempler på, hvordan du bruger funktionen.

Du kan se, hvordan funktionen fungerer på arket " Eksempler på indtastninger ", hvor du også kan indtaste dine egne eksempler. Hvis du planlægger at bruge WordsToDigits i dine dokumenter, skal du være opmærksom på, at denne funktion har begrænsninger. For eksempel genkender den ikke brøker, der er indtastet i ord. Du finder alle detaljerne på siden " Oplysninger " ark.