declaring variable in Sub statement?

[pkh]

Hi,

I am trying to make sense of quite an elaborate macro built by someone else. This has the following line of code

Public Sub readOperation(rowNumber As Integer)
    Dim rowOff As Integer
    rowOff = rowNumber - 1
 
'other arguments and conditions
 
End Sub

What I am buggered about is that I cannot see the the variable rowNumber being declared anywhere but it seems to have a value of 1. I should mention that Operation is a class and I am very new to classes. Any help greatly appreciated.

pkh

 

[pgc01]

What I am buggered about is that I cannot see the the variable rowNumber being declared anywhere

Hi

I see the variable declared in the Sub statement:

Public Sub readOperation([COLOR=red][B]rowNumber As Integer[/B][/COLOR])

 

[pkh]

pgc

thanks for your reply. well, i thought that might be the case but wasn't sure. on to the next bit of my doubt - is 1 the default value for any integer variable?

pkh

 

[RoryA]

No, 0 is the default. 1 is probably being passed when the sub is called.

 

[pkh]

Rorya
This is the sub that gets read prior to the sub in question. Do you suppose there si anything in here that is setting the value to the rowNumber variable to be 1?

Sub read_operations()
    Dim count As Integer, a As Integer
    
    count = 1
    
    For a = 1 To 10 '10 rows of operations
        ReDim Preserve Operations(1 To count) As operation
        Set Operations(count) = New operation
        Operations(count).readOperation (a)
        If Operations(count).hasData Then
            'Operations(count).showOperation
            count = count + 1
        Else
            Set Operations(count) = Nothing
        End If
    Next a
       
    If Operations(count) Is Nothing Then ReDim Preserve Operations(1 To count - 1) As operation
       
End Sub

This bit of the code gets read after the line
Set Operations(count) = New operation
and is locate within the class module.

Private opName As String
Private fiveBi As Double
Private fiveEl As Double
Private tenBi As Double
Private tenEl As Double
 
Private Sub Class_Initialize()
    opName = ""
    fiveBi = False
    fiveEl = 0
    tenBi = 0
    tenEl = 0
End Sub

Thanks,

pkh

 

[RoryA]

Operations(count).readOperation (a)

this line is passing the value of a to the sub, so it will start with 1 and increment to 100.

 

[pkh]

ah. so thats it. thanks a lot guys. btw, you meant "will start with 1 and increment to" 10, right? or am i missing something else?

pkh

 

[RoryA]

Yes - that was a typo.

 

[pkh]

cool. thanks again guys. i'll probably be here again through various stages of the macro!