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 vote361 views1 answer
Vbs exec hidden
VBA
0 vote361 views1 answer
Vbnet check if sting contians symbols
VBA
1 vote330 views2 answers
Excel vba password protect
VBA
0 vote349 views1 answer
Find the name of the last excel sheet vb
VBA
1 vote369 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote343 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote344 views1 answer
Set column width of datagridview vb.net
VBA
0 vote362 views1 answer
Send text to clipboard vb.net
VBA
0 vote342 views1 answer
Vba dropdown event
VBA
0 vote372 views1 answer
Vba random number
VBA