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 vote165 views1 answer
Priavte sub with multiple handels find sneder
VBA
5 votes174 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote164 views2 answers
Do until loop vba
VBA
0 vote160 views1 answer
Average vba
VBA
0 vote168 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote183 views2 answers
Get unique random number in vb.net
VBA
2 votes154 views1 answer
Excel vba check if key is in collection
VBA
2 votes144 views1 answer
Vba array contains
VBA
8 votes179 views1 answer
Excel vba make integer
VBA
0 vote174 views1 answer
Find if year is leap year vb
VBA