Institute of Inf. Tech. - Informatikai intézet

Definiáljunk egy teszt függvényt ami visszaad egy konstans értéket.

Function teszt()
   teszt = 1
End Function

használata: írjuk be egy cellába =teszt()

Adjunk össze két számot.

Function Osszeadas(szam1 As Double, szam2 As Double) As Double
    Osszeadas = szam1 + szam2
End Function

használata: =Osszeadas(A1;B1)

Ez a függvény egy tömb elemeinek átlagát számítja ki.

Function Atlag(ertekek() As Double) As Double
    Dim osszeg As Double
    Dim i As Integer
    
    osszeg = 0
    For i = LBound(ertekek) To UBound(ertekek)
        osszeg = osszeg + ertekek(i)
    Next i
    
    Atlag = osszeg / (UBound(ertekek) - LBound(ertekek) + 1)
End Function

Töltsük fel tetszőleges értékekkel a A1 és B2 téglalapba eső cellákat:

Egy másik cellába írjukbe: =ÁTLAG(A1:B2)