L'adoption d'une collection à une fonction dans Visual Basic pour Applications ( VBA) est très semblable au passage d'autres types de données variables. Une collection est un objet qui est utilisé pour grouper des objets ou des éléments similaires. Vous devrez définir le paramètre dans la fonction comme un «objet» afin de passer avec succès une collection à la fonction. Une fois que la collection est dans votre fonction , vous pouvez accéder aux données de la collection en utilisant la propriété «Articles» . Instructions 1 Démarrez Microsoft Excel, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l'éditeur VBA . Cliquez sur le menu "Insertion" et cliquez sur " Module " pour insérer un nouveau module VBA 2 Ajoutez le code suivant pour créer un nouveau sous procédure : . CreateCollection Private Sub () 3 Copiez et collez le code suivant pour créer une nouvelle collection : ProductCollection As ProductCollection CollectionSet = nouvelle Collection 4 Ajouter articles à votre collection en y ajoutant le code suivant : productCollection.Add "téléphones " productCollection.Add "pc" productCollection.Add " moniteur " productCollection.Add " portable " 5 appeler la fonction " GetCollection » et passer l'objet de collection : GetCollection d'appel ( ProductCollection ) End Sub 6 Copier et coller le code suivant pour créer le " GetCollection " fonction et afficher les éléments de la collection en utilisant la fenêtre" immédiate: " privé GetCollection de fonction ( 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 Appuyez sur "Ctrl " et " G" pour afficher la fenêtre immédiate et cliquez dans la procédure de « createCollection " . Appuyez sur "F5" pour exécuter le programme et voir les résultats.
|