|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programvara
  • Adobe Illustrator
  • animation Software
  • antivirusprogram
  • ljudprogram
  • Säkerhetskopiera data
  • Bränn CD-skivor
  • Bränn DVD
  • Data Compression
  • Database Software
  • Desktop Publishing
  • Desktop Video
  • Digital Video Software
  • Drupal
  • Educational Software
  • Engineering Software
  • Filtillägg Typer
  • Financial Software
  • Freeware , Shareware & Abandonware
  • GIMP
  • Graphics Software
  • Home Recording Software
  • Microsoft Access
  • Microsoft Excel
  • Microsoft Publisher
  • Microsoft Word
  • Open Source Code
  • Andra datorprogram
  • PC-spel
  • Photoshop
  • Portable Document Format
  • PowerPoint
  • presentationsprogram
  • Produktivitet Software
  • quicktime
  • Remote Desktop Management
  • SQL Server
  • Skype
  • Programvara betaversioner
  • Programvara Konsulter
  • Software Development Companies
  • Software Licensing
  • Spreadsheets
  • Skatt förberedelse programvara
  • Utility Software
  • Web Clip Art
  • Windows Media Player
  • Ordbehandlingsprogram
  • * Dator Kunskap >> Programvara >> Microsoft Access >> Content

    Konvertera siffror till ord i MS Excel

    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 .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man använder Formulärkontroll Scrollbar i Excel
    ·Introduktion till Microsoft Excel Basic
    ·Varför Håll Excel 2003 Lägga till en decimal när ja…
    ·Hur man beräknar Black - Scholes Alternativ Använda E…
    ·Hur man gör en graf i Excel med två separata X Bars
    ·Hur du formaterar en Style diagram linje i Excel
    ·Hur lägger jag år i ett Excel-diagram
    ·Hur Rita en sekundär axel i Microsoft Excel
    ·Hur du använder Excel Organisationsschema
    ·Hur man skapar ett Excel Plan kalkylblad Lektion
    Utvalda artiklarna
    ·Hur till Återvinna en borttagna Partition Table
    ·Hur man skapar en Flyer WordPerfect
    ·Hur man skapar en musik databas med Microsoft Access
    ·Hur Rikta en punkt för både vänster och höger margi…
    ·Vad betyder Användaren hittades inte på Skype Mean
    ·Hur man skickar en låt från Windows Media Player till…
    ·Hur konvertera MKV -filer
    ·Hur man skapar ett spöke bild eller Backup av en hård…
    ·Konvertera Tid & Datum till en 24 - timmars format i en…
    ·Hur Kopiera LP Album till en dator
    Copyright © Dator Kunskap http://www.dator.xyz