/ / Excel VBA Controls Collection

Excel VBA Controls Collection

Når du opretter brugerformularer i Excel VBA, kan du bruge Styrer indsamling at let løbe gennem kontroller og indstille en egenskab af hver kontrol til en bestemt værdi.

Brugerformularen, vi skal oprette, ser ud som følger:

Kontrolindsamling i Excel VBA

For at oprette denne brugerformular, udfør følgende trin:

1. Åbn Visual Basic Editor. Hvis Project Explorer ikke er synlig, skal du klikke på Vis, Project Explorer.

2. Klik på Indsæt, Brugerformular. Hvis værktøjskassen ikke vises automatisk, skal du klikke på Vis, Værktøjskasse. Din skærm skal opsættes som nedenfor.

Brugerform Screen Setup i Excel VBA

3. Tilføj etiketten, tekstbokse (først øverst, den anden under den første og så videre) og kommandoknappen. Når dette er gennemført, skal resultatet være i overensstemmelse med billedet af den tidligere viste brugerformular. For eksempel opret en tekstboks kontrol ved at klikke på TextBox fra Toolbox. Derefter kan du trække en tekstboks på Brugerformularen.

4. Hvis du vil ændre billedteksten til brugerformularen, etiket og kommandoknappen, skal du klikke på Vis, Egenskaber Vindue og klikke på hver kontrol.

5. For at vise brugerformularen skal du placere en kommandoknap på dit regneark og tilføje følgende kode linje:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Forklaring: Ved at tilføje vbModeless kan du bruge brugerformularen og arbejde i dit regneark samtidig.

Vi har nu oprettet den første del af brugerformularen. Selv om det ser pænt ud, sker der intet endnu, når vi klikker på kommandoknappen på Brugerformularen.

6. Åbn Visual Basic Editor.

7. Dobbeltklik på UserForm1 i Project Explorer.

8. Dobbeltklik på kommandoknappen.

9. Tilføj følgende kodelinjer:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Forklaring: Med nogle få linjer kode kan vi udfylde tekstfelterne med telefonnumrene fra arket. Vi brugte & operatøren til at sammenkæde (deltage) elementerne. Disse kodeord fungerer, fordi vi ikke ændrede navnene på tekstboksen kontroller (TextBox1, TextBox2, TextBox3 osv.). Hvis du vil ændre navnene på kontrollerne, skal du klikke på Vis, Egenskaber vindue og klikke på hver kontrol.

Resultat, når du klikker på kommandoknappen på arket:

Kontrollerer samlingsresultat

Læs også: