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

2 votes225 views1 answer
Vba split string
VBA
0 vote250 views1 answer
Vb.net change cursor to wait
VBA
0 vote244 views1 answer
Excel vba formatconditions positive
VBA
31 votes499 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
8 votes312 views1 answer
Excel vba make word
VBA
1 vote236 views1 answer
Excel vba saveas force overwrite
VBA
22 votes531 views1 answer
Excelvba check for directory
VBA
0 vote233 views3 answers
Write to text file vb.net
VBA
0 vote225 views1 answer
Excel vba address not absolute
VBA
0 vote282 views1 answer
Wpf dark title bar
VBA