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

3 votes145 views1 answer
Vba folderexists
VBA
0 vote157 views1 answer
Filesystemobject vba reference
VBA
2 votes144 views2 answers
Excel vba copy values range to another range
VBA
-1 vote175 views1 answer
Code for reading letters only in vb 6
VBA
3 votes165 views2 answers
Vba active workbook path
VBA
5 votes168 views1 answer
Excel vba right word from Long Integer
VBA
0 vote159 views1 answer
Excel vba DisplayAlerts
VBA
0 vote164 views1 answer
Excel vba set cell value to empty
VBA
3 votes153 views1 answer
Vba request json
VBA
-1 vote144 views2 answers
How close excel through visual basic
VBA