Mit einer integrierten Funktion können Sie Zahlen in Excel nicht direkt in geschriebene Wörter konvertieren. Sie können dies jedoch mit einer Kombination aus Formeln und VBA -Code erreichen:
Verwendung von Formeln (begrenzt auf kleinere Zahlen):
1. Nummer zum Text: Verwenden Sie die Funktion "text", um die Nummer in Text umzuwandeln. Zum Beispiel wird `=text (10," 0 ")" 10 "zurückgeben.
2. Suchtabelle: Erstellen Sie eine Nachschlagetabelle mit Zahlen und ihren entsprechenden Schreibweisen. Diese Tabelle muss alle Zahlen enthalten, die Sie konvertieren möchten.
3. vlookup: Verwenden Sie die Funktion `vlookup`, um die Nummer in der Nachschlagtabelle nachzuschlagen und die entsprechende Schreibweise zurückzugeben. Zum Beispiel wird `=vlookup (A1, Tabelle 1, 2, False)` den Wert in Zelle A1 in der Tabelle "Tabelle 1" nachschlagen und den Wert in der zweiten Spalte zurückgeben.
Einschränkungen des Formelansatzes:
* begrenzter Bereich: Diese Methode eignet sich nur für Zahlen im Bereich Ihrer Nachschlagetabelle.
* komplexes Setup: Das Erstellen und Aufrechterhaltung einer großen Nachschlagtabelle für alle möglichen Zahlen kann mühsam sein.
Verwenden von VBA -Code (flexibler):
1. Öffnen Sie den VBA -Editor: Drücken Sie "Alt + F11", um den Visual Basic Editor zu öffnen.
2. Modul einfügen: Fügen Sie ein neues Modul ein, indem Sie auf "Einfügen"> "Modul" klicken.
3. Fügen Sie den Code ein: Fügen Sie den folgenden Code in das Modul ein:
`` `vba
Funktion Zaubernumber (Byval mynumber als doppelt) als Zeichenfolge
Dim Hunderte als Zeichenfolge, Zehnte als Zeichenfolge, die als Zeichenfolge
Schwacher Ort als Ganzzahl
'Gehen Sie negative Zahlen um
Wenn mynumber <0 dann
Spellnumber ="negativ" &Zaubernumber (ABS (mynumber))
Ausgangsfunktion
Ende wenn
'Gehe Null
Wenn mynumber =0 dann
Spellnumber ="Zero"
Ausgangsfunktion
Ende wenn
'Handle Zahlen von mehr als 999.999.99999999999999999999999999999999999.
Wenn mynumber> 999999999 dann dann
Zaubernummer ="Anzahl zu groß"
Ausgangsfunktion
Ende wenn
'Erstellen Sie Arrays für Zahlenschreibungen
Dim OneArray () als String
OneArray =Split ("Null, eins, zwei, drei, vier, fünf, sechs, sieben, acht, neun", ",", ")
Dimer teensarray () als Zeichenfolge
Jugendliche =Split ("zehn, elf, zwölf, dreizehn, vierzehn, fünfzehn, sechzehn, siebzehn, achtzehn, neunzehn", ",", "))
Dim Tensarray () als String
Tensarray =Split ("20, dreißig, vierzig, fünfzig, sechzig, siebzig, achtzig, neunzig", ",", "))
Brechen Sie die Zahl in ihre Platzwerte auf
Platz =1
Hunderte =""
Tens =""
Eins =""
Tu während myNumber> 0
Wählen Sie den Fall
Fall 1
Eine =einsArray (mynumber mod 10)
Mynumber =int (mynumber / 10)
Fall 2
Wenn mynumber mod 10 =1 dann
Tens =TeenSray (Mynumber Mod 100 - 10)
Mynumber =int (mynumber / 100)
Anders
Tens =Tensarray (Mynumber Mod 10 - 1)
Mynumber =int (mynumber / 10)
Ende wenn
Fall 3
Hunderte =einsArray (mynumber mod 10) &"hundert"
Mynumber =int (mynumber / 10)
Fall 4
Wenn mynumber mod 10 =1 dann
Tens =TeenSray (Mynumber Mod 100 - 10)
Mynumber =int (mynumber / 100)
Anders
Tens =Tensarray (Mynumber Mod 10 - 1)
Mynumber =int (mynumber / 10)
Ende wenn
Hunderte =einsArray (mynumber mod 10) &"Tausend"
Mynumber =int (mynumber / 10)
Fall 5
Eine =einsArray (mynumber mod 10)
Mynumber =int (mynumber / 10)
Fall 6
Wenn mynumber mod 10 =1 dann
Tens =TeenSray (Mynumber Mod 100 - 10)
Mynumber =int (mynumber / 100)
Anders
Tens =Tensarray (Mynumber Mod 10 - 1)
Mynumber =int (mynumber / 10)
Ende wenn
Fall 7
Hunderte =einsArray (mynumber mod 10) &"hundert"
Mynumber =int (mynumber / 10)
Fall 8
Wenn mynumber mod 10 =1 dann
Tens =TeenSray (Mynumber Mod 100 - 10)
Mynumber =int (mynumber / 100)
Anders
Tens =Tensarray (Mynumber Mod 10 - 1)
Mynumber =int (mynumber / 10)
Ende wenn
Hunderte =einsArray (mynumber mod 10) &"Millionen"
Mynumber =int (mynumber / 10)
Ende auswählen
Platz =Platz + 1
Schleife
'Kombinieren Sie die Platzwerte in eine einzelne Zeichenfolge
Zaubernummer =Hunderte &Zehnte &Eins
Endfunktion
`` `
4. Verwenden Sie die Funktion in Excel: In Ihrem Excel -Blatt können Sie die Funktion wie folgt verwenden:`=SpellNumber (a1)`, wobei A1 die Nummer enthält, die Sie konvertieren möchten.
Vorteile des VBA -Ansatzes:
* größere Zahlen: Geht Zahlen bis zu 999.999.999.
* Keine Nachschlagetabelle: Es ist nicht erforderlich, eine Nachschlagtabelle zu erstellen und zu pflegen.
Hinweis: VBA -Code erfordert, dass Makros in Excel aktiviert werden.
Denken Sie daran, den Ansatz auszuwählen, der Ihren Anforderungen am besten entspricht und die Größe der Zahlen, die Sie für die Konvertierung benötigen.
