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 vote129 views1 answer
How to mount floppy disks in vb.net
VBA
3 votes124 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote121 views1 answer
Vba pass named range to function
VBA
1 vote119 views2 answers
Get all column names from excel vba
VBA
22 votes260 views1 answer
Xl vba check for folder
VBA
0 vote119 views1 answer
Vba collection key list
VBA
0 vote126 views1 answer
Excel vba calculate
VBA
1 vote87 views1 answer
Vba listindex select multiple items vba
VBA
0 vote116 views2 answers
Excel vba prevent save
VBA
1 vote115 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA