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 vote358 views1 answer
Excel vba protect shapes
VBA
1 vote332 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
27 votes480 views2 answers
Vba check if file exists
VBA
0 vote329 views1 answer
Vba change named range address
VBA
0 vote355 views1 answer
Vba string
VBA
0 vote349 views1 answer
How to enter Vbox manage commands
VBA
1 vote344 views2 answers
Get all column names from excel vba
VBA
1 vote321 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
0 vote335 views1 answer
Delete rows in excel vba code
VBA
1 vote321 views1 answer
Vba compile error object required
VBA