In dit artikel laat ik u twee snelle en gratis manieren zien om valutacijfers om te zetten in Engelse woorden in Excel 2019, 2016, 2013 en andere versies.

Microsoft Excel is een geweldig programma om dit en dat te berekenen. Het werd aanvankelijk ontwikkeld om grote gegevensreeksen te verwerken. Het laat echter ook toe om snel en doeltreffend boekhoudkundige gegevens zoals facturen, evaluaties of balansen op te stellen.

In min of meer degelijke betalingsdocumenten is het noodzakelijk numerieke waarden te dupliceren met hun woordvorm. Het is veel moeilijker getypte getallen te vervalsen dan met de hand geschreven getallen. Een of andere oplichter kan proberen van 3000 8000 te maken, terwijl het bijna onmogelijk is stiekem "drie" te vervangen door "acht".

Wat je dus nodig hebt is niet alleen getallen omzetten naar woorden in Excel (bv. 123,45 naar "honderd drieëntwintig, vijfenveertig"), maar dollars en centen spellen (bv. 29,95 dollar als "negenentwintig dollar en negenennegentig cent" ), ponden en centen voor GBP, euro's en eurocenten voor EUR, enz.

Zelfs de nieuwste versies van Excel hebben geen ingebouwde tool voor het spellen van getallen, om nog maar te zwijgen van eerdere versies. Maar dan is Excel pas echt goed. U kunt de functionaliteit ervan altijd verbeteren met behulp van formules in al hun

combinaties, VBA-macro's of invoegtoepassingen van derden.

Hieronder vindt u twee manieren om getallen om te zetten van cijfers naar woorden

En mogelijk moet u in Excel woorden omzetten in getallen.

Opmerking. Als u op zoek bent naar de conversie van nummer naar tekst Als u wilt dat Excel uw getal als tekst ziet, is dat iets anders. Daarvoor kunt u de TEKST-functie gebruiken of een paar andere manieren die zijn beschreven in Hoe verander ik getallen in tekst in Excel.

SpellNumber VBA-macro om getallen in woorden om te zetten

Zoals ik al zei, wilde Microsoft geen hulpmiddel voor deze taak toevoegen. Toen ze echter zagen hoeveel gebruikers er behoefte aan hadden, hebben ze de speciale VBA-macro gemaakt en op hun website gepubliceerd. De macro doet wat de naam SpellNumber suggereert. Alle andere macro's die ik tegenkwam zijn gebaseerd op de code van Microsoft.

U vindt de macro vermeld als "spellnumber formula". Het is echter geen formule, maar een macrofunctie, of preciezer gezegd Excel Gebruiker gedefinieerde functie (UDF).

De spellingsoptie kan dollars en centen schrijven. Als u een andere valuta nodig hebt, kunt u " dollar " en " cent " met de naam van jouw.

Als u geen VBA-kenner bent, vindt u hieronder een kopie van de code. Als u toch geen zin of tijd hebt om dit uit te zoeken, gebruik dan deze oplossing.

1. Open de werkmap waarin je de getallen moet spellen.
2. Druk op Alt+F11 om het Visual Basic editor-venster te openen.
3. Als u meerdere boeken hebt geopend, controleer dan of de benodigde werkmap actief is via de lijst met projecten in de linkerbovenhoek van de editor (een van de werkmapelementen is blauw gemarkeerd).
4. Ga in het editor menu naar Plaats -> Module .
5. Je zou een venster moeten zien met de naam YourBook - Module1. Selecteer alle code in het onderstaande kader en plak het in dit venster.

   Option Explicit 'Main Function Functie SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " 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 = "No Dollars" Case "One" Dollars = "One".Dollar" Case Else Dollars = Dollars & " Dollars" End Select Case Cents Case "" Cents = " en geen centen" Case "One" Cents = " en één cent" Case Else Cents = " en " & 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) ' Converteer de honderdtallen plaats. Als Mid(MyNumber, 1, 1) "0" Dan Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Converteer de tientallen en enen plaats. Als Mid(MyNumber, 2, 1) "0" Dan 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 = ""' Null uit de tijdelijke functiewaarde. Als Val(Left(TensText, 1)) = 1 Dan ' Als waarde tussen 10-19... Selecteer Case Val(TensText) Case 10: Resultaat = "Tien" Case 11: Resultaat = "Elf" Case 12: Resultaat = "Twaalf" Case 13: Resultaat = "Dertien" Case 14: Resultaat = "Veertien" Case 15: Resultaat = "Vijftien" Case 16: Resultaat = "Zestien" Case 17: Resultaat = "Zeventien" Case 18: Resultaat = "Achttien" Case 19: Resultaat =."Negentien" Case Else End Select Else ' Indien waarde tussen 20-99... Selecteer Case Val(Left(TensText, 1)) Case 2: Resultaat = "Twintig" Case 3: Resultaat = "Dertig" Case 4: Resultaat = "Veertig" Case 5: Resultaat = "Vijftig" Case 6: Resultaat = "Zestig" Case 7: Resultaat = "Zeventig" Case 8: Resultaat = "Tachtig" Case 9: Resultaat = "Negentig" Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Ophalenenen plaats. Einde Als GetTens = Resultaat Einde Functie Functie GetDigit(Digit) Selecteer Case Val(Digit) Case 1: GetDigit = "Een" Case 2: GetDigit = "Twee" Case 3: GetDigit = "Drie" Case 4: GetDigit = "Vier" Case 5: GetDigit = "Vijf" Case 6: GetDigit = "Zes" Case 7: GetDigit = "Zeven" Case 8: GetDigit = "Acht" Case 9: GetDigit = "Negen" Case Else : GetDigit = "" End Select Einde Functie End Select

6. Druk op Ctrl+S om de bijgewerkte werkmap op te slaan.

   U moet uw werkmap opnieuw opslaan. Wanneer u de werkmap met een macro probeert op te slaan, krijgt u de melding " De volgende functies kunnen niet worden opgeslagen in een macro-vrije werkmap "

   

   Klik op Nee. Wanneer u een nieuw dialoogvenster ziet, kiest u de optie Opslaan als. In het veld " Opslaan als type " kies de optie " Excel werkmap met macro's ".

   Zie ook: Gestructureerde verwijzingen in Excel-tabellen
   

SpellNumber macro gebruiken in uw werkbladen

Nu kunt u de functie SpellNumber in uw Excel-documenten. Voer =SpellNumber(A2) in de cel waar je het getal in woorden moet krijgen. Hier is A2 het adres van de cel met het getal of bedrag.

Hier zie je het resultaat:

Voila!

Snel de functie SpellNumber kopiëren naar andere cellen.

Als u de hele tabel moet omzetten, niet slechts 1 cel, plaatst u uw muisaanwijzer in de rechterbenedenhoek van de cel met de formule totdat deze verandert in een klein zwart kruis:

Klik met de linkermuisknop en sleep hem over de kolom om de formule in te vullen. Laat de knop los om het resultaat te zien:

Opmerking: als u SpellNumber gebruikt met een link naar een andere cel, wordt de geschreven som bijgewerkt telkens als het getal in de broncel wordt gewijzigd.

U kunt het nummer ook rechtstreeks in de functie invoeren, bijvoorbeeld, =SpellNumber(29.95) (29,95 - zonder aanhalingstekens en dollarteken).

Nadelen van het gebruik van macro's voor het spellen van getallen in Excel

Allereerst moet u VBA kennen om de code aan te passen aan uw behoeften. U moet de code plakken voor elke werkmap waarin u van plan bent deze te wijzigen. Anders moet u een sjabloonbestand met macro's maken en Excel zo instellen dat dit bestand bij elke start wordt geladen.

Het belangrijkste nadeel van het gebruik van een macro is dat als je de werkmap naar iemand anders stuurt, deze persoon de tekst niet ziet, tenzij de macro in de werkmap is ingebouwd. En zelfs als hij is ingebouwd, krijgt hij een waarschuwing dat er macro's in de werkmap staan.

Spel nummers in woorden met behulp van een speciale invoegtoepassing

Voor Excel-gebruikers die snel sommen moeten spellen, maar geen tijd hebben om VBA te leren of workarounds uit te zoeken, hebben we een speciale tool gemaakt die snel de omrekening van bedragen naar woorden kan uitvoeren voor een paar populaire valuta's. Maak kennis met de invoegtoepassing Spellinggetal die is opgenomen in de nieuwste versie van onze Ultimate Suite voor Excel.

Behalve dat het gereedschap gebruiksklaar is, is het echt flexibel in het omzetten van bedragen naar tekst:

• U kunt een van de volgende valuta's kiezen: USD, EUR, GBP, BIT, AUD.
• Spel het breukdeel in centen, centen of bitcenten.
• Kies een willekeurige tekstcase voor het resultaat: kleine letters, HOOFDLETTERS, Titel of Zinsbouw.
• Spel het decimale gedeelte op verschillende manieren.
• Inclusief of zonder nul centen.

De add-in ondersteunt alle moderne versies, waaronder Excel 365, Excel 2029, Excel 2016, Excel 2013 en Excel 2010. Voel je vrij om andere mogelijkheden te verkennen op de hierboven gelinkte homepage van het product.

En nu, laten we eens kijken hoe deze nummer-spelling werkt:

1. Selecteer een lege cel voor het resultaat.
2. Op de Ablebits tabblad, in de Nutsbedrijven groep, klik Spreuk Nummer .
3. In de Morsingsnummer dialoogvenster dat verschijnt, de volgende zaken configureren:
   • Voor de Selecteer uw nummer box, kies de cel met het bedrag dat je als tekst geschreven wilt hebben.
   • Geef de gewenste momenteel , brieventas en de manier waarop de decimaal deel van het nummer moet worden gespeld.
   • Definieer of nul centen al dan niet moeten worden opgenomen.
   • Kies of u het resultaat als waarde of als formule wilt invoegen.
4. Onderaan het dialoogvenster, voorbeeld het resultaat. Als u tevreden bent met de manier waarop uw nummer is geschreven, klikt u op Spreuk Probeer anders verschillende instellingen.

De schermafbeelding hieronder toont de standaardkeuzes en het gespelde getal in B2. Let op een formule (meer precies, een door de gebruiker gedefinieerde functie) in de formulebalk:

En dit is een snelle demonstratie van hoe andere valuta kunnen worden gespeld:

Tips en opmerkingen:

• Omdat de Spreuk Nummer add-in is ontworpen voor gebruik in de praktijk, zoals facturen en andere financiële documenten. een nummer per keer.
• Om een kolom met nummers , een formule invoegen in de eerste cel, en dan de formule naar beneden kopiëren.
• Als de kans bestaat dat uw brongegevens in de toekomst veranderen, kunt u het beste het resultaat invoegen als formule zodat het automatisch wordt bijgewerkt als het oorspronkelijke nummer verandert.
• Bij het kiezen van de resultaat als formule optie, een aangepaste door de gebruiker gedefinieerde functie (UDF) is ingevoegd. Als u van plan bent uw werkmap te delen met iemand die de Ultimate Suite niet geïnstalleerd heeft, vergeet dan niet om formules te vervangen door waarden voordat u ze deelt.

Omgekeerde omzetting - Engelse woorden in getallen

Eerlijk gezegd kan ik me niet voorstellen waarom je het nodig hebt. Voor het geval dat... :)

Het blijkt dat Excel MVP, Jerry Latham, zo'n Excel User defined function (UDF) heeft gemaakt als WordsToDigits Het zet Engelse woorden terug naar nummers.

Je kunt Jerry's WordsToDigits werkboek downloaden om de UDF-code te zien. Hier vind je ook zijn voorbeelden van het gebruik van de functie.

U kunt zien hoe de functie werkt op het blad " Voorbeeldinzendingen ", waar u ook uw eigen voorbeelden kunt invoeren. Als u van plan bent WordsToDigits in uw documenten te gebruiken, weet dan dat deze functie beperkingen heeft. Zo herkent hij bijvoorbeeld geen breuken die in woorden zijn ingevoerd. U vindt alle details op de pagina " Informatie " blad.