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 vote237 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote248 views1 answer
Vb ternary
VBA
0 vote235 views1 answer
Type excel.application is not defined vb
VBA
0 vote231 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote228 views1 answer
Internet explorer reference vba
VBA
0 vote253 views1 answer
Vba random number
VBA
3 votes232 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote253 views1 answer
Vba character ascii code
VBA
0 vote226 views1 answer
Remove first character from string vb
VBA
1 vote233 views1 answer
Excel vba make cell visible
VBA