Wie konvertiert man einen numerischen Wert in ein englisches Wort?

Die Office-Software Excel bietet Benutzern die Möglichkeit, verschiedene Vorgänge an den Daten in den Feldern des Arbeitsblatts auszuführen. Eine benutzerdefinierte Funktion kann verwendet werden, um einen numerischen Wert in ein englisches Wort umzuwandeln . Kenntnisse über Programmierkonzepte wie Funktionen und Schleifentechniken helfen beim Verstehen und Schreiben der Funktionen, sind jedoch nicht unbedingt erforderlich. Im Internet stehen zahlreiche Ressourcen zur Verfügung, mit denen Funktionen zum Konvertieren eines numerischen Werts in ein englisches Wort heruntergeladen und kostenlos in die Excel-Arbeitsblätter aufgenommen werden können.

Um einen numerischen Wert in ein englisches Wort umzuwandeln, benötigen Sie folgende Formel :

Dies ist ein Beitrag aus dem Forum, danke an rajput391

Unten finden Sie den Code, den Sie in Ihre Excel-Tabelle eingeben müssen:

1. Drücken Sie Alt + F11> Kopieren und in Modul einfügen (wenn das Modul Modul einfügen nicht anzeigt, klicken Sie in der Menüleiste auf Einfügen> Modul).

2. Alt + Q Code speichern und zur Excel-Tabelle zurückkehren

3. Einfügen> Funktion> Benutzerdefiniert> A1 oder relevante Zelle

 Funktionswörter (Abb., Optionaler Punkt = "Punkt") Als Zeichenfolge Dim-Ziffer (14) Als Ganzzahl Alpha = Array ("", "Eins", "Zwei", "Drei", "Vier", "Fünf", "Sechs" ", " Sieben ", " Acht ", " Neun ", " Zehn ", " Elf ", " Zwölf ", " Dreizehn ", " Vierzehn ", " Fünfzehn ", " Sechzehn ", " Siebzehn ", " Achtzehn ", "Neunzehn", "Zwanzig", "Dreißig", "Vierzig", "Fünfzig", "Sechzig", "Siebzig", "Achtzig", "Neunzig" figi = Trim (StrReverse (Str (Int (Abs (fig) )))) For i = 1 To Len (figi) digit (i) = Mid (figi, i, 1) Next For i = 2 To Len (figi) Step 3 Wenn digit (i) = 1 Dann digit (i) = Ziffer (i - 1) + 10: Ziffer (i - 1) = 0 Andernfalls: Wenn Ziffer (i)> 1, dann Ziffer (i) = Ziffer (i) + 18 ) Wenn (i Mod 3) = 0 und Ziffer (i)> 0, dann Wörter = "hundert" und Wörter Wenn (i Mod 3) = 1 und Ziffer (i) + Ziffer (i + 1) + Ziffer (i + 2 )> 0 Dann _ Wörter = Wählen Sie (i / 3, "Tausend", "Million", "Milliarde") & Wörter Wörter = Trimmen (Alpha (Ziffer (i)) & "" & Wörter) Weiter Wenn fig Int (fig ) Dann figc = StrReverse (figi) Wenn figc = 0 Dann figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "") words = Trim (Wörter & "" & point) For i = 1 To Len (figd) If Val (Mid (figd, i, 1 ))> 0 Dann wörter = wörter & "" & alpha (Mitte (figd, i, 1)) Sonst: wörter = wörter & "null" ende wenn nächstes ende wenn fig <0 dann wörter = "negativ" & wörter ende Funktion