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

5 votes144 views1 answer
Vba array worksheet.index
VBA
0 vote199 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote190 views1 answer
Vbnet check if string is only symbols
VBA
18 votes267 views2 answers
Vba make word from bytes
VBA
5 votes205 views1 answer
Excel vba get user selected range
VBA
0 vote196 views1 answer
Excel vba remove formatting from cell
VBA
1 vote222 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote190 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote186 views1 answer
Excel vba copy entire sheet paste values
VBA
1 vote212 views1 answer
How to remove zeros in excel
VBA