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 vote348 views1 answer
How to remove zeros in excel
VBA
3 votes360 views1 answer
Vba make long from two words
VBA
0 vote380 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote356 views1 answer
Vba excel parser xml
VBA
0 vote314 views1 answer
Excel vba populate array with cell values
VBA
3 votes367 views1 answer
Vba post request json
VBA
0 vote352 views1 answer
Excel vba protect worksheet without password
VBA
0 vote334 views1 answer
Vbnet get file name from path
VBA
0 vote315 views1 answer
Vba copy paste value only
VBA
3 votes377 views1 answer
Vba continue for each loop
VBA