So rufen Sie den Wert in einem Wörterbuch basiert auf Taste in VBA

Habe ich ein Wörterbuch als solche:

Set Desk = CreateObject("Scripting.Dictionary")
For Index = 1 To NoOfDesks
   Desk.Add Cells(15 + Index, 4).Value, Index
Next

Ich bin daran interessiert, den Wert basierend auf dem index. Ich habe versucht, dies zu tun:

MsgBox Desk.Items()(1)

Aber ich bin nicht in der Lage zu erhalten die Wert. Es ist wieder eine ganze Zahl. Es sollte ein string sein. Müssen einige Hinweise auf diese.

Gelesen auf msdn.microsoft.com/en-us/library/x4k5wbx4(v=vs. 84).aspx (Dictionary-Objekt)
Wörterbuch? Dann müssen Sie dies Lesen : Wörterbuch VBA. Wenn Sie noch Fragen haben (was ich bezweifle, nach der Lektüre dieses), dann poste deinen code. Obige Frage ist schon beantwortet in dem link gepostet.

InformationsquelleAutor lakesh | 2015-01-21

  1. 2

    Du bist immer genau das, was Sie gefragt haben:, wenn Sie die zusätzlichen Elemente, die Sie angegeben Cells(15 + Index, 4) für eine Schlüssel, und Index für eine Element. Index ein Integer Sie werden immer ein Integer.

    Wenn möglich, fügen Sie einen Verweis auf Microsoft Scripting Runtime statt späte Bindung mit CreateObject: erhalten Sie IntelliSense, das macht es viel einfacher, mit zu arbeiten eine unbekannte API:

    So rufen Sie den Wert in einem Wörterbuch basiert auf Taste in VBA

    Dein code würde wie folgt Aussehen:

    Set Desk = New Dictionary
For Index = 1 To NoOfDesks
   Desk.Add Index, Cells(15 + Index, 4).Value
Next

    Eine Sache zu beachten, ist, dass Wörterbuch-Schlüssel muss eindeutig sein - du bist [un -] Glück nicht auf Duplikate in Spalte 4, sonst wäre es ziemlich offensichtlich, dass Sie invertiert das Wörterbuch, Schlüssel und Wert.

    Ich Stimme zu, diese. Ich benutze immer Frühen Bindung während der Entwicklung. Dann wieder spätes binden wenn erst notwendig, nachdem der code ist erprobt und getestet +1.

    InformationsquelleAutor Mathieu Guindon

  2. -1

    versuchen Sie dies:

    Sub test()
    Dim Desk As Object, NoOfDesks&, Index&, Key As Variant
    Set Desk = CreateObject("Scripting.Dictionary")

    NoOfDesks = 100

    For Index = 1 To NoOfDesks
       Desk.Add Cells(15 + Index, 4).Value, Index
    Next
    For Each Key In Desk
        Debug.Print Key, Desk(Key)
    Next
End Sub
    Dieses wird explodieren, wenn Cells(15 + Index, 4) hat alle doppelten Werte. OP will die values, nicht die Tasten.
    Ich weiß, wenn die Werte werden nicht uniq dann wird die Fehlermeldung erscheinen, aber die Frage war, wie das abrufen des Werts basiert auf einem Schlüssel. Also ich nehme an, dass mein Beispiel zeigen werden, wie die Werte und Schlüssel abgerufen werden können. Thks für downvote
    Ich downvoted, da diese Antwort behebt das symptom, nicht die Ursache, und das macht es irreführend und Blätter OP mit code, dass nur scheint zu arbeiten, wie beabsichtigt. Ich werde gerne zurückkehren, meine Stimme, wenn es bearbeitet wird, um besser zu erklären, die Auswirkungen. Prost!

    InformationsquelleAutor Vasily Ivoyzha

Schreibe einen Kommentar