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 vote363 views1 answer
Excel vba saveas force overwrite
VBA
3 votes336 views1 answer
Excel vba last row in range
VBA
0 vote369 views1 answer
Vbnet add axis labels to chart
VBA
0 vote391 views1 answer
Delete all controls in an area vb
VBA
0 vote382 views1 answer
Prive sub enter clicked vb
VBA
1 vote353 views1 answer
How to open cmd with vbd
VBA
0 vote363 views1 answer
Show unix time in vba
VBA
0 vote411 views1 answer
Vbs run with cscript
VBA
2 votes348 views2 answers
Constructor vb.net
VBA
0 vote376 views1 answer
Vba table header name
VBA