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 vote222 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
0 vote198 views1 answer
Excel vba address not absolute
VBA
5 votes221 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote210 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote223 views1 answer
Vba DisplayGridlines
VBA
2 votes198 views1 answer
Excel vba check if key is in collection
VBA
0 vote217 views1 answer
Excel vba convert cells address
VBA
0 vote215 views4 answers
Vgrive,deb
VBA
1 vote188 views2 answers
Vba string to date
VBA
0 vote207 views1 answer
Vba open report
VBA