Napomena: Željeli bismo vam pružiti najnoviji sadržaj pomoći što je brže moguće i to na vašem jeziku. Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Možete li nam pri dnu ove stranice javiti jesu li vam ove informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku .
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
-
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.
-
Kliknite karticu Umetanje , a zatim kliknite Module.
-
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)
-
Zalijepite retke koda u na modulu modul1 (kod) okvir.
-
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.
Koristite funkciju SpellNumber u pojedinačnim ćelijama
-
U ćeliju u koju želite prikazati pisane broj, vrijednost zamjenjuje svoj broj odabranih upišite u formulu = SpellNumber(vrijednost).
-
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.
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.
Datoteku možete spremiti kao Predložak programa Excel da biste zadržali datoteke u trenutnom obliku.
-
Kliknite Datoteka > Spremi kao.
-
Kliknite padajući izbornik Spremi kao pa odaberite Excel Macro-Enabled Template.
-
Kliknite Spremi.
