Hvordan passere en samling til en funksjon i VBA

Hvordan passere en samling til en funksjon i VBA


Passerer en samling til en funksjon i Visual Basic for Applications (VBA) er svært lik passerer andre variable datatyper. En samling er et objekt som brukes for å gruppere lignende objekter eller elementer. Du må definere parameter i funksjonen som en "objekt" for å passere en samling med hell til funksjonen. Når samlingen er i funksjon, kan du få tilgang til samlingsdata ved å bruke "elementer" eiendom.

Bruksanvisning

1 Start Microsoft Excel, klikker du på "Utvikler" og klikk "Visual Basic" for å starte VBA Editor. Klikk på "Insert" -menyen og klikk "Module" for å sette inn en ny VBA-modul.

2 Legg til følgende kode for å opprette en ny under prosedyre:

Private Sub createCollection ()

3 Kopier og lim inn følgende kode for å opprette en ny samling:

Dim productCollection As Collection
Set productCollection = New Collection

4 Legg produkter til samlingen din ved å legge til følgende kode:

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

5 Kaller "getCollection" -funksjonen og bestå samling objekt:

Call getCollection(productCollection)

End Sub

6 Kopier og lim inn følgende kode for å skape "getCollection" -funksjonen og vise elementer fra samlingen ved hjelp av "Immediate Window:"

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 Trykk "Ctrl" og "G" for å vise Umiddelbar vinduet og klikk inne i "createCollection" prosedyre. Trykk "F5" for å kjøre programmet og se resultatet.