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

5 votes377 views1 answer
Vba low byte from INTEGER
VBA
0 vote310 views1 answer
Vba line feed
VBA
0 vote333 views1 answer
Vba listbox remove all items
VBA
0 vote336 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote330 views1 answer
Vbs exec hidden
VBA
0 vote350 views1 answer
Vba find last column in a row with data
VBA
5 votes360 views1 answer
Excel vba left word from Long Integer
VBA
0 vote316 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote320 views1 answer
How to set location and size of new from vb
VBA
0 vote325 views1 answer
Get current year vb
VBA