Excel_VBA_manual

'lista_argumenata' je lista argumenata koja se predaje proceduri ili funkciji i mora se navesti
toĉan tip varijable koja se predaje. Ako se poziva funkcija, poželjno je navesti i tip koji funkcija
vraća - As tip – kako bi se vidjelo je li ispravno pridružena varijabli.
VBA uĉitava DLL pri prvom pozivu funkcije iz DLL-a i on ostaje u memoriji dok se ne zatvori
radna bilježnica u kojoj se nalazi taj VBA modul.
2.3.4.2 Predaja argumenata po vrijednosti i po referenci
VBA kod inicijalno predaje argumente preko referenci, a ne preko njihovih vrijednosti. Ako
funkcija oĉekuje pokazivaĉ tada se argument predaje po referenci (ByRef), inaĉe se predaje po
vrijednosti (ByVal).
a) Primjer predaje argumenta ByVal – sljedeća funkcija je samo dio DLL-a i napisana je u
programskom jeziku C++, a raĉuna opseg kruga za zadani radijus:
double WINAPI opseg(double dRadius)
{
return dRadius * 2 * 3.14159;
}
U Windowsima, DLL funkcije koriste __stdcall konvenciju pozivanja funkcije. U ovom primjeru
je upotrijebljena konstanta WINAPI koja u sebi već sadrži konvenciju __stdcall.
Visual Basic kod koji koristi funkciju opseg za ispis u Excel tablici vrijednosti radijusa i njegovog
odgovarajućeg opsega:
Declare Function opseg Lib "primjer" _
(ByVal radius As Double) As Double
Sub TablicaOpsega( )
Dim x As Double
Worksheets(1).Activate
Range("a1:c11").Clear
Cells(1, 1).Value = "Radius"
Cells(1, 2).Value = "Opseg Kruga"
For i = 1 To 10
Cells(i + 1, 1).Value = i
Cells(i + 1, 2).Value = opseg(i)
Next
Columns("a:b").AutoFit
End Sub
Declare naredba koristi ByVal kljuĉnu rijeĉ, jer se argument prenosi po vrijednosti.
25