In diesem Artikel werde ich zwei schnelle und kostenlose Methoden demonstrieren, um numerische Werte in englische W?rter in Excel 2019, 2016, 2013 und anderen Ausgaben umzuwandeln.

Microsoft Excel ist ein hervorragendes Instrument zur Durchführung verschiedener Berechnungen. Zun?chst entwickelt es für die Verwaltung gro?er Datens?tze und erleichtert auch die schnelle Erstellung von Buchhaltungsunterlagen wie Rechnungen, Bewertungen oder Bilanzen.

In formellen Zahlungsdokumenten ist es wichtig, numerische Werte mit ihren entsprechenden Wortformen zu duplizieren. Typisierte Zahlen sind im Vergleich zu handschriftlichen Zahlen schwerer zu manipulieren. Ein Betrüger k?nnte 8000 ?ndern, um als 3000 zu erscheinen, w?hrend das Umwandeln von "drei" in "acht" nahezu nicht nachweisbar ist.

Was Sie ben?tigen, ist also nicht nur Zahlen in Excel (z. B. 123,45 bis "einhundertundzwanzig drei, fünfundvierzig"), sondern auch Betr?ge wie 29,95 US-Dollar als "29 Dollar und neunundneunzig Cents" oder Pfund und Pence für GBP, Euro und Eurocents und Eurocents und Eurocents und Eurocents und Eurocents usw. Eurocents und Eurocents usw.

Selbst die neuesten Versionen von Excel fehlen eine integrierte Funktion für die Ausschreibung von Zahlen, geschweige denn ?ltere Versionen. Dies ist jedoch, wenn Excel wirklich hervorragend ist. Sie k?nnen seine Funktionalit?t immer mit Formeln in allen Kombinationen, VBA-Makros oder Add-Ins von Drittanbietern verbessern.

Im Folgenden finden Sie zwei Ans?tze, um Figuren in W?rter umzuwandeln

Notiz. Wenn Sie nach der Umwandlung von Number-to-Text-Konvertierung suchen, was bedeutet, dass Excel Ihre Nummer als Text behandeln soll, ist dies eine etwas andere Angelegenheit. Zu diesem Zweck k?nnen Sie die Textfunktion oder andere Methoden verwenden, die in der Art und Weise beschrieben werden, wie Zahlen in EXCEL in Text ge?ndert werden k?nnen.

Verwenden des Zellnumber VBA -Makros, um Zahlen in W?rter umzuwandeln

Wie ich bereits bemerkte, hat Microsoft kein Tool für diese Aufgabe integriert. Als sie jedoch erkannten, wie viele Benutzer dies ben?tigten, entwickelten und ver?ffentlichten sie das spezialisierte VBA -Makro auf ihrer Website. Dieses Makro spielt, wie sein Name Spellnumber impliziert. Alle anderen Makros, die ich begegnet bin, stammen aus dem Microsoft -Code.

Sie k?nnen das als "Zellnumber -Formel" bezeichnete Makro finden. Es handelt sich jedoch nicht um eine Formel, sondern eine Makrofunktion, insbesondere eine excel -benutzerdefinierte Funktion (UDF).

Die Option "Zaubernum" kann Dollars und Cent ausdrücken. Wenn Sie eine andere W?hrung ben?tigen, k?nnen Sie " Dollar " und " Cent " durch den Namen Ihrer bevorzugten W?hrung ersetzen.

Wenn Sie mit VBA nicht vertraut sind, finden Sie unten eine Kopie des Code. Wenn Sie es immer noch vorziehen oder keine Zeit haben, dies zu bearbeiten, k?nnen Sie diese L?sung gerne verwenden.

1. ?ffnen Sie die Arbeitsmappe, in der Sie die Zahlen ausschreiben m?chten.

2. Drücken Sie Alt F11, um das visuelle Basis -Editor -Fenster zu ?ffnen.

3. Wenn mehrere Bücher ge?ffnet sind, stellen Sie sicher, dass die gewünschte Arbeitsmappe aktiv ist, indem die Liste der Projekte in der oberen linken Ecke des Herausgebers überprüft wird (eines der Arbeitsbuchelemente wird mit Blau hervorgehoben).

4. Gehen Sie im Editor -Menü zum Einfügen -> Modul .

5. Sie sollten ein Fenster mit dem Namen YourBook - Module1 sehen. W?hlen Sie den gesamten Code im Bild unten aus und fügen Sie ihn in dieses Fenster ein.

   Option explizit 'Hauptfunktion Funktion Zaubernumber (Byval mynumber) Dim Dollar, Cent, Temp Dim Decimalplace, Graf Redim Place (9) als String Place (2) = "Tausend" Ort (3) = "Million" Ort (4) = "Milliarde" Place (5) = "Billion" myNumber = trimal place (myNumber) Dezimaler (myNumber). 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 Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cent Endfunktion Funktion Gethhundert (Byval mynumber) dim als Zeichenfolge, wenn Val (mynumber) = 0 dann beenden Sie die Funktion mynumber = rechts ("000" & myNumber, 3) 'Konvertieren Sie die Hunderte. Wenn mittel (mynumber, 1, 1) "0", dann result = getDigit (Mid (Mynumber, 1, 1)) & "hundert", wenn 'die Zehner und einen Ort umwandeln. Wenn mittel (mynumber, 2, 1) "0", dann result = result & gettens (Mid (mynumber, 2)) else result = result & getDigit (Mid (mynumber, 3)), wenn Gethhunderts = Ergebnisfunktionsfunktion Gettens (TenStext) Dim -Ergebnis als String -Ergebnis = "" Null aus dem tempor?ren Funktionswert aus dem tempor?ren Funktionswert. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19… Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: result = "neuneteen" Fall Anlaste Ende select else 'wenn Wert zwischen 20-99… ausgew?hlen Fall Val (links (TenStext, 1)) Fall 2: Ergebnis = "Twenty" Fall 3: Ergebnis = "drei?ig" Fall 4: Ergebnis = "vierzig" Fall 5: Ergebnis = "Fünfzig" Fall 6: Ergebnis = "sechstie" Fall 7: Ergebnis = "SEVENDY" -Seerzy "-Seerzy" -Seerzy "-Seerzy" -Seerzy "-Seerzy" -Seerzy ". & GetDigit _ (rechts (TenStext, 1)) 'RELINDE EINE SENDE. Ende, wenn Gettens = Ergebnis Endfunktion Funktion getDigit (Ziffer) W?hlen Sie Fall Val (Ziffer) Fall 1: getDigit = "Ein" Fall 2: getDigit = "Zwei" Fall 3: getDigit = "Drei" Fall 4: getDigit = "Four Fall 5: getDigit =" Five "Fall 6: getDigit =" Six "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht "acht" acht " GetDigit = "neun" Fall else: getDigit = "" End -Endfunktion Select -End

6. Drücken Sie Strg S, um die aktualisierte Arbeitsmappe zu speichern. Sie müssen Ihr Arbeitsbuch erneut aufnehmen. Wenn Sie versuchen, die Arbeitsmappe mit einem Makro zu speichern, erhalten Sie die Nachricht " Die folgenden Funktionen k?nnen nicht in makrofreier Arbeitsmappe gespeichert werden ".

   

   Klicken Sie auf Nr. Wenn Sie auf ein neues Dialogfeld sto?en, w?hlen Sie die Option Speichern. Im Feld " Sparen Sie als Typ " W?hlen Sie die Option " Excel Makro-f?hige Arbeitsmappe ".

   

Anwenden des Zellnumber -Makros in Ihren Arbeitsbl?ttern

Jetzt k?nnen Sie die Funktionszaubernummer in Ihren Excel -Dokumenten verwenden. Geben Sie =SpellNumber(A2) in die

Das obige ist der detaillierte Inhalt vonWie man die Zahl in W?rtern in Excel umwandeln. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!