[ veselinovic @ 31.12.2008. 08:04 ] @

Znam da pise negdje u helpu, ali ja ne nadjoh. Imam 210 listiva u exelu i trebao bih sabrati celije d10+d50+d90+++d(i*40)
E problem je sto ne znam kako definisati u for petlji
for j=1 to 210
suma=suma+d(j*40)
next j.
Ovo je napisano u bejziku a ja ne znam kako definisati celiju od j*40.
[ timmy @ 31.12.2008. 08:51 ] @
Koristi Cells(red,kolona)

Evo malog primera koji sabira svaku desetu celiju u koloni pocevsi od A1

Code:

Public Function Saberi10() As Double
Dim i As Long
Dim zbir As Double
    zbir = 0
    For i = 1 To 50 Step 10
        zbir = zbir + Cells(i, 1)
    Next i
End Function


Pozdrav
[ Jpeca @ 31.12.2008. 08:52 ] @
Referenca na ćeliju u VBA može da se postavi preko Range objekta koristeći standardnu notaciju za adresu ćelije npr:
Code:
Worksheets("Sheet1").Range("C1").Value 

predstavlja vrednost ćelije C1 na listu Sheet1. Umesto naziva lista može se koristi i broj lista.

U programima je često zgodnije korišćenje Cells svojstva, koja omogućava da se pristupi ćeliji po indeksu reda i kolone što je zgodnije u petljama. Npr
Code:
Worksheets(1).Cells(1,3).Value 

predstavlja takođe vrednost ćelije C1 na prvom listu.

E sad nisam razumeo da li se sabira d10 sa prvog lista + d50 sa drugog lista ... ili ?

[ veselinovic @ 31.12.2008. 11:59 ] @
Timy je odgovorio ( hvala mu),pa vise nije bitno, ali evo. Sve je na istom listu.