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 vote263 views2 answers
Excel vba store array and write to sheet
VBA
25 votes541 views3 answers
String to date vb
VBA
0 vote225 views1 answer
Vba word open document read only
VBA
0 vote213 views1 answer
Vba collection key list
VBA
2 votes225 views1 answer
Vba file from path
VBA
0 vote217 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote267 views1 answer
Vba excel do not recalculate before save
VBA
1 vote233 views1 answer
Vba loop through files in folder
VBA
0 vote209 views1 answer
Excel vba cell on change
VBA
27 votes473 views2 answers
Vba check if file exists
VBA