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
Vbnet make a string to unicode converter
VBA
0 vote170 views1 answer
Excel vba remove formatting from cell
VBA
0 vote181 views1 answer
Putting marquee in vb.net
VBA
0 vote179 views1 answer
Telephon call in vba
VBA
0 vote185 views1 answer
Vba html document reference
VBA
0 vote175 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote168 views1 answer
Vb check if row has column
VBA
0 vote163 views1 answer
Excel vba concatenate range
VBA
1 vote179 views1 answer
Excel vba array remove first
VBA
3 votes190 views1 answer
Excel insert blank row for value change in column
VBA