Microsoft udviklet en add-on program, der vil skabe et tal -til- ord funktion i Excel. Funktionen vil omdanne den numeriske værdi af et regneark celle til tekst , for eksempel, vil $ 1,29 fremstå som en dollar og ni og tyve cents. At konvertere tal til ord i Excel , funktionen skal oprettes manuelt ved hjælp af Visual Basic Editor, som leveres som standard i alle Office-programmer. Når funktionen er oprettet, kan det tilgås via Excel værktøjslinjen til at konvertere tal til ord i et regneark . Instruktioner
Oprettelse numrene -til- Words funktion i Excel
1
Åbn Microsoft Excel -programmet.
2
Hold Alt-tasten nede og trykke på F11 for at åbne Visual Basic Editor .
3
Vælg "Indsæt" fra de vigtigste værktøjslinje, og klik på " Modul ".
4
Kopier og indsæt eller skriv følgende Microsoft formlen i modulet : Hej
Option Explicit'Main FunctionFunction SpellNumber ( ByVal mynumber ) Dim Dollars, Cents , TempDim DecimalPlace , CountReDim Place (9) Da StringPlace (2) = " Tusind " sted (3) = " Million " sted (4) =" Billion " Place (5) =" Trillion " ' String repræsentation af amount.MyNumber = Trim ( Str ( mynumber ) )" holdning decimal 0, hvis none.DecimalPlace = InStr ( mynumber " . " ) » Convert cents og sæt mynumber til dollaren amount.If DecimalPlace > 0 ThenCents = GetTens ( Venstre ( Mid ( mynumber , DecimalPlace + 1) & _ " 00 " , 2) ) mynumber = Trim (Venstre ( mynumber , DecimalPlace - 1 ) ) End IfCount = 1Do Mens mynumber < > " " Temp = GetHundreds ( Højre ( mynumber , 3) ) Hvis Temp < > " " og derefter Dollars = Temp & Place ( Count ) & DollarsIf Len ( mynumber ) > 3 ThenMyNumber = Venstre ( mynumber , Len ( mynumber ) - 3) ElseMyNumber = "" End IfCount = Count + 1LoopSelect Case DollarsCase "" Dollars = "Ingen Dollars " Case " One" Dollars = " One Dollar " Case ElseDollars = dollars & " dollars " Slut SelectSelect Case CentsCase " " Cents = " og ingen Cents " Case " One " Cents = " og One Cent " Case ElseCents = " og" & Cents & " Cents " Slut SelectSpellNumber = dollars & CentsEnd Function
' Konverterer et tal fra 100 til 999 i textFunction GetHundreds ( ByVal mynumber ) Dim resultat som StringIf Val ( mynumber ) = 0 Then Exit FunctionMyNumber = Right ( "000 " & mynumber , 3) ' Convert de hundredvis sted.Hvis Mid ( mynumber , 1, 1 ) < > "0" ThenResult = GetDigit ( Mid ( mynumber , 1, 1 ) ) & " Hundred " End If ' Convert tierne og ettaller sted.Hvis Mid ( mynumber , 2, 1 ) < > "0" ThenResult = Result & GetTens ( Mid ( mynumber , 2) ) ElseResult = Resultat & GetDigit ( Mid ( mynumber , 3) ) End IfGetHundreds = ResultEnd Function
' Konverterer et tal fra 10 til 99 i text.Function GetTens ( TensText ) Dim resultat som StringResult = "" ' Null out midlertidig funktion værdi.Hvis Val ( Left ( TensText , 1 ) ) = 1 Then ' Hvis værdien mellem 10-19 ... Select Case Val ( TensText ) Sag 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 = " Nitten " Case ElseEnd SelectElse ' Hvis værdi mellem 20-99 ... Select Case Val ( Left ( TensText , 1 ) ) Case 2 : Resultat = " Tyve " Case 3 : Resultat = " Thirty " Case 4 : Resultat = " Fyrre " Case 5 : Resultat = " Fifty " Case 6 : Resultat = " Sixty " Case 7 : Resultat = " Seventy " Case 8 : Resultat = "Firs " Case 9 : Resultat = " Ninety " Case ElseEnd SelectResult = Result & GetDigit _ ( Højre ( TensText , 1 ) ) " Hent dem place.End IfGetTens = ResultEnd Function
' Konverterer et tal fra 1 til 9. ind text.Function GetDigit ( Digit ) Select Case Val ( Digit ) Sag 1: GetDigit = " One" Case 2: GetDigit = " to "Case 3: GetDigit =" Three " Case 4 : GetDigit =" Four " Case 5: GetDigit =" Five "Case 6: GetDigit = " Seks "Case 7: GetDigit =" Seven "Case 8: GetDigit =" Eight " sag 9: GetDigit = " Nine " Case Else : . GetDigit = "" End SelectEnd Function
5
Vælg SpellNumber fra modulets rullemenuen
Ændring numre for at ord i et regneark
6
Åbn et Excel-regneark .
7
Vælg den celle, hvor du ønsker at konvertere tal til tekst ved at klikke på cellen.
8
Klik på Sæt /Indsæt funktion fane ( FX) .
9
Klik på " Brugerdefineret " i menuen til venstre , og klik på " SpellNumber " i menuen til højre .
10
Indtast det nummer, du vil konverteret til ord.
11
Klik på " OK". Nummeret vises i cellen som tekst.