Ako prejsť kolekciu na funkciu v jazyku VBA

Odovzdávanie zbierku na funkciu v jazyku Visual Basic for Applications ( VBA ) je veľmi podobné zloženie ďalších premenných dátové typy . Kolekcia je objekt , ktorý sa používa na zoskupenie podobných objekty alebo predmety . Budete musieť definovať parameter vo funkcii ako " objekt " , aby sa prejsť kolekciu úspešne funkciu . Po zbere je v funkcie môžete pristupovať k dátam na výber pomocou " položky " vlastníctva . Pokyny dovolená 1

Spustite program Microsoft Excel , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie editora VBA . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový modul VBA
2

Pridajte nasledujúci kód vytvoriť novú čiastkové postup : .

Private Sub createCollection ( )
3

skopírujte a vložte nasledujúci kód vytvoriť novú kolekciu :

Dim productCollection Ako CollectionSet productCollection = Nová kolekcia
4

Pridať položky do vašej zbierky pridaním nasledujúci kód : Spojené

productCollection.Add " telefóny " productCollection.Add " pc " productCollection.Add " Monitor " productCollection.Add " mobily "
5

Volanie funkcie " getCollection " a odovzdať objekt kolekcie :

Volajte getCollection ( productCollection ) End Sub
6

skopírujte a vložte nasledujúci kód na vytvorenie " getCollection " Funkcie a zobrazenie položiek z kolekcie pomocou " Okno Immediate : "

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

Stlačením tlačidla " Ctrl " a " G " sa zobrazí okno a okamžitých kliknite v postupe " createCollection " . Stlačením tlačidla " F5 " pre spustenie programu a zobrazenie výsledkov .

• Predchádzajúca strana: Ako vymazať a naplnenie zoznamov v aplikácii Visual Basic 2010 
• Ďalšia strana: Ako sa pripojiť VB.NET s Oracle