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 vote137 views1 answer
VBA is form loaded
VBA
0 vote134 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote133 views1 answer
Nested if else in vb.net
VBA
0 vote137 views1 answer
Vbs expand env var
VBA
0 vote139 views1 answer
Excel vba DisplayAlerts
VBA
5 votes149 views1 answer
Excel vba second byte from INTEGER
VBA
5 votes154 views1 answer
Excel vba how to unit test vba code
VBA
0 vote125 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote136 views1 answer
Loop through all text boxes in a form vb
VBA
0 vote128 views1 answer
Excel vba formatconditions range
VBA