Konvertere tall til ord

Viktig: Denne artikkelen er maskinoversatt, se ansvarsfraskrivelsen. Du finner den engelske versjonen av artikkelen her som referanse.

Excel 2013 og Excel 2016 har ikke en standardfunksjon som viser tall som engelske ord i en regnearkcelle, men du kan legge til denne funksjonaliteten ved å lime inn SpellNumber funksjonskode i et modulark. Denne funksjonen kan du konvertere kroner og cent beløp ord.

Hvis du vil konvertere numeriske verdier til tekstformat uten å vise dem som ord, bruke tekst-funksjonen i stedet.

I denne artikkelen

Opprette funksjonen SpellNumber for å konvertere tall til ord

  1. Bruk hurtigtasten Alt + F11 for å åpne Visual Basic-redigering.

    Merknad: Du kan også åpne Visual Basic-redigering ved å vise kategorien Utvikler på båndet.

  2. Klikk kategorien Sett inn, og klikk modul.

    Klikk modul på Sett inn-menyen.
  3. Kopier følgende kodelinjer.

    Merknad: Kjent som en makro-funksjonen, automatiserer denne koden oppgaven over å konvertere tall til tekst i hele regnearket.

    Alternativet eksplisitt

    ' Hoved-funksjonen

    Funksjonen SpellNumber (ByVal MyNumber)

    Demp dollar, øre, Temp

    Dim DecimalPlace, antall

    ReDim Place(9) som streng

    Place(2) = "Tusen"

    Place(3) = "millioner"

    Place(4) = "Billion"

    Place(5) = "billion"

    ' Streng fremstilling av beløp.

    MyNumber = Trim(Str(MyNumber))

    ' Plasseringen av desimal 0 Hvis ikke noe.

    DecimalPlace = InStr (MyNumber, ".")

    ' Konvertere øre, og angi MyNumber til valuta.

    Hvis DecimalPlace > 0 deretter

    Øre = GetTens (venstre (Mid (MyNumber, DecimalPlace + 1) & _ "00"; 2))

    MyNumber = TRIMME (til venstre (MyNumber, DecimalPlace - 1))

    Avslutte Hvis

    Antall = 1

    Når du MyNumber <> ""

    Temp = GetHundreds (til høyre (MyNumber, 3))

    Hvis Temp <> "" deretter dollar = Temp & Place(Count) & dollar

    Hvis Len(MyNumber) > 3 deretter

    MyNumber = venstre (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    Avslutte Hvis

    Antall = antall + 1

    Sløyfe

    Velg bokstavtype dollar

    Saken ""

    Dollar = "Ingen dollar"

    Saken "Én"

    Dollar = "Én valuta"

    Annet sak

    Dollar = dollar & "Dollar"

    Avslutte Velg

    Velg bokstavtype øre

    Saken ""

    Øre = "og ingen øre"

    Saken "Én"

    Øre = "og én Cent"

    Annet sak

    Øre = "og" & øre & "Øre"

    Avslutte Velg

    SpellNumber = kroner og øre

    Slutt (funksjon)

    ' Konverterer et tall fra 100-999 til tekst

    Funksjonen GetHundreds (ByVal MyNumber)

    Dim resultatet som en streng

    Hvis Val(MyNumber) = 0 deretter Avslutt-funksjonen

    MyNumber = høyre ("000" & MyNumber, 3)

    ' Konverter hundrevis Plasser.

    Hvis Mid (MyNumber, 1, 1) <> "0" deretter

    Resultatet = GetDigit (Mid (MyNumber, 1, 1)) & "hundre"

    Avslutte Hvis

    ' Konvertere sted ti og filer.

    Hvis Mid (MyNumber, 2, 1) <> "0" deretter

    Resultatet = resultatet & GetTens (Mid (MyNumber, 2))

    Else

    Resultatet = resultatet & GetDigit (Mid (MyNumber, 3))

    Avslutte Hvis

    GetHundreds = resultat

    Slutt (funksjon)

    ' Konverterer et tall fra 10 til 99 til tekst.

    Funksjonen GetTens(TensText)

    Dim resultatet som en streng

    Resultatet = "" ' Null ut verdien for midlertidige funksjonen.

    Hvis Val (til venstre (TensText, 1)) = 1 Then ' Hvis verdi mellom 10-19...

    Velg bokstavtype Val(TensText)

    Tilfelle 10: Føre = "Ti"

    Eksempel 11: Resultat = "Eleven"

    Tilfelle 12: Føre = "Tolv"

    Tilfelle 13: Føre = "Thirteen"

    Tilfelle 14: Føre = "Fourteen"

    Tilfelle 15: Føre = "Femten"

    Tilfelle 16: Føre = "Seksten"

    Tilfelle 17: Føre = "Seventeen"

    Tilfelle 18: Føre = "Eighteen"

    Tilfelle 19: Føre = "Nineteen"

    Annet sak

    Avslutte Velg

    Annet "Hvis verdi mellom 20 99...

    Velg bokstavtype Val (til venstre (TensText, 1))

    Eksempel 2: Resultat = "Twenty"

    Tilfelle 3: Resultat = "Thirty"

    Eksempel 4: Resultat = "Forty"

    Eksempel 5: Resultat = "Fifty"

    Eksempel 6: Resultat = "Sixty"

    Eksempel 7: Resultat = "Sytti"

    Eksempel 8: Resultat = "Eighty"

    Eksempel 9: Resultat = "Ninety"

    Annet sak

    Avslutte Velg

    Resultatet = resultat & GetDigit _

    (Til høyre (TensText, 1)) ' Hente dem sted.

    Avslutte Hvis

    GetTens = resultat

    Slutt (funksjon)

    ' Konverterer et tall fra 1 til 9 til tekst.

    Funksjonen GetDigit(Digit)

    Velg bokstavtype Val(Digit)

    Eksempel 1: GetDigit = "Én"

    Eksempel 2: GetDigit = "To"

    Tilfelle 3: GetDigit = "Tre"

    Eksempel 4: GetDigit = "Fire"

    Eksempel 5: GetDigit = "Fem"

    Eksempel 6: GetDigit = "Seks"

    Eksempel 7: GetDigit = "Sju"

    Eksempel 8: GetDigit = "Åtte"

    Eksempel 9: GetDigit = "Ni"

    Annet tilfelle: GetDigit = ""

    Avslutte Velg

    Slutt (funksjon)

  4. Lime inn kodelinjer i den Module1 (kode) boksen.

    Kode som er limt inn i Module1 (kode)-boksen.
  5. Klikk fil, og klikk Lukk og returner til Microsoft Excel. Funksjonen SpellNumber er nå klar til bruk.

    Merknad: Denne funksjonen fungerer bare for den gjeldende Excel-filen du har åpnet. Hvis du vil bruke denne funksjonen i en annen Excel arbeidsbok, må du Gjenta trinnene for å kopiere og lime inn koden i denne filen.

Til toppen av siden

Bruk funksjonen SpellNumber i individuelle celler

  1. Skriv inn formelen = SpellNumber (verdi) i cellen der du vil vise et skriftlig tall, erstatte verdien med antallet valg.

  2. Trykk Enter på tastaturet.

    Hvis du skriver =SpellNumber(22.50), bør for eksempel cellen lese Tjue to kroner og 50 øre.

    Tips!: Hvis du vil konvertere tall til tekst i en egen celle, Erstatt den numeriske verdien med en cellereferanse i SpellNumber formelen. Skriv for eksempel =SpellNumber(A1) for å vise skrevne verdien i celle A1.

Til toppen av siden

Lagre arbeidsboken SpellNumber (funksjon)

Excel kan ikke lagre en arbeidsbok med makrofunksjoner i formatet standard uten makroer arbeidsbok. Hvis du klikker fil > Lagre. Det åpnes en dialogboks for VB-prosjekt. Klikk Nei.

I dialogboksen VB project klikker du Nei.

Du kan lagre filen som en Makroaktivert Excel-mal i filen beholdes i det gjeldende filformatet.

  1. Klikk Fil > Lagre som.

  2. Klikk rullegardinmenyen Filtype, og velg Excel Macro-Enabled Template.

    Velg Makroaktivert Excel-mal.
  3. Klikk Lagre.

Til toppen av siden

Merknad: Ansvarsfraskrivelse for maskinoversettelse: Denne artikkelen er oversatt av et datasystem i stedet for en oversetter. Microsoft tilbyr disse maskinoversettelsene slik at brukere som ikke snakker engelsk, får tilgang til innhold om Microsoft-produkter, -tjenester og –teknologier. Ettersom artikkelen er maskinoversatt, kan den inneholde feil i vokabular, syntaks eller grammatikk.

Se også

TEKST (funksjon)

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×