Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Funkcije Excela u Accessu

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Verovatno vam je poznato da Excel raspolaže velikim brojem funkcija za finansijsku i statističku analizu koje ne postoje u Accessu. Da bi ih korisnici upotrebili, često prebacuju podatke iz tabela ili upita u Excelove radne listove i tamo pišu funkcije za analizu. Ako ove operacije često ponavljate, predlažemo vam postupak kojim ćete funkcije Excela upotrebiti direktno u Accessu.

Postupak kojim ćete uposliti Excelovu funkciju je angažovanje metode WorksheetFunction objekta Excel.Application. Primer pozivanja funkcije FV (Future Value) je dat u sledećem listingu, praćen primerom pozivanja funkcije.

' Pozivanje Excelove funkcije Future Value
'
Public Function FV(dblRate As Double, intNper As Integer, _
dblPmt As Double, dblPv As Double, _
intType As Integer) As Double
  Dim Exl As Object
  Set Exl = CreateObject("Excel.Application")
  FV = Exl.WorksheetFunction.FV(dblRate, intNper, dblPmt, dblPv, intType)
  Set Exl = Nothing
End Function

Private Sub cmdFV_Click()
  Dim dblFV As Double
  dblFV = FV(txtRate / 12, txtNper, txtPmt, dblPv, frmType)
  MsgBox "FV = " & dblFV, vbInformation, "Future Value"
End Sub

Na ovaj način možete uposliti više od 100 funkcija metodom WorksheetFunction. Pripazite: iako su možda različitog imena, neke funkcije Excela su ipak redundantne sa funkcijama Accessa; tipičan primer su Excelova funkcija IsNumber i funkcija IsNumeric u Accessu. Brzina rada u ovom režimu nije naročito velika, pa je možda uputnije da sami napišete potrebnu funkciju u Accessu ako je često koristite nad nad većim brojem zapisa. Ipak, u nekim slučajevima ćete uštedeti zaista mnogo vremena pozivanjem odgovarajuće Excel funkcije (npr. Percentile).