Förbi en insamling till en funktion i Visual Basic for Applications ( VBA ) är mycket lik passerar andra variabla datatyper . En samling är ett objekt som används för att gruppera liknande objekt eller objekt . Du kommer att behöva definiera parametern i funktionen som ett " objekt " för att passera en samling framgångsrikt funktionen . När samlingen är i funktion , kan du komma åt insamling data med hjälp av " objekt " egendom . Instruktioner
1
Starta Microsoft Excel , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VBA Editor . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny VBA -modul
2
Lägg till följande kod för att skapa en ny sub förfarande : .
Private Sub createCollection ( ) Addera 3
Kopiera och klistra in följande kod för att skapa en ny kollektion :
Dim productCollection som CollectionSet productCollection = ny samling
4
Lägg objekt till din samling genom att lägga till följande kod :
productCollection.Add " telefoner " productCollection.Add " pc " productCollection.Add " monitor " productCollection.Add " mobiler "
5
Ring " getCollection " funktion och passera samlingen objektet :
Call getCollection ( productCollection ) End Sub
6
Kopiera och klistra in följande kod för att skapa den " getCollection " -funktionen och visa objekt från samlingen med " 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
Tryck " Ctrl " och " G " för att visa Immediate Window och klickar du i " createCollection " förfarande . Tryck " F5 " för att köra programmet och se resultatet .
