Πώς να περάσει μια συλλογή σε λειτουργία σε VBA

Περνώντας μια συλλογή σε μια συνάρτηση της Visual Basic for Applications ( VBA ) είναι πολύ παρόμοια με την προσπέραση άλλων τύπων μεταβλητών δεδομένων . Μια συλλογή είναι ένα αντικείμενο που χρησιμοποιείται για την ομαδοποίηση παρόμοια αντικείμενα ή αντικείμενα . Θα πρέπει να ορίσετε την παράμετρο στη λειτουργία ως " αντικείμενο " για να περάσει μια συλλογή με επιτυχία σε λειτουργία . Μόλις η συλλογή είναι σε λειτουργία σας , μπορείτε να έχετε πρόσβαση στα δεδομένα συλλογής χρησιμοποιώντας τα " αντικείμενα " ιδιοκτησίας. Οδηγίες
Η 1

Ξεκινήστε το Microsoft Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VBA . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα VBA 2

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία ρουτίνας : .

Private Sub createCollection ( )
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε μια νέα συλλογή :

Dim ProductCollection Όπως CollectionSet ProductCollection = νέα Συλλογή
Η 4

Προσθήκη αντικείμενα στη συλλογή σου με την προσθήκη του παρακάτω κώδικα :

productCollection.Add " τηλέφωνα " productCollection.Add " pc " productCollection.Add " οθόνη " productCollection.Add " κινητά "
Η 5

Καλέστε τη λειτουργία " getCollection " και να περάσει το αντικείμενο της συλλογής :

Καλέστε getCollection ( ProductCollection ) End Sub
Η 6

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσει την " getCollection " λειτουργία και να εμφανίσετε τα αντικείμενα από τη συλλογή με τη χρήση του " Άμεση Window : "

getCollection Private Function ( 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 Πατήστε το πλήκτρο " Ctrl " και " G" για να εμφανιστεί το παράθυρο άμεσης παρακολούθησης και κάντε κλικ στο εσωτερικό της διαδικασίας " createCollection " . Πατήστε το πλήκτρο " F5 " για να τρέξει το πρόγραμμα και να δείτε τα αποτελέσματα .
Η
εικόνων