Cómo pasar una colección a una función en VBA

Al pasar una colección a una función en Visual Basic para Aplicaciones (VBA) es muy similar a pasar a otros tipos de datos variables. Una colección es un objeto que se utiliza para agrupar objetos o artículos similares. Tendrá que definir el parámetro de la función como un "objeto" con el fin de pasar una colección con éxito a la función. Una vez que la colección está en su función, puede acceder a los datos de la colección mediante la propiedad "Artículos".

Instrucciones

1 Iniciar Microsoft Excel, haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para iniciar el Editor de VBA. Haga clic en el menú "Insertar" y haga clic en "Módulo" para insertar un nuevo módulo de VBA.

2 Agregue el código siguiente para crear un nuevo procedimiento de substitución:

Private Sub createCollection ()

3 Copiar y pegar el siguiente código para crear una nueva colección:

Dim productCollection As Collection
Set productCollection = New Collection

4 Añadir elementos a su colección agregando el código siguiente:

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

5 Llame a la función "getCollection" y pasar el objeto de colección:

Call getCollection(productCollection)

End Sub

6 Copia y pega el código siguiente para crear la función "getCollection" y mostrar los elementos de la colección utilizando la "ventana Inmediato:"

Función privada getCollection (myCollection como objeto)

Debug.Print (myCollection.Item(1))
Debug.Print (myCollection.Item(2))
Debug.Print (myCollection.Item(3))
Debug.Print (myCollection.Item(4))

End Function

7 Pulse la tecla "Ctrl" y "G" para mostrar la ventana Inmediato y haga clic dentro del procedimiento "createCollection". Pulse la tecla "F5" para ejecutar el programa y ver los resultados.