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

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

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

Agregue el código siguiente para crear un nuevo procedimiento sub : .

CreateCollection Sub Private ()
3

Copia y pega el siguiente código para crear una nueva colección :

ProductCollection As ProductCollection CollectionSet = New Collection
4

Agregar artículos a su colección agregando el siguiente código :

productCollection.Add "teléfonos " productCollection.Add "pc" productCollection.Add "monitor" productCollection.Add " mobiles "
5

llamar a la función " getCollection " y pase el objeto de colección :

getCollection Call ( ProductCollection ) End Sub
6

Copia y pega el siguiente código para crear el " getCollection " la función y mostrar los elementos de la colección a través del" ventana Inmediato : "

privado función 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

Presione " 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.