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 vote275 views1 answer
Vba DisplayGridlines
VBA
3 votes277 views1 answer
Vba make long from two shorts
VBA
3 votes290 views1 answer
Vba not equal
VBA
1 vote289 views1 answer
Excel vba saveas force overwrite
VBA
1 vote289 views1 answer
Vba date to unix timestamp
VBA
3 votes321 views1 answer
Vba post request json
VBA
0 vote322 views1 answer
Excel vba convert cells address
VBA
1 vote253 views1 answer
How to open cmd with vbd
VBA
0 vote308 views2 answers
VB
VBA
0 vote282 views1 answer
Vba timestamp -- milliseconds
VBA