So konvertieren Sie Zahlen in Textbuchstaben Excel 2019 oder Excel 2016

Microsoft Excel ist eines der leistungsstärksten Tools, mit denen große Datenmengen verschiedener Typen (Zahlen, Daten, Text usw.) verwaltet und gesteuert werden können Hunderte von Funktionen, Formeln und integrierten Tools, mit denen Sie die vollständige Kontrolle über alle in die aktiven Tabellen eingegebenen Daten haben. Eine der Aufgaben, die in Excel sowohl 2016 als auch 2019 wiederkehrend oder nützlich sein können, ist die Umwandlung von Zahlen in Buchstaben. Dies ist besonders nützlich, wenn wir uns in einem Buchhaltungs- oder Finanzbereich befinden, da dies dazu beiträgt, Werte direkt in Buchstaben zu generieren, was beispielsweise bei der Prüfung von Schecks üblich ist.

Obwohl Microsoft Excel 2016 und das Die neue Ausgabe 2019 ist voll von Funktionen. Excel verfügt nicht über eine integrierte Funktion, die für die Anzeige von Zahlen als Wörter in einer Tabelle verantwortlich ist. Dies kann für viele Benutzer ein Problem oder ein Fehler sein. Um diese Konvertierung zu erreichen, müssen wir in einem VBA-Modul (Visual Basic für Applikationen) einen SpellNumber-Funktionscode erstellen, der diese Aktion automatisiert.

AdminGuides erklärt ausführlich, wie dies in Microsoft Excel 2019 durchgeführt wird, aber der gleiche Prozess gilt für Excel 2016 ..

Erstellen Sie die SpellNumber-Funktion, um Zahlen in Microsoft Excel 2019, 2016 umzuwandeln. H2>

Schritt 1

Um diesen Vorgang auszuführen, müssen Sie auf den Visual Basic-Editor (VBE) zugreifen. Fenster, auf das mit den folgenden Tasten zugegriffen wird:

+ F11 Alt + F11

Eine weitere alternative Methode Um das Programmierer-Menü zu verwenden, müssen Sie, wenn Sie es nicht haben (denken Sie daran, dass es standardmäßig deaktiviert ist), zum Menü ‚Datei / Optionen‘ und dann zum Abschnitt ‚Anpassen des Menübands‘ gehen:

Dort gehen wir zur rechten Seite und aktivieren den ‚Programmierer‘. Denken Sie daran, dass mit diesem Menü Folgendes möglich ist:

• Makros schreiben

• XML-Befehle verwenden.

• ActiveX verwenden Steuerelemente.

• Führen Sie zuvor aufgezeichnete Makros aus.

• Erstellen Sie Anwendungen zur Verwendung mit Microsoft Office-Programmen.
• Verwenden Sie Formularsteuerelemente in Microsoft Excel.

• Arbeiten mit ShapeSheet in Microsoft Visio.

• Erstellen Sie neue Formen und Symbolgalerien in Microsoft Visio.

Einmal Wenn wir auf das Visual Basic-Editor-Fenster zugreifen, gehen wir zum ‚Einfügen‘. Menü und dort wählen wir das ‚Modul‘? Option:

In das neue angezeigte Fenster fügen wir den folgenden Inhalt ein:

 Option Explicit 'Hauptfunktion Funktion 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-Darstellung des Betrags. MyNumber = Trim (Str (MyNumber)) 'Position der Dezimalstelle 0, falls keine vorhanden. DecimalPlace = InStr (MyNumber,'. ')' Konvertiert Cent und setzt MyNumber auf Dollarbetrag. Wenn DecimalPlace u0026 gt; 0 Dann Cents = GetTens (Links (Mitte (MyNumber, DecimalPlace + 1) u0026 amp; '00', 2)) MyNumber = Trim (Links (MyNumber, DecimalPlace - 1)) End if Count = 1 Do While MyNumber u0026 lt; u0026 gt; '' Temp = GetHundreds (Right (MyNumber, 3)) Wenn Temp u0026 lt; u0026 gt; '' Dann Dollars = Temp u0026 amp; Ort (Anzahl) u0026 amp; Dollar Wenn Len (MyNumber) u0026 gt; 3 Dann MyNumber = Links (MyNumber, Len (MyNumber) - 3) Sonst MyNumber = '' End if Count = Count + 1 Schleife Select Case Dollars Case '' Dollars = 'Es gibt keine Dollars' Case 'One' Dollars = 'One Dollar 'Fall sonst Dollar = Dollar u0026 amp; 'Dollars' Ende auswählen Fall auswählen Cent '' Cent = 'Ohne Cent' Fall 'Eins' Cent = 'Und ein Penny' Fall Sonst Cent = 'und' u0026 amp; Cent u0026 amp; 'Cent' Ende wählen Sie SpellNumber = Dollars u0026 amp; Cents End-Funktion 'Konvertiert eine Zahl von 100-999 in Textfunktion GetHundreds (ByVal MyNumber) Dim Result As String Wenn Val (MyNumber) = 0, dann Exit Function MyNumber = Right (' 000 'u0026 amp; MyNumber, 3)' Konvertieren Sie die Hunderte Platz. Wenn Mid (MyNumber, 1, 1) u0026 lt; u0026 gt; '0' Dann Ergebnis = GetDigit (Mid (MyNumber, 1, 1)) u0026 amp; 'Mil' End if 'Konvertiert die Zehner- und Einsenstelle. Wenn Mid (MyNumber, 2, 1) u0026 lt; u0026 gt;' 0 ', dann Ergebnis = Ergebnis u0026 amp; GetTens (Mid (MyNumber, 2)) Sonst Ergebnis = Ergebnis u0026 amp; GetDigit (Mid (MyNumber, 3)) End if GetHundreds = Result End function 'Konvertiert eine Zahl von 10 bis 99 in Text. Funktion GetTens (TensText) Dim Result As String Result = '' Nullen Sie den temporären Funktionswert auf. Wenn Val (Left (TensText, 1)) = 1 Dann 'If value zwischen 10-19 ... Select Case Val (TensText) Fall 10: Ergebnis = 'Zehn' Fall 11: Ergebnis = 'Einmal' Fall 12: Ergebnis = 'Zwölf' Fall 13: Ergebnis = 'Dreizehn' Fall 14: Ergebnis = 'Vierzehn' Fall 15: Ergebnis = 'Fünfzehn' Fall 16 : Ergebnis = 'Sechzehn' Fall 17: Ergebnis = 'Siebzehn' Fall 18: Ergebnis = 'Achtzehn' Fall 19: Ergebnis = 'Neunzehn' Fall sonst Ende wählen Sie sonst 'Wenn Wert zwischen 20-99 ... Fallwert auswählen (links (TensText, 1)) Fall 2: Ergebnis = 'Zwanzig' Fall 3: Ergebnis = 'Dreißig' Fall 4: Ergebnis = 'Vierzig' Fall 5: Ergebnis = 'Fünfzig' Fall 6: Ergebnis = 'Sechzig' Fall 7: Ergebnis = 'Siebzig' Fall 8: Ergebnis = 'Achtzig' Fall 9: Ergebnis = 'Neunzig' Fall Sonst Ende wählen Sie Ergebnis = Ergebnis u0026 amp; GetDigit (rechts (TensText, 1)) 'Rufen Sie einen Platz ab. End if GetTens = Result End function 'Konvertiert eine Zahl von 1 bis 9 in Text. Funktion GetDigit (Digit) Wählen Sie Case Val (Digit) Case 1: GetDigit =' One 'Case 2: GetDigit =' Two 'Case 3: GetDigit = 'Drei' Fall 4: GetDigit = 'Vier' Fall 5: GetDigit = 'Fünf' Fall 6: GetDigit = 'Sechs' Fall 7: GetDigit = 'Sieben' Fall 8: GetDigit = 'Acht' Fall 9: GetDigit = 'Neun' 'Case Else: GetDigit =' 'End select End function 

Nachdem wir dieses Skript in den Excel-Editor eingefügt haben, speichern wir es für zukünftige Aufgaben Das Menü ‚Datei / Speichern wie‘ und im Fenster wählen wir die Option ‚Excel-Arbeitsmappe für Makros aktiviert‘ und weisen einen gleichen Namen zu. Klicken Sie auf Speichern und wir können diese erstellte Formel verwenden.

Sobald dies erledigt ist, können wir in Excel 2019 oder 2016 zwei Methoden verwenden, um Zahlen in Buchstaben umzuwandeln:

 = Spel lNumber (Cell) 

 = SpellNumber (18.45)