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 vote265 views1 answer
Vba line feed
VBA
0 vote265 views1 answer
Change whcih control a user has selected vb
VBA
1 vote224 views1 answer
Ms access open form to new record
VBA
1 vote255 views1 answer
How to do error handling in access vba
VBA
0 vote268 views1 answer
Telephon call in vba
VBA
0 vote288 views1 answer
Vba sort the data Z to A
VBA
0 vote256 views1 answer
Excel vba disable copy paste
VBA
0 vote268 views1 answer
Sendkeys vba selenium
VBA
0 vote265 views1 answer
Vba format currency
VBA
0 vote262 views1 answer
Discern between file and folder given path vb.net
VBA