Pretvaranje brojeva u reči

Važno : Ovaj članak je mašinski preveden, pogledajte odricanje odgovornosti. Pogledajte verziju ovog članka na engleskom jeziku ovde za referencu.

Excel 2013 i Excel 2016 nemaju podrazumevana funkcija koja prikazuje brojeve kao engleske reči u ćeliji unakrsne tabele, ali možete da dodate ova mogućnost lepljenjem kôd funkcije SpellNumber u list modula. Ova funkcija omogućava vam da konvertujete iznose dolara i procenta reči.

Ako želite da konvertujete numeričke vrednosti u tekstualnom formatu bez prikazivanja ih kao reči, koristite funkciju TEXT umesto toga.

U ovom članku

Kreiranje SpellNumber funkcija za pretvaranje brojeva u reči

  1. Koristite tastersku prečicu Alt + F11 da biste otvorili Visual Basic Editor.

    Napomena : Možete da pristupite i Visual Basic Editor tako što ćete prikazati karticu "Projektovanje" na traci.

  2. Izaberite karticu Umetanje i izaberite stavku modul.

    U meniju Umetanje izaberite stavku modul.
  3. Kopirajte sledeće redove koda.

    Napomena : Poznat kao makro funkcije, ovaj kôd automatizuje zadatak za konvertovanje brojeva u tekst u celoj unakrsne tabele.

    Opcija eksplicitno

    "Glavna funkcija

    Funkcija SpellNumber (ByVal MyNumber)

    Dim dolara, pare, Temp

    Dim DecimalPlace Count

    ReDim Place(9) kao niska

    Place(2) =”„1000

    Place(3) = "miliona"

    Place(4) =”„Milijarde

    Place(5) = "triliona"

    ' Niske predstavljen iznos.

    MyNumber = Trim(Str(MyNumber))

    ' Poziciju decimala 0 Ako nijedan.

    DecimalPlace = InStr (MyNumber, ".")

    "Konvertovanje pare i postavite MyNumber iznos u dolarima.

    Ako DecimalPlace > 0, onda

    Pare = GetTens (levo (Mid (MyNumber, DecimalPlace + 1) & _ „00”, 2))

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

    Ako

    Count = 1

    Dok je MyNumber <> „”

    Temp = GetHundreds (Right (MyNumber, 3))

    Ako zaposliti <> „” zatim dolari = Temp & Place(Count) & dolara

    Ako Len(MyNumber) > zatim 3

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

    Else

    MyNumber = „”

    Ako

    Count = Count + 1

    Petlja

    Izbor veličine slova dolara

    Slučaj „”

    Dolari = „Nema dolara”

    Slučaj”„Jedan

    Dolari = „Dolar”

    Predmet još

    Dolari = dolari & „Dolari”

    Izaberite opciju završetka

    Izbor veličine slova centa

    Slučaj „”

    Pare = „i bez pare”

    Slučaj”„Jedan

    Pare = „i centa”

    Predmet još

    Pare = „i” & pare & „Pare”

    Izaberite opciju završetka

    SpellNumber = dolari & centa

    Kraj funkcije

    ' Konvertuje brojeve iz 100 999 u tekst

    Funkcija GetHundreds (ByVal MyNumber)

    Dim rezultat kao niska

    Ako Val(MyNumber) = 0, onda Izađi funkcija

    MyNumber = nadesno (”„000 & MyNumber, 3)

    "Konvertuj postavite na stotine.

    Ako Mid (MyNumber, 1, 1) <> „0” zatim

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

    Ako

    "Konvertovanje Desetice i one mesto.

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

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

    Else

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

    Ako

    GetHundreds = rezultat

    Kraj funkcije

    ' Konvertuje broj od 10 do 99 u tekst.

    Funkcija GetTens(TensText)

    Dim rezultat kao niska

    Rezultat = „” "" null "se vrednost privremene funkcije.

    Ako Val (Left (TensText, 1)) = 1, zatim, ako vrednost između 10-19...

    Izbor veličine slova Val(TensText)

    Slučaja 10: Rezultat =”„10

    Slučaja 11: Rezultat =”„11

    Slučaj 12: Rezultat =”„12

    Slučaj 13: Rezultat =”„Trinaest

    Slučaj 14: Rezultat =”„14

    Slučaj 15: Rezultat =”„15

    Slučaj 16: Rezultat =”„16

    Slučaj 17: Rezultat =”„17

    Slučaj 18: Rezultat = „18”godina

    Slučaj 19: Rezultat =”„19

    Predmet još

    Izaberite opciju završetka

    Još ' Ako vrednost između 20 99...

    Izbor veličine slova Val (Left (TensText, 1))

    Slučaj 2: Rezultat =”„20

    Slučaj 3: Rezultat =”„30

    Slučaja 4: Rezultat =”„40

    Slučaja 5: Rezultat =”„50

    Slučaja 6: Rezultat =”„60

    Slučaja 7: Rezultat =”„70

    Slučaja 8: Rezultat =”„80

    Slučaja 9: Rezultat =”„90

    Predmet još

    Izaberite opciju završetka

    Rezultat = rezultat & GetDigit _

    (Right (TensText, 1)) "Preuzimanje one mesto.

    Ako

    GetTens = rezultat

    Kraj funkcije

    ' Konvertuje broj od 1 do 9 u tekst.

    Funkcija GetDigit(Digit)

    Izbor veličine slova Val(Digit)

    Slučaj 1: GetDigit =”„Jedan

    Slučaj 2: GetDigit =”„2

    Slučaj 3: GetDigit =”„3

    Slučaj 4: GetDigit =”„4

    Slučaj 5: GetDigit =”„5

    Slučaj 6: GetDigit =”„6

    Slučaj 7: GetDigit =”„7

    Slučaj 8: GetDigit =”„8

    Slučaj 9: GetDigit =”„9

    Slučaj još: GetDigit = „”

    Izaberite opciju završetka

    Kraj funkcije

  4. Nalepite redove koda u polju modulu1 (kôd) okvir.

    Kôd nalepljen u u modulu1 (kôd).
  5. Izaberite datotekui izaberite stavku Zatvori i vrati se u programu Microsoft Excel. Funkcija SpellNumber sada je spreman za upotrebu.

    Napomena : Ova funkcija radi samo za trenutnu Excel datoteku koju ste otvorili. Da biste koristili ovu funkciju u nekoj drugoj radnoj svesci Excel , morate da ponovite korake da kopirate i nalepite kôd u tu datoteku.

Vrh stranice

Koristite funkciju SpellNumber u pojedinačnim ćelijama

  1. Otkucajte u formulu = SpellNumber(vrednost) u ćeliju gde želite da prikažete napisanih broj, zamena vrednost na broj koji odaberete.

  2. Na tastaturi pritisnite taster Enter.

    Na primer, ako otkucate =SpellNumber(22.50), ćeliju trebalo bi da pročitate 22 i po dolara.

    Savet : Da biste konvertovali tekst u zasebnu ćeliju brojeve, zamenite numeričke vrednosti referencu na ćeliju u formuli SpellNumber. Na primer, otkucajte =SpellNumber(A1) da biste prikazali napisanih vrednost ćelije A1.

Vrh stranice

Sačuvajte radnu svesku SpellNumber funkcija

Excel ne može da sačuva radnu svesku sa makro funkcije u formatu standardne bez makroa radne sveske. Ako izaberete stavke datoteka > Sačuvaj. Otvara se dijalog VB projekat . Kliknite na dugme ne.

U dijalogu VB projekta, kliknite na dugme ne.

Možete sačuvati datoteku kao Excel predložak sa makroima da datoteka će ostati u trenutnom formatu.

  1. Izaberite stavke Datoteka > Sačuvaj kao.

  2. Kliknite na dugme Sačuvaj kao tip padajući meni i izaberite Excel Macro-Enabled Template.

    Odaberite stavku Excel predložak sa makroima.
  3. Kliknite na dugme Sačuvaj.

Vrh stranice

Napomena : Odricanje odgovornosti za mašinski prevod: Ovaj članak je preveo računarski sistem bez ljudske intervencije. Microsoft nudi ove mašinske prevode da bi pomogao korisnicima koji ne govore engleski da uživaju u sadržaju o Microsoft proizvodima, uslugama i tehnologijama. Budući da je članak mašinski preveden, može da sadrži greške u rečniku, sintaksi ili gramatici.

Takođe pogledajte

Funkcija TEXT

Unapredite veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×