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

0 vote324 views1 answer
Excel vba clear filter
VBA
-1 vote337 views1 answer
Code for reading letters only in vb 6
VBA
9 votes448 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote323 views1 answer
Rotate image by any angle vb.net
VBA
0 vote302 views1 answer
Change "location" of binding navigator vb
VBA
1 vote296 views1 answer
Textbox find and replace vb
VBA
0 vote319 views1 answer
Vba excel do not recalculate before save
VBA
0 vote295 views1 answer
Vba get text file content
VBA
0 vote307 views1 answer
Vba like with wildcard
VBA
0 vote314 views2 answers
Delete all controls from list of control vb.net
VBA