VBA in Für jeden OItem Loop, wie kann ich auf die ID des OItem zugreifen?

Question

Ich werde einen Code schreiben, um die Frage zu veranschaulichen.

For Each oElement in myArray 
    MsgBox oElement 
Next 

Dies würde eine Meldung aus dem Wert von „oElement“ enthielt in „myArray“ so oft sagen, wie es Elemente in „myArray“ ist.

Was aber, wenn ich die ID von "oElement" wissen möchte? Gibt es Eigenschaften von "oElement", auf die ich zugreifen kann? etwas wie das Drucken der Anzahl der Elemente anstelle des Wertes des Elements?

For Each oElement in myArray 
    MsgBox oElement.ID 
Next 

Ist es möglich? Gibt es Eigenschaften, auf die zugegriffen werden kann?

Vielen Dank im Voraus für Ihre Zeit und Aufmerksamkeit,

Answer 1

Nein, es gibt keine Möglichkeit, den Index des Elements in dem Array zu erhalten. Sie haben eine separate Variable zu erhalten:

Dim Index As Integer 

Index = 0 
For Each oElement In myArray 
    Print Index 
    Index = Index + 1 
Next 

Answer 2

eine Abhilfe anstelle eines Variant Array die Verwendung eines Dictionary Objekt sein könnte:

Sub main() 
    Dim myDict As Scripting.Dictionary 
    Dim key As Variant 

    Set myDict = GetDict '<--| get your "test" dictionary with "indexes" as 'keys' and "elements" as 'items' 

    For Each key In myDict.Keys '<--| iterate over keys (i.e. over your "indexes") 
     MsgBox key '<--| this will give you the "index" 
     MsgBox myDict(key) '<--| this will give you the "element" 
    Next key 
End Sub 

wo es die folgende Funktion verwendet wird ein „Test“ zurückzukehren Wörterbuch

Function GetDict() As Scripting.Dictionary 
    'function to return a test dictionary 

    Dim i As Long 
    Dim myDict As New Scripting.Dictionary 

    For i = 1 To 10 
     myDict.Add i, "string-" & CStr(i) '<--| use the 'key' as your "index" and the 'item' as your element 
    Next i 
    Set GetDict = myDict 
End Function 

In Wahrheit die folgenden Reverse Ansatz könnte mehr simila scheinen r zu Ihrem ursprünglichen Code:

Sub main() 
    Dim myDict As Scripting.Dictionary 
    Dim oElement As Variant 

    Set myDict = GetDict2 '<--| get your "test" dictionary with "elements" as 'keys' and "indexes" as 'items' 

    For Each oElement In myDict.Keys '<--| iterate over dictionary keys (i.e. over your "elements") 
     MsgBox myDict(oElement) '<--| this will give you the "index" 
     MsgBox oElement '<--| this will give you the "element" 
    Next oElement 
End Sub 

wobei für die Funktion verwendet wird:

Function GetDict2() As Scripting.Dictionary 
    Dim i As Long 
    Dim myDict As New Scripting.Dictionary 

    For i = 1 To 10 
     myDict.Add "string-" & CStr(i), i '<--| use the 'key' as your "element" and the 'item' as your key 
    Next i 
    Set GetDict2 = myDict 
End Function 

aber es würde den großen Nachteil hat Ihre „Elemente“ als keys verwenden, damit möglicherweise ihre Einzigartigkeit zu verletzen, während sequenzielle Ganzzahlen immer diese Anforderung erfüllen würden