Passerer en samling til en funksjon i Visual Basic for Applications ( VBA ) er svært lik passerer andre variable datatyper . En samling er et objekt som er brukt for å gruppere lignende objekter eller elementer. Du må definere parameter i funksjonen som en " objekt" for å passere en samling med hell til funksjonen. Når samlingen er i funksjon din , kan du få tilgang til innsamling av data ved hjelp av " Elementer " eiendom . Instruksjoner
en

Start Microsoft Excel , klikker du på " Developer " og klikk " Visual Basic " for å starte VBA Editor. Klikk på " Insert"-menyen og klikk " Module" å sette inn en ny VBA -modul
2

Legg til følgende kode for å opprette en ny sub prosedyre : .

Private Sub createCollection ( )
3

Kopier og lim inn følgende kode for å opprette en ny samling : en

Dim productCollection Som CollectionSet productCollection = ny samling
4

Legg elementer til samlingen din ved å legge til følgende kode :

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

Ring " getCollection "-funksjonen og bestå samling objekt : en

Ring getCollection ( productCollection ) End Sub
6

Kopier og lim inn følgende kode for å opprette " getCollection "-funksjonen og vise elementene fra samlingen ved hjelp av" Immediate Window : "

Private Function getCollection ( myCollection som objekt ) Debug.Print ( myCollection.Item ( 1 ) ) Debug.Print ( myCollection.Item ( 2 ) ) Debug.Print ( myCollection.Item ( 3 ) ) Debug.Print ( myCollection.Item ( 4 ) ) End Function
7

Trykk " Ctrl" og " G " for å vise Umiddelbar Window og klikk inne i " createCollection " prosedyre . Trykk "F5 " for å kjøre programmet og vise resultatene .