Passing en samling til en funktion i Visual Basic for Applications ( VBA ) er meget lig passerer andre variable datatyper. En samling er et objekt , der bruges til at gruppere lignende genstande eller elementer. Du bliver nødt til at definere parameter i funktionen som en " objekt" for at bestå en samling held til funktionen. Når samlingen er i din funktion, kan du få adgang til indsamling data ved hjælp af " Varer " ejendom . Instruktioner
1

Start Microsoft Excel , skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at starte VBA Editor. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny VBA -modul
2

Føj følgende kode til at oprette en ny sub procedure : .

Private Sub createCollection ()
3

Kopier og indsæt følgende kode til at oprette en ny samling : Hej

Dim productCollection Som CollectionSet productCollection = ny samling
4

Tilføj poster til din samling ved at tilføje følgende kode :

productCollection.Add " telefoner " productCollection.Add "PC" productCollection.Add "monitor " productCollection.Add " mobiler "
5

Kald " getCollection "-funktionen og videregive indsamlingen objekt : Hej

Ring getCollection ( productCollection ) End Sub
6

Kopier og indsæt følgende kode til at skabe den " getCollection "-funktionen og vise elementer fra samlingen ved hjælp af" Immediate Window: "

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
7

Tryk på " Ctrl" og "G " for at vise Immediate Window og klik i " createCollection " procedure. Tryk på " F5 " for at køre programmet og se resultaterne .