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

25 votes307 views3 answers
String to date vb
VBA
0 vote212 views1 answer
Vba exit while
VBA
1 vote214 views1 answer
Excel vba get column name from number
VBA
0 vote234 views1 answer
Rotate image by any angle vb.net
VBA
0 vote232 views1 answer
Vba test optional argument
VBA
0 vote237 views1 answer
Vba sort the data Z to A
VBA
32 votes308 views2 answers
Excel vba column letter
VBA
0 vote239 views1 answer
Weekday vba
VBA
0 vote235 views1 answer
Excel vba protect shapes
VBA
0 vote227 views1 answer
Loop through all text boxes in a form vb
VBA