Hoe u een getal omzet in tekstletters Excel 2019 of Excel 2016

Microsoft Excel is een van de krachtigste tools waarmee het mogelijk zal zijn om grote hoeveelheden gegevens van verschillende typen (getallen, datums, tekst, etc.) te beheren en te controleren, bedankt tot zijn honderden functies, formules en geïntegreerde tools waarmee u de totale controle heeft over alle gegevens die in de actieve spreadsheets worden ingevoerd. Een van de taken die in Excel terugkerend of nuttig kunnen zijn, zowel in 2016 als 2019, is het omzetten van cijfers naar letters. Dit is vooral handig als we ons op boekhoudkundig of financieel gebied bevinden, omdat dit helpt om waarden direct in letters te genereren, wat gebruikelijk is bij het controleren van cheques, bijvoorbeeld.

Hoewel Microsoft Excel 2016 en de nieuwe editie 2019 zit vol met functies, Excel heeft geen geïntegreerde functie die verantwoordelijk is voor het weergeven van getallen als woorden in een spreadsheet, wat voor veel gebruikers een probleem of mislukking kan zijn. Om deze conversie te bereiken, moeten we een SpellNumber-functiecode maken in een VBA-module (Visual Basic for Applications) die deze actie automatiseert.

AdminGuides zal in detail uitleggen hoe je dit moet doen in Microsoft Excel 2019, maar hetzelfde proces is van toepassing op Excel 2016 ..

Maak de SpellNumber-functie om getallen om te zetten in woorden in Microsoft Excel 2019, 2016

Om dit proces uit te voeren hebben we toegang nodig tot de Visual Basic Editor (VBE) venster dat toegankelijk is met de volgende toetsen.

+ F11 Alt + F11

Een andere alternatieve methode is om het programmeermenu te gebruiken, als je het niet hebt (onthoud dat het standaard is uitgeschakeld), moeten we naar het menu 'Bestand / Opties' gaan en vervolgens naar het gedeelte 'Het lint aanpassen':

Daar gaan we naar de rechterkant en we zullen de â € œProgrammerâ € ?? activeren. box en klik op OK, onthoud dat het met dit menu mogelijk is:

• Macro's schrijven

• XML-commando's gebruiken.

• ActiveX gebruiken besturingselementen.

• Voer eerder opgenomen macro's uit.

• Maak toepassingen voor gebruik met Microsoft Office-programma's.
• Gebruik formulierbesturingselementen in Microsoft Excel.

• Werk met ShapeSheet in Microsoft Visio.

• Maak nieuwe vormen en symboolgalerijen in Microsoft Visio.

Eenmalig we openen het Visual Basic Editor-venster, we gaan naar de â € œInsertâ € ?? menu en daar selecteren we de â € œModuleâ € ?? option:

In het nieuw weergegeven venster zullen we de volgende inhoud plakken:

 Option Explicit 'Hoofdfunctie Functie SpellNumber (ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place (9) As String Place (2) = 'Thousand' Place (3) = 'Millon' Place (4) = 'Billon' Place (5) = 'Trillon' 'String representatie van het bedrag. MyNumber = Trim (Str (MyNumber)) 'Positie van decimaal 0 indien geen. DecimalPlace = InStr (MyNumber,'. ')' Converteer centen en stel MyNumber in op dollarbedrag. Als DecimalPlace u0026 gt; 0 Then Cents = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) u0026 amp; '00', 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End if Count = 1 Do While MyNumber u0026 lt; u0026 gt; '' Temp = GetHundreds (Right (MyNumber, 3)) Als Temp u0026 lt; u0026 gt; '' Then Dollars = Temp u0026 amp; Plaats (aantal) u0026 amp; Dollars If Len (MyNumber) u0026 gt; 3 Then MyNumber = Left (MyNumber, Len (MyNumber) - 3) Else MyNumber = '' End if Count = Count + 1 Loop Select Case Dollars Case '' Dollars = 'Er zijn geen dollars' Case 'One' Dollars = 'One Dollar 'Case Else Dollars = Dollars u0026 amp; 'Dollars' Einde selecteren Selecteer Case Cents Case '' Cents = 'Zonder cent' Case 'One' Cents = 'En een cent' Case Else Cents = 'en' u0026 amp; Cent u0026 amp; 'Cents' End select SpellNumber = Dollars u0026 amp; Cents End-functie 'Converteert een getal van 100-999 naar tekst Functie GetHundreds (ByVal MyNumber) Dim Result As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right (' 000 'u0026 amp; MyNumber, 3)' Converteer de honderden plaats. Als Mid (MyNumber, 1, 1) u0026 lt; u0026 gt; '0' Dan Resultaat = GetDigit (Mid (MyNumber, 1, 1)) u0026 amp; 'Mil' End if 'Converteer de tientallen en enen plaats. If Mid (MyNumber, 2, 1) u0026 lt; u0026 gt;' 0 'Then Result = Resultaat u0026 GetTens (Mid (MyNumber, 2)) Else Result = Result u0026 amp; GetDigit (Mid (MyNumber, 3)) End if GetHundreds = Result End-functie 'Converteert een getal van 10 tot 99 in tekst. Functie GetTens (TensText) Dim Result As String Result = '' 'Verwijder de tijdelijke functiewaarde. If Val (Left (TensText, 1)) = 1 Then' If waarde tussen 10-19 ... Select Case Val (TensText) Geval 10: Resultaat = 'Tien' Geval 11: Resultaat = 'Eenmaal' Geval 12: Resultaat = 'Twaalf' Geval 13: Resultaat = 'Thirteen' Geval 14: Resultaat = 'Veertien' Geval 15: Resultaat = 'Vijftien' Geval 16 : Result = 'Sixteen' Case 17: Result = 'Seventeen' Case 18: Result = 'Eighteen' Case 19: Resultaat = 'Nineteen' Case Else End select Else 'If waarde tussen 20-99 ... Selecteer Case Val (Links (TensText, 1)) Case 2: Result = 'Twenty' Case 3: Result = 'Thirty' Case 4: Result = 'Forty' Case 5: Result = 'Fifty' Case 6: Result = 'Sixty' Case 7: Resultaat = 'Zeventig' Case 8: Resultaat = 'eighty' Case 9: Resultaat = 'Negentig' Case Else End select Resultaat = Resultaat u0026 GetDigit (Right (TensText, 1)) 'Een plaats ophalen. End if GetTens = Resultaat End-functie 'Converteert een getal van 1 tot 9 in tekst. Functie GetDigit (cijfer) Selecteer hoofdletterval (cijfer) Case 1: GetDigit =' One 'Case 2: GetDigit =' Two 'Case 3: GetDigit = 'Drie' Geval 4: GetDigit = 'Vier' Geval 5: GetDigit = 'Vijf' Geval 6: GetDigit = 'Zes' Geval 7: GetDigit = 'Zeven' Geval 8: GetDigit = 'Acht' Geval 9: GetDigit = 'Negen 'Case Else: GetDigit =' 'End select End functie 

Zodra we dit script in de Excel-editor hebben ingevoegd, gaan we verder met het opslaan voor toekomstige taken, hiervoor gaan we naar het menu 'Bestand / Opslaan hoe' en in het venster selecteren we de optie 'Excel-werkmap ingeschakeld voor macro's' en kennen we dezelfde naam toe.Klik op Opslaan en we zijn klaar om deze gemaakte formule te gebruiken.

Zodra dit is gebeurd, kunnen we twee methoden gebruiken om getallen om te zetten in letters in Excel 2019 of 2016, deze zijn:

 = Spel lNumber (Cell) 

 = SpellNumber (18.45)