Vba static variable

' Static variable inside a function
Function MyStaticFunction(ByVal pToAdd As Integer) As Integer
    Static iStatic As Integer       ' Keeps its value between calls
    iStatic = iStatic + pToAdd
    MyStaticFunction = iStatic
End Function
'---------------------------------------------------------------------
Sub TesMe()
  Debug.Print MyStaticFunction(1)	' 1
  Debug.Print MyStaticFunction(3)	' 4
End Sub

Similar codes

1 vote206 views1 answer
Excel format cell as kilowatts
VBA
1 vote205 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
5 votes231 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote215 views1 answer
Excel vba clear filter
VBA
0 vote222 views1 answer
Make all controls in an area not visable vb
VBA
0 vote217 views1 answer
Vba loop through table
VBA
0 vote211 views1 answer
Vba like with wildcard
VBA
0 vote221 views1 answer
Delete rows in excel vba code
VBA
0 vote272 views2 answers
Checking and changing system volume vb.net
VBA
1 vote158 views1 answer
Ms access open form to new record
VBA