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 vote233 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote231 views1 answer
How to format a textbox as date vb net
VBA
0 vote271 views1 answer
Vba excel parser xml
VBA
5 votes256 views1 answer
Vba low word from Long Integer
VBA
27 votes488 views2 answers
Vba check if file exists
VBA
0 vote220 views1 answer
Add text to combobox drop down vb
VBA
0 vote238 views1 answer
Excel vba combine ranges
VBA
0 vote261 views1 answer
Vba cell all borders
VBA
1 vote224 views1 answer
Excel vba unload userform
VBA
0 vote255 views1 answer
Vba DisplayGridlines
VBA