Wie bereiten Collection-Objekt in VBA

Code unten ist in VB.net, wie kann ich das gleiche tun mit vba

Option Strict On
Imports System.Collections
Public Class Collect
   Public Shared Sub Main()
      Dim sta As New Collection
         sta.Add("New York", "NY")
         sta.Add("Michigan", "MI")
         sta.Add("New Jersey", "NJ")
         sta.Add("Massachusetts", "MA")

   End Sub
End Class

Nach der Vorbereitung der vba collection-Objekt, ich möchte es abrufen, indem Sie Taste,Annehmen, nehmen, ich will den Wert für den Schlüssel "New York". Sollte es wieder NY.

InformationsquelleAutor Raj | 2011-10-11
  1. 2

    Können Sie nicht tun dies in einem VBA-Sammlung (update: in der gleichen Reihenfolge, wie Sie angelegt haben, in vb.net ich beachten Jean hat neu geordnet, Ihre Argumente für Ihre Bedürfnisse eine Sammlung), können Sie es mit einem Wörterbuch, siehe unten

    Wörterbücher sind effizienter und vielseitiger als Sammlungen, so würde ich empfehlen, geht so

    1. Nützlich zu Lesen: Patrick Matthews unter Verwendung der Dictionary-Klasse in VBA (und wie Collections und Dictionaries unterscheiden) http://www.experts-exchange.com/A_3391.html

      Public Sub Main()
Dim sta
Set sta = CreateObject("scripting.dictionary")
sta.Add "New York", "NY"
sta.Add "Michigan", "MI"
sta.Add "New Jersey", "NJ"
sta.Add "Massachusetts", "MA"
MsgBox sta("New York")
End Sub
    • ich Schreibe gleich in der Funktion und Rückkehr das collection-Objekt
    • nicht tun?! Sicher, Sie können. Das ist es, was Kollektionen sind für.
    • Und Sie haben Umgekehrt die Argumente JFC ..... Ich vermutete (wahrscheinlich zu Unrecht wie sich herausstellt), dass vb.net verwendet das gleiche layout wie VBA.
    InformationsquelleAutor brettdj
  2. 1

    Hier, wie Sie Elemente hinzufügen, um ein Collection-Objekt und rufen Sie durch die Taste:

    Dim sta As Collection
Set sta = New Collection
'syntax is: sta.Add myItem, [myKey]
sta.Add "NY", "New York"
sta.Add "MI", "Michigan"
sta.Add "NJ", "New Jersey"
sta.Add "MA", "Massachusetts"
MsgBox sta.Item("New York") ' Returns "NY"

    Wie Sie sehen können, die Reihenfolge der Argumente ist die Umkehrung, dass in .NET. Zu vermeiden, mix-up, Sie könnte verwenden benannte Argumente statt, z.B.

    sta.Add Item:="NY", Key:="New York"
    InformationsquelleAutor Jean-François Corbett
  3. 0

    Anders ist, erstellen Sie Ihre Art, zum Beispiel

    Public Type City
      Name As String
      Acron As String
End Type

Sub FillType()

Dim x(3) As City
Dim y As Variant

x(0).Name = "NewYork"
x(0).Acron = "NY"

x(1).Name = "Michigan":x(1).Acron = "MI"

x(2).Name = "New Jersey":x(2).Acron = "NJ"

x(3).Name = "Massachusetts":x(3).Acron = "MA"

For i = LBound(x) To UBound(x)
     Debug.Print x(i).Name, x(i).Acron
Next i

End Sub

    []s

    • Wie funktioniert diese Hilfe Sie die Elemente abzurufen, die von key?
    • Einfach, wenn x(i).Name="New York" . Nicht eine schöne Lösung, aber funktioniert! Wie ich Sprach, es ist ein anderes!
    • Du meinst, eine Schleife durch alle i bis finden Sie den richtigen x(i).Name? Ja, ok, sicher, dass "funktionieren" würde, aber es ist eine merkwürdige Vorschlag, da diese Funktionalität ist bereits in der Sammlung (und Wörterbuch) also warum das Rad neu erfinden...
    InformationsquelleAutor Bruno Leite
Schreibe einen Kommentar