Hoe een collectie doorgeven aan een functie in VBA

Een collectie doorgeven aan een functie in Visual Basic for Applications (VBA) is zeer gelijkaardig aan andere variabele gegevenstypen doorgeven. Een collectie is een object dat wordt gebruikt voor het groeperen van gelijksoortige objecten of items. U moet de parameter in de functie definiëren als een 'Object' om een collectie met succes doorgeven aan de functie. Zodra de collectie in uw functie is, kunt u de collectie-gegevens met behulp van de eigenschap "Items".

• Start Microsoft Excel, klikt u op het tabblad 'Developer' en klik op 'Visual Basic' te lanceren de VBA-Editor. Klik op het "Invoegen" menu en klik op "Module" als u wilt invoegen op een nieuwe VBA-module.

• Voeg de volgende code een nieuwe Sub-procedure wilt maken:

  Private Sub createCollection()

• Kopieer en plak de volgende code om een nieuwe collectie maken:

   Dim productCollection As CollectionSet productCollection = New Collection 

• Items aan je collectie toevoegen door de volgende code toe te voegen:

   productCollection.Add "phones"productCollection.Add "pc"productCollection.Add "monitor"productCollection.Add "mobiles" 

• De "getCollection"-functie aanroepen en het collectieobject doorgeeft:

   Call getCollection(productCollection) 

  End Sub

• Kopieer en plak de volgende code om de functie van "getCollection" maken en weergeven van de items uit de collectie, met behulp van de "venster Direct:"

  Private Function getCollection (myCollection As Object)

   Debug.Print (myCollection.Item(1))Debug.Print (myCollection.Item(2))Debug.Print (myCollection.Item(3))Debug.Print (myCollection.Item(4)) 

  End Function

• Druk op "Ctrl" en "G" aan het venster Direct weergeven en klik binnen de procedure "createCollection". Druk op "F5" naar het programma uitvoert en de resultaten bekijken.