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 vote198 views1 answer
Excel vba first column in range
VBA
0 vote164 views1 answer
Replace spaces with underscores vbnet
VBA
1 vote176 views1 answer
Excel vba get column name from number
VBA
0 vote178 views1 answer
Add text to combobox drop down vb
VBA
3 votes170 views1 answer
Excel vba read registry key value
VBA
0 vote187 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote179 views1 answer
How to mount floppy disks in vb.net
VBA
5 votes192 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
1 vote181 views1 answer
Add a index column power bi
VBA
0 vote173 views1 answer
Excel vba disable keyboard input
VBA