Passaggio di una raccolta di una funzione in Visual Basic, Applications Edition (VBA ) è molto simile al trasferimento di altri tipi di dati variabili . Una raccolta è un oggetto che viene utilizzato per raggruppare oggetti o oggetti simili . Sarà necessario definire il parametro della funzione come un " oggetto" per passare una raccolta con successo alla funzione. Una volta che la collezione è in funzione , è possibile accedere ai dati di raccolta utilizzando la proprietà "Oggetti" . Istruzioni
1
Avviare Microsoft Excel , fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per avviare l'editor di VBA . Fare clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo VBA
2
Aggiungere il seguente codice per creare una nuova procedura secondaria : .
CreateCollection Private Sub ( )
3
Copia e incolla il seguente codice per creare una nuova collezione :
Dim ProductCollection Come ProductCollection CollectionSet = nuova Collezione
4
Aggiungi articoli per la vostra collezione con l'aggiunta del seguente codice :
productCollection.Add "telefoni " productCollection.Add "pc" productCollection.Add "monitor " productCollection.Add " mobiles "
5
richiamare la funzione " getCollection " e passare l'oggetto di raccolta :
chiamata getCollection ( ProductCollection ) End Sub
6
Copia e incolla il seguente codice per creare il " getCollection "la funzione e visualizzare gli elementi della collezione utilizzando il" finestra immediata : "
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
Premere " Ctrl" e " G " per visualizzare la finestra immediata e fare clic all'interno della procedura " createCollection " . Premere il tasto " F5 " per eseguire il programma e visualizzare i risultati .
