Come passare un Collection a una funzione in VBA

December 7

Come passare un Collection a una funzione in VBA


Passando una collezione a una funzione in Visual Basic for Applications (VBA) è molto simile a passare altri tipi di dati variabili. Una raccolta è un oggetto che viene utilizzato per raggruppare oggetti o oggetti simili. Sarà necessario definire il parametro nella funzione come un "oggetto" per passare una collezione con successo alla funzione. Una volta che la collezione è in funzione, è possibile accedere ai dati di raccolta utilizzando il "Elementi" di proprietà.

istruzione

1 Avviare Microsoft Excel, fare clic sulla scheda "Sviluppatore" e fare clic su "Visual Basic" per avviare l'editor 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 routine Sub:

Private Sub createCollection ()

3 Copiare e incollare il seguente codice per creare una nuova collezione:

Dim productCollection As Collection
Set productCollection = New Collection

4 Aggiungere elementi alla tua collezione aggiungendo il seguente codice:

productCollection.Add "phones"
productCollection.Add "pc"
productCollection.Add "monitor"
productCollection.Add "mobiles"

5 Chiamare la funzione "GetCollection" e passare l'oggetto di raccolta:

Call getCollection(productCollection)

End Sub

6 Copiare e incollare il seguente codice per creare la funzione "GetCollection" 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 il tasto "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.


Articoli Correlati