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 vote273 views2 answers
Excel vba number format file size
VBA
32 votes334 views2 answers
Excel vba column letter
VBA
0 vote260 views1 answer
Test if form is open vb
VBA
3 votes249 views2 answers
Vba active workbook path
VBA
8 votes311 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote260 views1 answer
Vbs exec hidden
VBA
0 vote248 views1 answer
Get current year vb
VBA
0 vote244 views1 answer
Excel vba hide gridlines
VBA
0 vote249 views1 answer
Excel VBA web scraping
VBA
1 vote241 views1 answer
Add a index column power bi
VBA