Hello everyone. I'm looking at a program an intern did while ago, and am trying to teach myself Vb. I'm picking up on it, but I needed a couple VBA terms clarified. First is counters. The program has the following code in it. What do the " 'counters for rows and each frame size " as well as the (i = 0, j = 0 ....etc.) mean? Thank you for any help provided!
Function winRatioGen()
Dim cell As Range 'array for each row
'declear an array for each frame size. Can only fit 500 points. update as necessary
Dim Frame10(500) As Double
Dim Frame15(500) As Double
Dim Frame20(500) As Double
Dim Frame25(500) As Double
Dim Frame29(500) As Double
Dim Frame32(500) As Double
Dim Frame38(500) As Double
Dim Frame46(500) As Double
Dim Frame56(500) As Double
Dim Frame60(500) As Double
Dim Frame70(500) As Double
Dim Frame78(500) As Double
Dim Frame88(500) As Double
Dim Frame103(500) As Double
Dim Frame110(500) As Double
'counters for rows and each frame size.
i = 0
j = 0
k = 0
l = 0
m = 0
n = 0
o = 0
p = 0
q = 0
r = 0
s = 0
t = 0
u = 0
v = 0
w = 0
x = 0
y = 0
z = 0
a = 0
b = 0
'only take into account the data after autofilter.
Dim rng As Range
Dim cellRow As Integer
Set rng = Worksheets("Baseline").Range("AT3:AT500").SpecialCells(xlCellTypeVisible)
Function winRatioGen()
Dim cell As Range 'array for each row
'declear an array for each frame size. Can only fit 500 points. update as necessary
Dim Frame10(500) As Double
Dim Frame15(500) As Double
Dim Frame20(500) As Double
Dim Frame25(500) As Double
Dim Frame29(500) As Double
Dim Frame32(500) As Double
Dim Frame38(500) As Double
Dim Frame46(500) As Double
Dim Frame56(500) As Double
Dim Frame60(500) As Double
Dim Frame70(500) As Double
Dim Frame78(500) As Double
Dim Frame88(500) As Double
Dim Frame103(500) As Double
Dim Frame110(500) As Double
'counters for rows and each frame size.
i = 0
j = 0
k = 0
l = 0
m = 0
n = 0
o = 0
p = 0
q = 0
r = 0
s = 0
t = 0
u = 0
v = 0
w = 0
x = 0
y = 0
z = 0
a = 0
b = 0
'only take into account the data after autofilter.
Dim rng As Range
Dim cellRow As Integer
Set rng = Worksheets("Baseline").Range("AT3:AT500").SpecialCells(xlCellTypeVisible)