Answers for "excel vba stack"


excel vba stack

'VBA does not include a native STACK (LIFO: LAST-In-FIRST-Out) memory 
'structure. It is possible to implement one using nothing but a native
'array or collection.

'However, the easiest solution is to have VBA create and use a .NET Stack:
Set stack = CreateObject("System.Collections.Stack")
Stack.Push "I"  
Stack.Push "was"  
Stack.Push "here."  
MsgBox Stack.Pop			'<--displays: here.
'Note:  Pop() removes the top (last-added) item from the Stack.
'  		Peek() will return the top value without removing it:
MsgBox Stack.Peek  			'<--displays: was

'Stack interrogation:  
MsgBox Stack.Count			'<--displays: 2.  Count() returns 0 if Stack empty.
MsgBox Stack.Contains("I")	'<--displays: True

'Stack to 1D VBA array (zero based):
arr = Stack.toArray
MsgBox arr(0)				'<--displays: I   Stack is unaltered.
'Clone the Stack:
Set Stack2  = Stack.Clone	'<--Stack2 is not affected by ops on Stack.
'Empty the Stack:
Stack.Clear  				'<--Stack now empty, but can take a new Push().
'NB:	Stacks can hold simple values and also complex objects.
'FILO and LIFO are interchangeable and mean the same thing.
Posted by: Guest on May-22-2020

Code answers related to "VBA"

Browse Popular Code Answers by Language