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 vote167 views1 answer
Select case vba
VBA
0 vote167 views1 answer
Dynamic array vba
VBA
31 votes313 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote178 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote219 views1 answer
Find control with name vb
VBA
0 vote155 views1 answer
Docker vboxmanage not found
VBA
0 vote168 views1 answer
Returns an array from function vba
VBA
0 vote174 views1 answer
Vba format currency
VBA
0 vote167 views1 answer
Vba file chooser
VBA
5 votes181 views1 answer
Excel vba right word from Long Integer
VBA