Filling up an array with a user input key

Question

I need to write an array that can store an input value from a use a key and another variable as a value

So a real simple example of what I want to achieve is:

Sub addValuesToArray()

 Dim aRandomVar as String
 aRandomVar = "test"

 Dim myArray() as String

 userInput = inputBox("How do you want to call this variable")
 myArray(userInput) = aRandomVariable

End sub

However, running this gives me a type 9 error. Any thoughts on what I should improve?

First of all aRandomVariable is never declared! Secondly, you can't use an array for key/value pairs. Check outcollection... — Alex P
– Alex P, Commented Jun 16, 2017 at 7:03

Alex P · Accepted Answer · 2017-06-16 07:09:15Z

1

I'd use a dictionary like this:

Sub addValuesToArray()
    Dim aRandomVar As String, dic As Object

    Set dic = CreateObject("Scripting.Dictionary")
    aRandomVar = "test"

    userinput = InputBox("How do you want to call this variable")

    dic.Add userinput, aRandomVar

    For Each Key In dic.Keys
        Debug.Print "Key: " & Key & " Value: " & dic(Key)
    Next
End Sub

answered Jun 16, 2017 at 7:09

Alex P

12.5k7 gold badges55 silver badges74 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Edward de Goeij Over a year ago

Thanks for the quick reply!

Collectives™ on Stack Overflow

Filling up an array with a user input key

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related