Het passeren van een verzameling naar een functie in Visual Basic for Applications ( VBA ) is zeer vergelijkbaar met het passeren van andere variabele data types . Een verzameling is een object dat wordt gebruikt voor het bundelen soortgelijke objecten of voorwerpen . U moet de parameter definiëren in de functie als een " object " om een verzameling met succes door te geven aan de functie . Zodra de collectie is in uw functie , kunt u het verzamelen van gegevens openen door middel van de " Items" eigenschap . Instructies
Start Microsoft Excel 1 , klikt u op het tabblad " Developer " en klik op " Visual Basic " om de VBA -editor te starten . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe VBA -module plaatsen
2 Voeg de volgende code om een nieuwe sub- procedure te maken: . Private Sub createCollection ( ) op Twitter
Kopieer 3 en plak de volgende code om een nieuwe collectie te maken : Dim productCollection
Zoals CollectionSet productCollection = nieuwe Collectie
4 toevoegen items aan je verzameling door het toevoegen van de volgende code :
productCollection.Add " telefoons " productCollection.Add "pc " productCollection.Add "monitor " productCollection.Add " mobiles "
5 Roep de functie " getCollection " en passeren de collectie object : Call getCollection
( productCollection ) End Sub
Copy 6 en plak de volgende code om de " getCollection creëren " functie en geven de items uit de collectie met behulp van de " 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
Druk op " Ctrl " 7 en " G " om het venster Direct weer te geven en klikt u in de " createCollection " procedure . Druk op " F5 " om het programma uit te voeren en de resultaten bekijken .
|
