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

4 votes136 views1 answer
Vba create directory
VBA
0 vote180 views1 answer
Vba excel parser xml
VBA
1 vote135 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote129 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote135 views1 answer
Vb get ip address
VBA
0 vote139 views1 answer
How to carry text to the next line in a label in vb.net
VBA
5 votes161 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote138 views1 answer
Check range is in another range vba
VBA
0 vote134 views1 answer
Excel VBA web scraping
VBA
0 vote133 views1 answer
Vba like with wildcard
VBA