Microsoft utviklet en add -on program som vil skape et tall -til- ord -funksjonen i Excel. Funksjonen vil konvertere den numeriske verdien av et regneark celle inn i teksten , for eksempel vil $ 1,29 fremstå som en dollar og tjueni cent . Å konvertere tall til ord i Excel , må funksjonen som skal opprettes manuelt ved hjelp av Visual Basic-redigering , som leveres som standard i alle Office-programmer . Etter at funksjonen har blitt opprettet, kan den nås via Excel verktøylinjen for å konvertere tall til ord i et regneark . Instruksjoner
Opprette tall -til- Words Funksjon i Excel
en

Åpne Microsoft Excel -programmet.
2

Hold nede Alt-tasten og trykk på F11 for å åpne Visual Basic-redigering .
3

Velg " Insert" fra hoved verktøylinjen, og klikk " Module ".
4

Kopier og lim inn eller skriv inn følgende Microsoft formelen inn i modulen : en

Option Explicit'Main FunctionFunction SpellNumber ( ByVal MyNumber ) Dim dollar, Cents , TempDim DecimalPlace , CountReDim sted ( 9 ) Som StringPlace ( 2 ) = " Thousand " sted (3 ) = "Million " Place ( 4 ) = " Billion " Place ( 5 ) = " billion " " String representasjon av amount.MyNumber = Trim ( Str ( MyNumber ) ) ' posisjon desimal 0 hvis none.DecimalPlace = InStr ( MyNumber , " . " ) "Konverter cent og sette MyNumber til dollar amount.If DecimalPlace > 0 ThenCents = GetTens ( Venstre ( Mid ( MyNumber , DecimalPlace + 1 ) & _" 00 " , 2 ) ) MyNumber = Trim ( Venstre ( MyNumber , DecimalPlace - 1 ) ) End IfCount = 1Bruk Mens MyNumber < > " " Temp = GetHundreds ( Høyre ( MyNumber , 3 ) ) Hvis Temp < > " " Then Dollars = Temp & Place ( Count ) og DollarsIf Len ( MyNumber ) > 3 ThenMyNumber = Venstre ( MyNumber , Len ( MyNumber ) - 3 ) ​​ElseMyNumber = "" End IfCount = Count + 1LoopSelect sak DollarsCase " " Dollars = " Ingen Dollars " Case " One" Dollars = " One Dollar " Case ElseDollars = dollar og " Dollars " End SelectSelect sak CentsCase " " Cents = " og ingen Cents " case " One " Cents = " og ett øre " Case ElseCents = " og" & Cents og " Cents " End SelectSpellNumber = Dollars & CentsEnd Funksjon

' Konverterer et tall 100-999 inn textFunction GetHundreds ( ByVal MyNumber ) Dim resultatet som StringIf Val ( MyNumber ) = 0 Then Exit FunctionMyNumber = Høyre ( " 000 " & MyNumber , 3 ) "Konverter hundrevis stedet.Hvis Mid ( MyNumber , 1 , 1 ) < > " 0 " ThenResult = GetDigit ( Mid ( MyNumber , 1 , 1 ) ) & " Hundred " End If ' Konverter titalls og enere stedet.Hvis Mid ( MyNumber , 2 , 1 ) < > " 0 " ThenResult = Result & GetTens ( Mid ( MyNumber , 2 ) ) ElseResult = Result & GetDigit ( Mid ( MyNumber , 3 ) ) End IfGetHundreds = ResultEnd Funksjon

' Konverterer et tall 10-99 i text.Function GetTens ( TensText ) Dim resultatet som StringResult = "" ' Null ut den midlertidige funksjon verdien.Hvis Val ( Venstre ( TensText , 1 ) ) = 1 Then ' Hvis verdi mellom 10-19 ... Select sak Val ( TensText ) sak 10 : Resultat = " Ten " Case 11 : Resultat = " Eleven " Case 12 : Resultat = " Twelve " Case 13 : Resultat = " Thirteen " Case 14 : Resultat = " Fjorten " Case 15 : Resultat = " Fifteen " Case 16 : Resultat = " Sixteen " Case 17 : Resultat = " Seventeen " Case 18 : Resultat = " Atten " Case 19 : Resultat = " Nineteen " Case ElseEnd SelectElse ' Hvis verdi mellom 20-99 ... Select sak Val ( Venstre ( TensText , 1 ) ) sak 2 : Resultat = " Twenty " Case 3 : Resultat = " Thirty " Case 4 : Resultat = " Forty " Case 5 : Resultat = " Femti " Case 6 : Resultat = " Sixty " Case 7 : Resultat = "Sytti " Case 8 : Resultat = "Åtti " Case 9 : Resultat = " Ninety " Case ElseEnd SelectResult = Result & GetDigit _ ( Høyre ( TensText , 1 ) ) ' Hent de place.End IfGetTens = ResultEnd Funksjon

' Konverterer et tall fra 1 til 9 inn text.Function GetDigit ( Digit ) Velg sak Val ( Digit ) sak 1 : GetDigit = " One" tilfelle 2 : GetDigit = " to "Case 3 : GetDigit = " Tre "Case 4 : GetDigit =" Fire "Case 5 : GetDigit =" Fem "Case 6 : GetDigit =" Six " sak 7 : GetDigit =" Seven "Case 8 : GetDigit = " Eight " sak 9 : GetDigit = " Nine " Case Else : . GetDigit = "" End SelectEnd Function
5

Velg SpellNumber fra modulen rullegardinmenyen
Endre Numbers til ord i et regneark
6

Åpne et Excel-regneark .
7

Velg den cellen som du vil konvertere tall til tekst ved å klikke på cellen .
side 8

Klikk på Lim /Sett inn funksjon kategorien ( fx ) .
9

Klikk på " User Defined " i menyen til venstre, og klikk " SpellNumber " i høyre meny .
10

Skriv inn nummeret du vil konverteres til ord .
11

Klikk "OK". Tallet vil vises i cellen som tekst.