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 vote154 views1 answer
Vba array dimensions
VBA
31 votes273 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote156 views1 answer
Arq linux
VBA
1 vote95 views1 answer
Vba Remove Case Sensitivity
VBA
-1 vote152 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote156 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote150 views1 answer
Vba file chooser
VBA
0 vote155 views1 answer
Vba sort multiple columns
VBA
1 vote144 views1 answer
Excel vba to lower case
VBA
0 vote150 views1 answer
Refer to resource using string variable vb.net
VBA