[elektro-etc] excel vba

[Friedrich Gábor]

Public Function Kiprobal()

Dim c, i As Integer
c = 0
For i = 1 To Sheets(1).UsedRange.Rows.Count
    If Sheets(1).Cells(i, 1) = 1 Then c = c + 1
Next i
Kiprobal = c
End Function

üdv
Fidó

----- Original Message ----- 
From: "Fekete Róbert" <frobi at harden.hu>
To: "etc elektro" <elektro-etc at tesla.hu>
Sent: Thursday, June 25, 2009 1:51 PM
Subject: [elektro-etc] excel vba


> 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.
>