•  Funkcije

• Funkcije mogu biti Excelove i korisničke 
  
      Excelove  funkcije su podjeljene na nekoliko vrsta koje možete pogledati pozivanjem izbornika INSERT/ FUNKTION
  i sastavni su dio Exela koje dolaze njegovom instalacijom. Drugi dio su korisničke funkcije koje radi sam korisnik koristenjem 

  koda pisanim u modulu.
      Inače funkcije nisu ništa nego na poseban način izrađene makro naredbe koje imaju nekoliko svojih pravila.
          Funkcija u pravilu ništa ne odvijaju već daje rezultat ili neku vrijednost.

          Funkcije sa operatorima tvore formule.
          Funkcije se mogu ugnjezditi. To znači da se može za dobivanje rezultata upotrijebiti nekoliko funkcija istovremeno u tvorbi formula.

   

  • Funkcije se koriste u izradi formula

  • Funkcija se sastoji od sintakse i argumenta

  • Preporuka  knjiga Duška Božića "Excel za Windows" Napredno korištenje - izdane od Biblioteka KLIK iz 1995

              

   

• Vrste Excelovih funkcija 

• Funkcije baze podataka

• Funkcije datuma i vremena

• Funkcije inženjerske

• Funkcije vanjske

• Funkcije financijske

• Funkcije informacijske

• Funkcije logične

• Funkcije tablične

• Funkcije matematičke

• Funkcije statističke

• Funkcije texta

Sadržaj stranice:

Na ovoj starnici ima zadovoljavajući broj i vrsta funkcija koje će pomoći u njihovom razumjevanju.

Sve korisničke funkcije se unose u VBA Editor u Module ili Alt+F11

•   Funkcija koja pokazuje formulu u ćeliji ako postoji

•   Funkcije za izračunavanje PDV-a brutto, netto, tara

•   Funkcija koja sumira vrijednosti u području

•   Funkcija koja izračunava broj dana između dva datuma (Interval)

•   Funkcija=DATEDIF()

•   Funkcija za površinu, i obujam

•   Ugniježđene funkcije

 Back toTop

  

Funkcija koja pokazuje formulu u ćeliji ako postoji 

Function Formulacelije(celija As Excel.Range) As Variant If celija.Count = 1 Then If celija.HasFormula Then Formulacelije = celija.FormulaLocal Else Formulacelije = "Formule nema u ćeliji " & celija.Address & "!" End If Else Formulacelije = CVErr(xlErrRef) End If End Function

 Back to Top

 

Funkcije za izračunavanje PDV-a brutto, netto, tara

Function Sporezom(Porez As Single, Bezporez As Double) As Double Sporezom = Bezporez * ((100 + Porez) / 100) Sporezom = Sporezom End Function Function Bezporez(Porez As Single, Sporezom As Double) As Double Bezporez = (Sporezom / (Porez + 100) * 100) Bezporez = Bezporez End Function Function Porez(Postotak As Single, Sporezom As Double) As Double Porez = (Sporezom / (Postotak + 100) * Postotak) Porez = Porez End Function

 Back to Top



Funkcija koja sumira vrijednosti u području

Function Zbirpodručja(podrucje As Range) As Double Dim c As Range ' sve ćelije zbraja u prostoru Application.Volatile For Each c In podrucje zbirpodručja = zbirpodručja + c Next End Function

 Back to Top 



Funkcija koja izračunava broj dana između dva datuma (Interval)

Option Explicit Sub Razlika() MsgBox DatumInterval("12.06.2001", "01.04.2003") End Sub    Function DatumInterval(Datum1 As Date, Datum2 As Date) As String Dim Godine, Mjesec, Dan, m As Integer Godine = Year(Datum2) - Year(Datum1) If Month(Datum1) > Month(Datum2) Then Godine = Godine - 1 If Month(Datum2) < Month(Datum1) Then Mjesec = 12 - Month(Datum1) + Month(Datum2) Else Mjesec = Month(Datum2) - Month(Datum1) End If If Day(Datum2) < Day(Datum1) Then Mjesec = Mjesec - 1 If Month(Datum2) = Month(Datum1) Then Godine = Godine - 1 Mjesec = 11 End If End If Dan = Day(Datum2) - Day(Datum1) If Dan < 0 Then m = CInt(Month(Datum2)) - 1 If m = 0 Then m = 12 Select Case m Case 1, 3, 5, 7, 8, 10, 12 Dan = 31 + Dan Case 4, 6, 9, 11 Dan = 30 + Dan Case 2 If (Year(Datum2) Mod 4 = 0 And Year(Datum2) _ Mod 100 <> 0) Or Year(Datum2) Mod 400 = 0 Then Dan = 29 + Dan Else Dan = 28 + Dan End If End Select End If DatumInterval = CStr(Godine) + " G " + CStr(Mjesec) + " M " + CStr(Dan) + " D " End Function

 Back toTop 



Funkcija=DATEDIF()

 (Excelova funkcija)

Za korištenje ove funkcije uključite u Izborniku Tools / Add-Ins / Analysis Toolpak 

Razlika u danima od nekog datuma do danas izraženo u godinama	=DATEDIF(A1;today();"Y")
Razlika u danima	=DATEDIF(pocetnidatum;zavrsnidatum;"D")
Razlika u mjesecima	=DATEDIF(pocetnidatum;zavrsnidatum;"M")
Razlika u godinama	=DATEDIF(pocetnidatum;zavrsnidatum;"Y")
Razlika u danima u posljednjoj godini	=DATEDIF(pocetnidatum;zavrsnidatum;"YD")
Razlika u mjesecima u posljednjoj godini	=DATEDIF(pocetnidatum;zavrsnidatum;"YM")
Razlika u danima od danas do završnog dana tekuće godine	=DATEDIF(pocetnidatum;zavrsnidatum;"MD")
Razlika izražena u broju godina, mjeseci i dana	=DATEDIF(A1;B1;"y")&" God,"&DATEDIF(A1;B1;"ym")&" Mj. i "&DATEDIF(A1;B1;"MD")&" Dana

 Back toTop 



Funkcija koja izražava uvjet

Public znači da je mogu koristiti svi moduli

Public Function uvjet(prag) As Integer Application.Volatile If prag <= 1000 Then uvjet = 1 If prag <= 2000 And prag > 1000 Then uvjet = 2 If prag <= 3000 And prag > 2000 Then uvjet = 3 If prag > 3001 Then uvjet = 4 End Function

 Back toTop 



Funkcija za površinu, i obujam 

Function Površina(a, b) Površina = a * b End Function Function obujam(a, b, c) obujam = a * b * c End Function Function Površina_trokuta(a, b) Površina_trokuta = a * b / 2 End Function

 Back toTop



Ugniježđene funkcije

Ugniježđenje funkcija
	A	B	B
1	PROBLEM	REZULTAT	FORMULA
2	MATE MATIĆ	MATE	=LEFT(A2;SEARCH(" ";A2))

Objašnjenje:

U ćeliji A2 upišite MATE MATIĆ
u B2 formulu =LEFT(A2;SEARCH(" ";A2))
To znači da ugniježđena funkcija pronađe dio vrijednosti ćeliji A2, lijevo od praznog prostora.
Kao rezultat  vraća  MATE