Pretvaranje brojeva u riječi

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Excel 2013 i Excel 2016 nemaju zadani funkcija koja se prikazuje brojeve kao engleskih riječi u ćeliji proračunske tablice, ali možete dodati tu mogućnost lijepljenjem kod funkcije SpellNumber u list modula. Ova funkcija omogućuje pretvaranje dolar i cent iznosa riječi.

Ako želite pretvoriti numeričke vrijednosti u tekstnom obliku bez prikazivanja ih kao riječi, koristite funkciju TEXT .

Sadržaj članka

Stvaranje funkciju SpellNumber za pretvaranje broja riječi

  1. Korištenje tipkovnih prečaca, Alt + F11 da biste otvorili Visual Basic Editor.

    Napomena : Visual Basic Editor možete pristupiti i tako da prikazuje se kartica programiranje na vrpci.

  2. Kliknite karticu Umetanje , a zatim kliknite Module.

    Na izborniku Umetanje kliknite Module.
  3. Kopirajte sljedeće retke koda.

    Napomena : Poznati kao Funkcije makronaredbi, kod automatizira zadatak pretvaranje brojeva u tekst u proračunskoj tablici.

    Mogućnost eksplicitnih

    "Glavni (funkcija)

    Funkcija SpellNumber (ByVal MyNumber)

    Zatamni dolara, valuta, Temp

    Dim DecimalPlace, Count

    ReDim Place(9) kao niz

    Place(2) = "Thousand"

    Place(3) = "milijuna"

    Place(4) = "Billion"

    Place(5) = "Trillion"

    ' Niza predstavljanje iznos.

    MyNumber = Trim(Str(MyNumber))

    "Položaj decimalno mjesto 0 Ako ništa.

    DecimalPlace = InStr (MyNumber, ".")

    "Pretvoriti centi i postavite MyNumber iznos u dolarima.

    Ako DecimalPlace > 0 tada

    Centi = GetTens (lijevo (Mid (MyNumber, DecimalPlace + 1) & _ "00"; 2))

    MyNumber = Trim (lijevo (MyNumber, DecimalPlace - 1))

    Završavanje ako

    Count = 1

    Iako MyNumber <> ""

    Temp = GetHundreds (desno (MyNumber 3))

    Ako Temp <> "" zatim dolarima = Temp & Place(Count) & dolara

    Ako Len(MyNumber) > 3 zatim

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

    Else

    MyNumber = ""

    Završavanje ako

    Count = Count + 1

    Petlja

    Odaberite predmet dolarima

    Slova ""

    Dolarima = "Bez dolarima"

    Slova "Jedan"

    Dolarima = "Jedan dolar"

    Slučaj još

    Dolarima = dolarima & "Dolarima"

    Odaberite Završi

    Odaberite predmet centi

    Slova ""

    Centi = "i ne centi"

    Slova "Jedan"

    Centi = "i jedan Cent"

    Slučaj još

    Centi = "i" & centi & "Centi"

    Odaberite Završi

    SpellNumber = dolarima & centi

    Kraj (opis funkcije)

    "Pretvara broj iz 100 999 u tekst

    Funkcija GetHundreds (ByVal MyNumber)

    Dim rezultat kao niz

    Ako Val(MyNumber) = 0 zatim izađite iz (opis funkcije)

    MyNumber = Right ("000" & MyNumber, 3)

    "Pretvori u nekoliko stotina postavite.

    Ako Mid (MyNumber, 1, 1) <> "0" zatim

    Rezultat = GetDigit (Mid (MyNumber, 1, 1)) & "stotinu"

    Završavanje ako

    "Pretvoriti tens i onih lokalno.

    Ako Mid (MyNumber, 2, 1) <> "0" zatim

    Rezultat = rezultat & GetTens (Mid (MyNumber, 2))

    Else

    Rezultat = rezultat & GetDigit (Mid (MyNumber, 3))

    Završavanje ako

    GetHundreds = rezultata

    Kraj (opis funkcije)

    "Pretvara broj od 10 do 99 u tekst.

    Funkcija GetTens(TensText)

    Dim rezultat kao niz

    Rezultat = "" "Null out vrijednost privremene funkcije.

    Ako Val (lijevo (TensText, 1)) = 1 pa "Ako je vrijednost između 10 19...

    Odaberite predmet Val(TensText)

    Slučaja 10: Rezultat = "Deset"

    Slučaja 11: Rezultat = "Eleven"

    Slučaj 12: Rezultat = "Dvanaest"

    Slučaj 13: Rezultat = "Thirteen"

    Slučaj 14: Rezultat = "Fourteen"

    Slučaj 15: Rezultat = "Fifteen"

    Slučaj 16: Rezultat = "Sixteen"

    Slučaj 17: Rezultat = "Seventeen"

    Slučaj 18: Rezultat = "Eighteen"

    Slučaj 19: Rezultat = "Nineteen"

    Slučaj još

    Odaberite Završi

    Još "Ako je vrijednost između 20 do 99...

    Odaberite predmet Val (lijevo (TensText, 1))

    Slučaja 2: Rezultat = "Twenty"

    Slučaja 3: Rezultat = "Thirty"

    Slučaja 4: Rezultat = "Forty"

    Slučaja 5: Rezultat = "Fifty"

    Slučaja 6: Rezultat = "Sixty"

    Slučaja 7: Rezultat = "Sedamdeset"

    Slučaja 8: Rezultat = "Eighty"

    Slučaja 9: Rezultat = "Ninety"

    Slučaj još

    Odaberite Završi

    Rezultat = rezultat i GetDigit _

    (Desno (TensText, 1)) "Dohvatiti onih lokalno.

    Završavanje ako

    GetTens = rezultata

    Kraj (opis funkcije)

    "Pretvara broj od 1 do 9 u tekst.

    Funkcija GetDigit(Digit)

    Odaberite predmet Val(Digit)

    Slučaj 1: GetDigit = "Jedan"

    Slučaj 2: GetDigit = "Dva"

    Slučaj 3: GetDigit = "Tri"

    Slučaja 4: GetDigit = "Četiri"

    Slučaja 5: GetDigit = "Pet"

    Slučaja 6: GetDigit = "6"

    Slučaja 7: GetDigit = "Brošure"

    Slučaja 8: GetDigit = "Osam"

    Slučaja 9: GetDigit = "Devet"

    Slučaj još: GetDigit = ""

    Odaberite Završi

    Kraj (opis funkcije)

  4. Zalijepite retke koda u na modulu modul1 (kod) okvir.

    Kod zalijepljen u u modulu modul1 okvir (kod).
  5. Kliknite datoteka, a zatim kliknite Zatvori i vrati se u programu Microsoft Excel. Funkcija SpellNumber je spremna za korištenje.

    Napomena : Ova funkcija radi samo s trenutne Excel datoteke koje ste otvorili. Da biste koristili ovu funkciju u drugoj radnoj knjizi Excel , morate ponoviti korake da biste kopirali i zalijepili kod u toj datoteci.

Vrh stranice

Koristite funkciju SpellNumber u pojedinačnim ćelijama

  1. U ćeliju u koju želite prikazati pisane broj, vrijednost zamjenjuje svoj broj odabranih upišite u formulu = SpellNumber(vrijednost).

  2. Na tipkovnici pritisnite tipku Enter.

    Na primjer, ako upišete =SpellNumber(22.50), ćeliju namijenjen Od dvadeset dva dolara i 50 centi.

    Savjet : Pretvaranje brojeva u tekst u zasebnu ćeliju zamijenite numeričku vrijednost referenca na ćeliju u formuli SpellNumber. Na primjer, upišite =SpellNumber(A1) prikaz pisane vrijednosti od ćelije A1.

Vrh stranice

Spremite radnu knjigu SpellNumber (funkcija)

Excel ne može spremiti radnu knjigu pomoću funkcije makronaredbi u obliku standardne radnu knjigu makronaredbi. Ako kliknete datoteka > Spremi. Otvara se dijaloški okvir VB projekt . Kliknite nema.

U dijaloškom okviru VB projekta, kliknite ne.

Datoteku možete spremiti kao Predložak programa Excel da biste zadržali datoteke u trenutnom obliku.

  1. Kliknite Datoteka > Spremi kao.

  2. Kliknite padajući izbornik Spremi kao pa odaberite Excel Macro-Enabled Template.

    Odaberite predložak s omogućenim makronaredbama programa Excel.
  3. Kliknite Spremi.

Vrh stranice

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Dodatni sadržaji

TEXT (funkcija)

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×