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 vote194 views2 answers
Get unique random number in vb.net
VBA
0 vote168 views1 answer
Convert number to minutes in vba
VBA
0 vote157 views1 answer
Excel vba milliseconds
VBA
0 vote168 views1 answer
Vbnet make a string to unicode converter
VBA
1 vote188 views1 answer
Add rows to datagridview vb.net
VBA
0 vote186 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote157 views1 answer
Handling a click event anywhere inside a panel vb
VBA
4 votes180 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
2 votes165 views1 answer
Vba array contains
VBA
0 vote183 views1 answer
Search for text in every worksheet excel visual basic
VBA