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 vote175 views1 answer
Vb net check if file exists
VBA
0 vote198 views1 answer
Sort dictionary by key vba
VBA
0 vote206 views1 answer
Iterate all file in a folder vba
VBA
0 vote210 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote184 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote170 views1 answer
Vba argument is set
VBA
0 vote181 views1 answer
Excel vba remove formatting from cell
VBA
0 vote181 views1 answer
Vba sort multiple columns
VBA
0 vote182 views1 answer
Vba add month to date
VBA
3 votes187 views1 answer
Extract the nth word from a text string
VBA