Prijavite se pomoću Microsoft naloga
Prijavite se ili kreirajte nalog.
Zdravo,
Izaberite drugi nalog.
Imate više naloga
Odaberite nalog pomoću kojeg želite da se prijavite.

Iako Excel uključuje mnogo ugrađenih funkcija radnog lista, verovatno nema funkciju za svaki tip izračunavanja koji izvršite. Dizajneri programa Excel nikako ne mogu da predvide potrebe računanja svakog korisnika. Umesto toga, Excel vam pruža mogućnost da kreirate prilagođene funkcije koje su objašnjene u ovom članku.

Prilagođene funkcije, kao što su makroi, koriste programski jezik Visual Basic for Applications (VBA ). Oni se razlikuju od makroa na dva značajna načina. Prvo koriste procedure funkcije umesto sub procedura. To jest, oni počinju sa izvodom Funkcije umesto izrazom "Podeb ", a završavaju se sa Funkcijom End umestosa End Sub. Drugo, oni obavljaju izračunavanja umesto da izvršavaju radnje. Određene vrste izraza, kao što su izjave koje biraju i oblikuju opsege, isključene su iz prilagođenih funkcija. U ovom članku ćete saznati kako da kreirate i koristite prilagođene funkcije. Da biste kreirali funkcije i makroe, radite sa programom Visual Basic Editor (VBE) koji se otvara u novom prozoru odvojenom od programa Excel.

Recimo da vaše preduzeće nudi količinski popust od 10 procenata na prodaju proizvoda, ako je porudžbina za više od 100 jedinica. U sledećim pasusima demonstriraćemo funkciju za izračunavanje ovog popusta.

Dolenavedeni primer prikazuje obrazac porudžbine koji navodi svaku stavku, količinu, cenu, popust (ako postoji) i dobijenu proširenu cenu.

Primer obrasca redosleda bez prilagođene funkcije

Da biste u ovoj radnoj svesci kreirali prilagođenu funkciju DISCOUNT, pratite ove korake:

  1. Pritisnite kombinaciju tastera Alt+F11 da biste otvorili Visual Basic Editor (na Mac računaru pritisnite FN+ALT+F11), a zatim izaberite stavku Umetni > modul. Novi prozor modula se pojavljuje sa desne strane programa Visual Basic Editor.

  2. Kopirajte i nalepite sledeći kôd u novi modul.

    Function DISCOUNT(quantity, price)
       If quantity >=100 Then
         DISCOUNT = quantity * price * 0.1
       Else
         DISCOUNT = 0
       End If
     
     DISCOUNT = Application.Round(Discount, 2)
    End Function
    

Napomena: Da bi kôd bio čitljiviji, možete da koristite taster Tab za uvlačenje redova. Uvlačenje je samo za vašu korist i opcionalno jer će se kôd pokrenuti sa njim ili bez njega. Kada otkucate uvučeni red, Visual Basic Editor pretpostavlja da će sledeći red biti slično uvučen. Da biste se premestili (to jes, nalevo) za jedan tabulatorski znak, pritisnite kombinaciju tastera Shift+Tab.

Sada ste spremni da koristite novu funkciju DISCOUNT. Zatvorite Visual Basic Editor, izaberite ćeliju G7 i otkucajte sledeće:

=DISCOUNT(D7,E7)

Excel izračunava 10 procenata popusta na 200 jedinica sa 47,50 USD po jedinici i daje 950,00 USD.

U prvom redu VBA šifre funkcije DISCOUNT(količina, cena) naznačili ste da funkcija DISCOUNT zahteva dva argumenta , količinu i cenu. Kada pozovete funkciju u ćeliju radnog lista, morate da uključite ta dva argumenta. U formuli =DISCOUNT(D7,E7), D7 je argument količine , a E7 je argument cena . Sada možete da kopirate formulu DISCOUNT u G8:G13 da biste dobili dolenavedene rezultate.

Hajde da razmislimo o tome kako Excel tumači ovu proceduru funkcije. Kada pritisnete taster Enter, Excel traži ime DISCOUNT u trenutnoj radnoj svesci i pronalazi da je to prilagođena funkcija u VBA modulu. Imena argumenata u zagradama , količini i ceni su čuvari mesta za vrednosti na kojima se zasniva izračunavanje popusta.

Example order form with a custom function

Izraz If u sledećem bloku šifre ispituje argument količine i određuje da li je broj prodatih artikala veći ili jednak 100:

If quantity >= 100 Then
 DISCOUNT = quantity * price * 0.1
Else
 DISCOUNT = 0
End If

Ako je broj prodatih stavki veći od ili jednak 100, VBA izvršava sledeći izraz koji množi vrednost količine vrednošću cene, a zatim množi rezultat sa 0,1:

Discount = quantity * price * 0.1

Rezultat se skladišti kao promenljivi popust. VBA izjava koja skladišti vrednost u promenljivoj naziva se izjava o dodeli zato što procenjuje izraz sa desne strane znaka jednakosti i dodeljuje rezultat imenu promenljive sa leve strane. Pošto promenljiva "Popust" ima isto ime kao procedura funkcije, vrednost uskladištena u promenljivoj vraća se u formulu radnog lista koja se zove funkcija DISCOUNT.

Ako je količina manja od 100, VBA izvršava sledeći izraz:

Discount = 0

Na kraju, sledeći izraz zaokružuje vrednost dodeljenu promenljivoj Popust na dva decimalna mesta:

Discount = Application.Round(Discount, 2)

VBA nema funkciju ROUND, ali Excel ima. Stoga, da biste koristili funkciju ROUND u ovoj izjavi, recite VBA da potraži metod Round (funkcija) u objektu Aplikacija (Excel). To možete da uradite tako što ćete dodati reč Aplikacija pre reči Zaokruži. Koristite ovu sintaksu svaki put kada treba da pristupite Excel funkciji iz VBA modula.

Prilagođena funkcija mora da počinje izrazom funkcije i da se završi izrazom "Završi funkciju". Pored imena funkcije, izjava Funkcija obično navodi jedan ili više argumenata. Međutim, možete da kreirate funkciju bez argumenata. Excel uključuje nekoliko ugrađenih funkcija – RAND i NOW, na primer – koje ne koriste argumente.

Posle izjave Funkcija, procedura funkcije uključuje neke VBA izjave koje donose odluke i vrše izračunavanja pomoću argumenata prosleđenih funkciji. Na kraju, negde u proceduri funkcije morate da uključite izjavu koja dodeljuje vrednost promenljivoj sa istim imenom kao funkcija. Ova vrednost se vraća formuli koja poziva funkciju.

Broj VBA ključnih reči koje možete da koristite u prilagođenim funkcijama manji je od broja koji možete da koristite u makroima. Prilagođenim funkcijama nije dozvoljeno da rade ništa drugo osim da daju vrednost formuli u radnom listu ili izrazu koji se koristi u drugom VBA makrou ili funkciji. Na primer, prilagođene funkcije ne mogu da promene veličinu prozora, urede formulu u ćeliji ili promene opcije fonta, boje ili šare teksta u ćeliji. Ako ovu vrstu kôda radnje uključite u proceduru funkcije, funkcija vraća #VALUE! grešku.

Jedna radnja koju procedura funkcije može da izvrši (osim izvršavanja izračunavanja) jeste prikazivanje dijaloga. InputBox izraz možete da koristite u prilagođenoj funkciji kao način dobijanja unosa od korisnika koji izvršava funkciju. Možete da koristite MsgBox izjavu kao sredstvo za prenošenje informacija korisniku. Možete da koristite i prilagođene dijaloge ili korisničke obrasce, ali to je tema izvan opsega ovog uvoda.

Čak i jednostavne makroe i prilagođene funkcije može biti teško čitati. Možete da ih učinite lakšim za razumevanje tako što ćete otkucati tekst objašnjenja u obliku komentara. Komentare dodajete tako što pre teksta objašnjenja dodajete apostrof. Na primer, sledeći primer prikazuje funkciju DISCOUNT sa komentarima. Dodavanje ovakvih komentara olakšava vama ili drugima održavanje VBA koda dok vreme prolazi. Ako ubuduće treba da promenite kôd, lakše ćete razumeti šta ste prvobitno uradili.

Primer VBA funkcije sa komentarima

Apostrof govori programu Excel da zanemari sve nadesno u istom redu, tako da možete sami da kreirate komentare u redovima ili na desnoj strani redova koji sadrže VBA kôd. Možete da započnete relativno dugački blok koda sa komentarom koji objašnjava njegovu ukupnu svrhu, a zatim da koristite umetnute komentare da biste dokumentovali pojedinačne izraze.

Drugi način za dokumentovanje makroa i prilagođenih funkcija jeste da im date opisna imena. Na primer, umesto da imenovanje makroa "Oznake ", možete da joj navedete " Mesečnelabele " da biste detaljnije opisali svrhu koju makro koristi. Korišćenje opisnih imena za makroe i prilagođene funkcije naročito je korisno kada ste napravili mnogo procedura, naročito ako kreirate procedure koje imaju slične, ali ne i identične svrhe.

Način na koji dokumentujte makroe i prilagođene funkcije je pitanje lične željene postavke. Važno je da usvojite neki metod dokumentacije i da je dosledno koristite.

Da biste koristili prilagođenu funkciju, radna sveska koja sadrži modul u kojem ste kreirali funkciju mora biti otvorena. Ako ta radna sveska nije otvorena, dobijate #NAME? prilikom pokušaja korišćenja funkcije. Ako upućujete na funkciju u drugoj radnoj svesci, ispred imena funkcije morate uneti ime radne sveske u kojoj se nalazi funkcija. Na primer, ako kreirate funkciju pod imenom DISCOUNT u radnoj svesci pod imenom "Personal.xlsb" i pozovete tu funkciju iz druge radne sveske, morate otkucati =personal.xlsb!discount(), a ne samo =discount().

Možete da sačuvate sebi neke pritiske na taster (i moguće greške u kucanju) tako što ćete izabrati prilagođene funkcije u dijalogu Umetanje funkcije. Prilagođene funkcije se pojavljuju u kategoriji Korisnički definisane:

insert function dialog box

Prilagođene funkcije možete lakše da učinite dostupnim u svakom trenutku tako što ćete ih uskladištiti u zasebnoj radnoj svesci, a zatim sačuvati tu radnu svesku kao programski dodatak. Zatim možete da učinite programski dodatak dostupnim svaki put kada pokrenete Excel. Evo kako to da uradite:

  1. Kada kreirate potrebne funkcije, izaberite stavku Datoteka > Sačuvaj kao.

    U Excel 2007 kliknite na dugme Microsoft Office i izaberite stavku Sačuvaj kao

  2. U dijalogu Sačuvaj kao otvorite padajuću listu Sačuvaj kao tip i izaberite stavku Excel programski dodatak. Sačuvajte radnu svesku pod prepoznatljivim imenom, kao što je MyFunctions, u fascikli Programski dodaci . Dijalog Sačuvaj kao će predložiti tu fasciklu, tako da sve što treba da uradite jeste da prihvatite podrazumevanu lokaciju.

  3. Kada sačuvate radnu svesku, izaberite stavku Datoteka >opcije programa Excel.

    U Excel 2007 kliknite na dugme Microsoft Office i izaberite stavku Excel opcije.

  4. U dijalogu Excel opcije izaberite kategoriju Programski dodaci .

  5. Sa padajuće liste Upravljanje izaberite stavku Programski dodaci za Excel. Zatim kliknite na dugme Idi.

  6. U dijalogu Programski dodaci potvrdite izbor u polju za potvrdu pored imena koje ste koristili za čuvanje radne sveske, kao što je prikazano ispod.

    add-ins dialog box

  1. Kada kreirate potrebne funkcije, izaberite stavku Datoteka > Sačuvaj kao.

  2. U dijalogu Sačuvaj kao otvorite padajuću listu Sačuvaj kao tip i izaberite stavku Excel programski dodatak. Sačuvajte radnu svesku pod prepoznatljivim imenom, kao što je MyFunctions.

  3. Kada sačuvate radnu svesku, izaberite stavku Alatke > Programski dodaci za Excel.

  4. U dijalogu Programski dodaci kliknite na dugme Potraži da biste pronašli programski dodatak, kliknite na dugme Otvori, a zatim potvrdite izbor u polju za potvrdu pored Add-In u polju Dostupni programski dodaci.

Kada pratite ove korake, prilagođene funkcije će biti dostupne svaki put kada pokrenete Excel. Ako želite da dodate u biblioteku funkcija, vratite se u Visual Basic Editor. Ako pogledate u programu Visual Basic Editor Project Explorer u okviru naslova VBA projekta, videćete modul nazvan po datoteci programskog dodatka. Programski dodatak će imati oznaku tipa datoteke .xlam.

named module in vbe

Ako dvaput kliknete na taj modul u programu Project Explorer, Visual Basic Editor će prikazati kôd funkcije. Da biste dodali novu funkciju, postavite mesto umetanja posle izjave Funkcija završavanja koja završava poslednju funkciju u prozoru Kôd i počnite da kucate. Na ovaj način možete da kreirate koliko god funkcija vam je potrebno i one će uvek biti dostupne u kategoriji Korisnički definisane u dijalogu Umetanje funkcije .

Ovaj sadržaj su prvobitno kreirali Mark Dodž i Kreg Stinson kao deo njihove knjige Microsoft Office Excel 2007 Inside Out. Ona je od tada ažurirana tako da se primenjuje i na novije verzije programa Excel.

Potrebna vam je dodatna pomoć?

Možete uvek da postavite pitanje stručnjaku u Excel Tech zajednici ili da potražite pomoć u Zajednicama.

Da li vam je potrebna dodatna pomoć?

Želite još opcija?

Istražite pogodnosti pretplate, pregledajte kurseve za obuku, saznajte kako da obezbedite uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na pitanja, dajete povratne informacije i čujete mišljenje od stručnjaka sa bogatim znanjem.

Da li su vam ove informacije koristile?

Koliko ste zadovoljni kvalitetom jezika?
Šta je uticalo na vaše iskustvo?
Kada kliknete na dugme Prosledi“, vaše povratne informacije će se koristiti za poboljšanje Microsoft proizvoda i usluga. Vaš IT administrator će moći da prikupi ove podatke. Izjava o privatnosti.

Hvala vam na povratnim informacijama!

×