Inputbox - Dynamic Array?

[Guest]

Can I use a input box to load data into a dynamic array?

Example code, if you can please.

THANK YOU!!

 

[Bob Phillips]

something like?

and = Inputbox("input value")
redim preserve aryValues(ubound(aryValues) + 1)
aryValues(ubound(aryValues) + 1) = and

 

[Tom Ogilvy]

Sub CCCC()
Dim varr()
Dim i as long, j as long, res as variant

res = InputBox("Enter value for 1st element")
i = 0
Do While res <> ""
ReDim Preserve varr(0 To i)
varr(UBound(varr)) = res
i = i + 1
res = InputBox("Enter value for " & i + 1 & " element" & _
vbNewLine & " hit cancel to stop entry")
Loop
For j = LBound(varr) To UBound(varr)
Debug.Print j, varr(j)
Next

End Sub

 

[Guest]

Thanks Tom!!!

One last thing....

How would I call the data in the array?

 

[Tom Ogilvy]

there was an illustration in the code:

For j = LBound(varr) To UBound(varr)
Debug.Print j, varr(j)
Next

Debug.print goes to the immediate window, so make it visible in the vbe
(View=>Immediate Window)

unless you mean something besides looking at the values stored in the array
when you say call the data.

 

[Guest]

Ok, I see. Got it!

Thanks!!

there was an illustration in the code:

For j = LBound(varr) To UBound(varr)
Debug.Print j, varr(j)
Next

Debug.print goes to the immediate window, so make it visible in the vbe
(View=>Immediate Window)

unless you mean something besides looking at the values stored in the array
when you say call the data.