Démarrez Microsoft Excel, cliquez sur le "Promoteur" onglet et faites un clic "Visual Basic" pour lancer l'éditeur VBA. Cliquez sur le "Insérer" menu et clic "Module" pour insérer un nouveau module VBA.
Ajoutez le code suivant pour créer une nouvelle procédure sous:
Private Sub createCollection ()
Copiez et collez le code suivant pour créer une nouvelle collection:
ProductCollection Dim Comme Collection
Réglez ProductCollection = Nouvelle Collection
Ajouter des articles à votre collection en ajoutant le code suivant:
productCollection.Add "-téléphones"-
productCollection.Add "-pc"-
productCollection.Add "-moniteur"-
productCollection.Add "-mobiles"-
Appelez le "GetCollection" fonctionner et passer l'objet de collection:
Appelez GetCollection (ProductCollection)
End Sub
Copiez et collez le code suivant pour créer la "GetCollection" fonctionner et afficher les éléments de la collection en utilisant la "Fenêtre Exécution:"
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
Presse "Ctrl" et "Sol" pour afficher la fenêtre Exécution et cliquez à l'intérieur du "createCollection" procédure. Presse "F5" pour exécuter le programme et voir les résultats.