Microsoft utvecklat ett add -on program som kommer att skapa ett tal -till- ord funktionen i Excel . Funktionen kommer att omvandla det numeriska värdet av ett kalkylblad i text , till exempel , kommer $ 1,29 visas som en dollar och tjugonio cent . För att konvertera tal till ord i Excel , behöver den funktion som ska skapas manuellt med hjälp av Visual Basic Editor , som är standard i alla Office-program . När funktionen har skapats , kan den nås via Excel verktygsfältet att konvertera tal till ord i ett kalkylblad . Instruktioner
Skapa Numbers -till- ord funktionen i Excel
1
Öppna Microsoft Excel -program .
2
Håll ner Alt -tangenten och tryck på F11 för att öppna Visual Basic Editor .
3
Välj " Insert " på verktygslisten och klicka på " modul . "
4
Kopiera och klistra eller skriv följande Microsoft formel i modulen :
Option Explicit'Main FunctionFunction SpellNumber ( ByVal myNumber ) Dim dollar , Cents , TempDim DecimalPlace , CountReDim Place ( 9 ) Eftersom StringPlace ( 2 ) = " tusen " Place ( 3 ) = " Million " Place ( 4 ) = " Billion " Place ( 5 ) = " Trillion " ' String representation av amount.MyNumber = Trim ( Str ( myNumber ) ) " Placering av decimal 0 om none.DecimalPlace = InStr ( myNumber , " . " ) ' Konvertera cent och ställa myNumber till dollarn amount.If DecimalPlace > 0 ThenCents = GetTens ( Vänster ( Mid ( myNumber , DecimalPlace + 1 ) & _ " 00 " , 2 ) ) myNumber = Trim ( Vänster ( myNumber , DecimalPlace - 1 ) ) End IfCount = 1Do Medan myNumber < > " " Temp = GetHundreds ( Right ( myNumber , 3 ) ) Om Temp < > "" Då Dollars = Temp & Place ( Count ) & DollarsIf Len ( myNumber ) > 3 ThenMyNumber = Vänster ( myNumber , Len ( myNumber ) - 3 ) ElseMyNumber = " " End IfCount = Count + 1LoopSelect Case DollarsCase " " dollar = " Inga Dollars " Case " One " Dollars = " One dollar " Case ElseDollars = dollar & " Dollars " End SelectSelect Case CentsCase " " cent = "och ingen Cents " Case " One " cent = " och en cent " Case ElseCents = " och " & Cents & " Cents " End SelectSpellNumber = Dollars & CentsEnd Funktion
" Konverterar ett nummer 100-999 i textFunction GetHundreds ( ByVal myNumber ) Dim Result Som StringIf Val ( myNumber ) = 0 Avsluta sedan FunctionMyNumber = Höger ( " 000 " & myNumber , 3 ) " Konvertera de hundratals place.If Mid ( myNumber , 1 , 1 ) < > " 0 " ThenResult = GetDigit ( Mid ( myNumber , 1 , 1 ) ) & " hundra " End If ' Konvertera tiotal och ental place.If Mid ( myNumber , 2 , 1 ) < > " 0 " ThenResult = Resultat & GetTens ( Mid ( myNumber , 2 ) ) ElseResult = Resultat & GetDigit ( Mid ( myNumber , 3 ) ) Avsluta IfGetHundreds = ResultEnd Funktion
" Konverterar ett tal mellan 10 och 99 in i text.Function GetTens ( TensText ) Dim Result Som StringResult = " " ' Null ut tillfälliga funktionen värde.Om Val ( Vänster ( TensText , 1 ) ) = 1 Then' Om värdet mellan 10-19 ... Välj Case Val ( TensText ) mål 10 : Resultat = " Ten " mål 11 : Resultat = " Elva " mål 12 : Resultat = " Twelve " mål 13 : Resultat = " Thirteen " mål 14 : Resultat = " Fjorton " mål 15 : Resultat = " Femton " mål 16 : Resultat = " Sixteen " mål 17 : Resultat = " Seventeen " mål 18 : Resultat = " Arton " mål 19 : Resultat = " Nineteen " Case ElseEnd SelectElse ' Om värdet mellan 20-99 ... Välj Case Val ( Vänster ( TensText , 1 ) ) mål 2 : Resultat = " Tjugo " mål 3 : Resultat = " Trettio " mål 4 : Resultat = " Forty " mål 5 : Resultat = " Fifty " Case 6 : Resultat = " Sixty " mål 7 : Resultat = " Seventy " mål 8 : Resultat = " Åttio " mål 9 : Resultat = " Ninety " Case ElseEnd SelectResult = Resultat & GetDigit _ ( Right ( TensText , 1 ) ) ' Hämta kära place.End IfGetTens = ResultEnd Funktion
" Konverterar ett tal mellan 1 och 9 i text.Function GetDigit ( Digit ) Select Case Val ( Digit ) mål 1 : GetDigit = " One " mål 2 : GetDigit = " två " mål 3 : GetDigit = " Tre " mål 4 : GetDigit = " Four " mål 5 : GetDigit = " Five " mål 6 : GetDigit = " Sex " mål 7 : GetDigit = " Seven " mål 8 : GetDigit = " Eight " mål 9 : GetDigit = " Nine " Case Else : . GetDigit = " " End SelectEnd Function
5
Välj SpellNumber från modulens rullgardinsmenyn
Byta Numbers ord i ett kalkylblad
6
Öppna ett Excel-ark .
7
Markera den cell där du vill konvertera tal till text genom att klicka på cellen .
8
Klicka på Paste /Infoga funktion flik ( fx ) .
9
Klicka på " User Defined " i den vänstra menyn och klicka på " SpellNumber " i högermenyn .
10
Skriv in numret som du vill konverteras till ord .
11
Klicka på " OK . " Numret visas i cellen som text .