Passando uma coleção para uma função em Visual Basic for Applications (VBA) é muito semelhante à passagem de outros tipos de dados variáveis. Uma coleção é um objeto que é usado para agrupar objetos ou itens semelhantes . Você precisará definir o parâmetro na função como um "objeto " , a fim de passar uma coleção com sucesso para a função. Uma vez que a coleção está na sua função, você pode acessar os dados de cobrança usando os " itens" de propriedade . Instruções
1

Inicie o Microsoft Excel , clique na guia "Desenvolvedor" e clique em " Visual Basic " para iniciar o Editor do VBA. Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo VBA
2

Adicione o seguinte código para criar um novo procedimento sub: .

Private Sub createCollection ()
3

Copie e cole o seguinte código para criar uma nova coleção :

Dim ProductCollection Como CollectionSet ProductCollection = New Collection
4

Adicionar itens para sua coleção , adicionando o seguinte código:

productCollection.Add "telefones " productCollection.Add "pc" productCollection.Add "Monitor" " mobiles " productCollection.Add
5

Chame a função " getCollection " e passar o objeto de coleção :

Chame getCollection ( ProductCollection ) End Sub
6

copie e cole o seguinte código para criar o " getCollection " função e exibir os itens da coleção usando a " janela imediata : "

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

Pressione " Ctrl" e "G" para visualizar a janela imediata e clique dentro do procedimento " createCollection " . Pressione " F5" para executar o programa e ver os resultados.