|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Pass en samling till en funktion i VBA

    Förbi en insamling till en funktion i Visual Basic for Applications ( VBA ) är mycket lik passerar andra variabla datatyper . En samling är ett objekt som används för att gruppera liknande objekt eller objekt . Du kommer att behöva definiera parametern i funktionen som ett " objekt " för att passera en samling framgångsrikt funktionen . När samlingen är i funktion , kan du komma åt insamling data med hjälp av " objekt " egendom . Instruktioner
    1

    Starta Microsoft Excel , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VBA Editor . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny VBA -modul
    2

    Lägg till följande kod för att skapa en ny sub förfarande : .

    Private Sub createCollection ( ) Addera 3

    Kopiera och klistra in följande kod för att skapa en ny kollektion :

    Dim productCollection som CollectionSet productCollection = ny samling
    4

    Lägg objekt till din samling genom att lägga till följande kod :

    productCollection.Add " telefoner " productCollection.Add " pc " productCollection.Add " monitor " productCollection.Add " mobiler "
    5

    Ring " getCollection " funktion och passera samlingen objektet :

    Call getCollection ( productCollection ) End Sub
    6

    Kopiera och klistra in följande kod för att skapa den " getCollection " -funktionen och visa objekt från samlingen med " 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

    Tryck " Ctrl " och " G " för att visa Immediate Window och klickar du i " createCollection " förfarande . Tryck " F5 " för att köra programmet och se resultatet .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Fel Inloggning till textfil för en VB.NET Application
    ·Hur vill kolla om ett tal är ett heltal i Visual Basic…
    ·Hur kompilera program på MS Access 2007
    ·VB Code till Center text i ett meddelande Box
    ·Visual Basic XY Position Fart Tutorial
    ·Microsoft Visual Database Tools
    ·Handledning för att lägga Visual Basic Word Bord
    ·Så ringer en ActiveX DLL från Visual Basic
    ·Hur man gör en ursprungliga arbetsytan i Visual Basic …
    ·Hur man hittar en aktuell mapp i VBS
    Utvalda artiklarna
    ·Hur man startar en C -kod från kommandotolken
    ·SSIS Kontroll Flow Vs. Data Flow
    ·Hur man använder ListView med en kryssruta i VBA
    ·Hur man använder en InputBox i VBScript
    ·Hur konvertera en array till en sträng i Perl
    ·Hur du överför en fil till en server med JSP
    ·Hur får man Python att få en bildvisning
    ·Hur får man ett objekt att röra sig med markören i N…
    ·Hur man ställer in en DataTable DataGrid att befolka T…
    ·Vilka är de olika Flödesschema Structures
    Copyright © Dator Kunskap http://www.dator.xyz