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 vote172 views2 answers
Excel vba protect cells with formula
VBA
0 vote164 views1 answer
Vba type variable
VBA
3 votes160 views1 answer
Extract the nth word from a text string
VBA
0 vote153 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote161 views1 answer
Xlbycolumns is not declared
VBA
8 votes331 views1 answer
Excel vba make word from bytes
VBA
0 vote154 views1 answer
Backspace key has stopped working visual studio
VBA
6 votes159 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote166 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote162 views1 answer
Excel vba range contains
VBA