[elektro-etc] excel vba

[Fekete Róbert]

halihó mindenki

egy kedves ismerős keresett meg az alábbival.. mivel sose  kellett excel 
vba ban programozni...

Function Kiprobal(Cellak)

Dim c, i, n As Integer

c = 0
n = Cellak.Count
For i = 1 To n
   If Cellak(i).Values = "A" Then  <---- Ez a sor nem jó, hibás a cella
                                         értékre a hivatkozás, ez
                                         kellene helyesen.
     c = c + 1
   End If
Next i
Kiprobal = c
End Function



ahogy nézem minden bizonnyal sor és oszlop hivatkozások is kellenének...
de hogy hogy....

ha valaki tuja legyen kedves elárulni amikéntjét...

köszi

FRob

www.harden.hu
www.loudlink.eu

"Minden megoldható legalább egyszer
és ha már egyszer megoldható..."
Hosszú barátság titka a pontos elszámolás.