Microsoft entwickelt ein Add -on -Anwendung, die eine Zahlen - auf-Wort -Funktion in Excel erstellen können. Die Funktion konvertiert den numerischen Wert einer Zelle einer Tabelle in Text , zum Beispiel 1,29 $ als einen Dollar und neunundzwanzig Cent erscheinen . Um Zahlen , Wörter in Excel zu konvertieren , muss die Funktion manuell erstellt werden mit dem Visual Basic-Editor , der serienmäßig in allen Office-Anwendungen. Nachdem die Funktion erstellt wurde, kann es durch die Excel-Symbolleiste zugegriffen werden, um Zahlen , Wörter in einer Tabelle konvertieren. Anleitung
Erstellen Sie die Zahlen -to- Wörter Funktion in Excel
1

Öffnen Sie das Programm Microsoft Excel .
2

Halten Sie die Alt-Taste gedrückt und drücken Sie F11 zum Öffnen die Visual Basic -Editor.
3

Wählen Sie "Einfügen" aus der Symbolleiste und klicken Sie auf " Module".
4

Kopieren und Einfügen oder geben Sie den folgenden Microsoft Formel in das Modul :

Option Explicit'Main FunctionFunction SpellNumber (ByVal MyNumber ) Dim Dollars , Cents, TempDim DecimalPlace , CountReDim Platz (9) Wie StringPlace (2) = " Thousand " Platz (3) = "Million " Platz (4) = " Billion " Platz (5) =" Trillion " ' String-Darstellung amount.MyNumber = Trim ( Str ( MyNumber ) ) ' Position der Dezimalstelle 0, wenn none.DecimalPlace = InStr ( MyNumber ,". " ) 'Konvertieren Cent und setzen MyNumber zu Dollar amount.If DecimalPlace > 0 = ThenCents Gettens ( Left ( Mid ( MyNumber , DecimalPlace + 1 ) & _ " 00 ", 2) ) MyNumber = Trim ( Left ( MyNumber , DecimalPlace - 1 )) End IfCount = 1Do Während MyNumber <> "" Temp = GetHundreds ( Right ( MyNumber , 3 )) Wenn Temp < > "" Then Dollars = Temp & Place (Count) & DollarsIf Len ( MyNumber )> 3 ThenMyNumber = Left ( MyNumber , Len ( MyNumber ) - 3 ) ElseMyNumber = " " End IfCount = Count + 1LoopSelect Fall DollarsCase " " Dollars = "Keine Dollars " Case " One" Dollars = " One Dollar " Case ElseDollars = Dollars & " Dollars " End SelectSelect Fall CentsCase " " Cents = " Keine Cents und " Case " One" Cents = " und One Cent " Case ElseCents = "und" & Cents & " Cents " End SelectSpellNumber = Dollars & CentsEnd Funktion

' Wandelt eine Zahl von 100 bis 999 in textFunction GetHundreds (ByVal MyNumber ) Dim Ergebnis Als StringIf Val ( MyNumber ) = 0 Then Exit FunctionMyNumber = Right ( "000" & MyNumber , 3) ' Konvertieren die Hunderte place.If Mid ( MyNumber , 1, 1 ) < > "0" = ThenResult GetDigit ( Mid ( MyNumber , 1, 1 ) ) & " Hundred " End If ' Konvertieren Sie die Zehner und place.If Mid ( MyNumber , 2, 1 ) < > "0" = Ergebnis ThenResult & Gettens ( Mid ( MyNumber , 2) ) = Ergebnis ElseResult & GetDigit ( Mid ( MyNumber , 3 )) End Function IfGetHundreds = ResultEnd

' Wandelt eine Zahl von 10 bis 99 in text.Function Gettens ( TensText ) Dim Ergebnis Als StringResult = ""' Null heraus die temporäre Funktion Wert.Wenn Val ( Left ( TensText , 1)) = 1 Then ' Wenn der Wert zwischen 10-19 ... Select Case Val ( TensText ) Fall 10: Ergebnis = "Ten " Case 11: Ergebnis = " Eleven " Case 12: Ergebnis = "Zwölf " Case 13: Ergebnis = " Thirteen " Case 14: Ergebnis = " Vierzehn " Case 15 : Ergebnis = " Fifteen " Case 16: Ergebnis = "Sixteen " Case 17: Ergebnis = " Seventeen " Case 18: Ergebnis = "Achtzehn " Case 19: Ergebnis = " Nineteen " Case ElseEnd SelectElse ' Wenn der Wert zwischen 20-99 ... Select Case Val ( Left ( TensText , 1)) Fall 2: Ergebnis = " Twenty" Fall 3: Ergebnis = "Dreißig " Case 4: Ergebnis = "Forty " Fall 5: Ergebnis = "Fifty " Case 6 : Ergebnis = " Sixty " Case 7: Ergebnis = "Siebzig " Case 8: Ergebnis = "Achtzig " Case 9 : Ergebnis = " Ninety " Case ElseEnd selectResult = Ergebnis & GetDigit _ ( Right ( TensText , 1)) ' Abrufen diejenigen place.End IfGetTens = ResultEnd Funktion

' Wandelt eine Zahl von 1 bis 9 in text.Function GetDigit ( Digit ) Select Case Val ( Digit ) Fall 1: GetDigit = "One" Fall 2: GetDigit = " Zwei "Case 3: GetDigit =" Drei "Case 4: GetDigit =" Four " Fall 5: GetDigit = " Five " Fall 6: GetDigit = " Six "Case 7: GetDigit = " Seven " Fall 8: GetDigit =" Eight " Fall 9 : GetDigit = "Nine" Case Else : . GetDigit = " " End Function SelectEnd
5

Wählen SpellNumber von der Modul- Pull-Down- Menü
Ändern Zahlen zu Wörter in einem Spreadsheet
6

Öffnen einer Excel-Tabelle.
7

Markieren Sie die Zelle , in der Sie , um Zahlen in Text zu konvertieren , indem Sie auf die Zelle.
Seite 8

Klicken Sie auf Einfügen /Funktion einfügen Registerkarte (fx) .
9

Klicken Sie auf " Benutzerdefiniert" in der linken Menü und klicken Sie auf " SpellNumber " in der rechten Seite des Menüs .
10

Geben Sie die Nummer , die Sie konvertiert Worte.
11

Klicken Sie auf " OK". Die Nummer wird in der Zelle als Text angezeigt .