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 vote198 views1 answer
Visual basic run command
VBA
0 vote150 views1 answer
Le contrôle SpinButton (Toupie)
VBA
1 vote186 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote164 views1 answer
Vbs
VBA
0 vote181 views1 answer
Excel vba DisplayAlerts
VBA
0 vote166 views1 answer
Vba array of integers
VBA
0 vote178 views1 answer
Thread sleep vb
VBA
0 vote178 views1 answer
For each item in folder outlook vba
VBA
0 vote170 views1 answer
Excel run macro every 5 minutes
VBA
1 vote181 views1 answer
Excel vba first row in range
VBA