/ / Excel VBA-besturing verzameling

Excel VBA Controls Collection

Bij het maken van Userforms in Excel VBA, je kunt de gebruiken Regeling verzameling om gemakkelijk door besturingselementen te bladeren en een eigenschap van elk besturingselement in te stellen op een specifieke waarde.

Het Userform dat we gaan maken ziet er als volgt uit:

Bestuurt collectie in Excel VBA

Voer de volgende stappen uit om dit gebruikersformulier te maken:

1. Open de Visual Basic-editor. Als de Projectverkenner niet zichtbaar is, klikt u op Beeld, Projectverkenner.

2. Klik op Invoegen, Gebruikersformulier. Als de Toolbox niet automatisch verschijnt, klikt u op Beeld, Werkset. Uw scherm moet worden ingesteld zoals hieronder.

Gebruikersformulier Scherminstellingen in Excel VBA

3. Voeg het label, de tekstvakken (eerst bovenaan, de tweede onder de eerste, enzovoort) en de opdrachtknop toe. Zodra dit is voltooid, moet het resultaat consistent zijn met de afbeelding van het eerder weergegeven gebruikersformulier. U kunt bijvoorbeeld een tekstvakbesturingselement maken door in de werkset op Tekstvak te klikken. Vervolgens kunt u een tekstvak op het gebruikersformulier slepen.

4. Als u het bijschrift van de knop Userform, label en opdracht wilt wijzigen, klikt u op Weergave, Venster Eigenschappen en klikt u op elk besturingselement.

5. Om het gebruikersformulier weer te geven, plaatst u een opdrachtknop op uw werkblad en voegt u de volgende coderegel toe:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Uitleg: door vb Modeless toe te voegen, kunt u het Userform gebruiken en tegelijkertijd in uw werkblad werken.

We hebben nu het eerste deel van het gebruikersformulier gemaakt. Hoewel het er al goed uitziet, zal er nog niets gebeuren als we op de opdrachtknop op het gebruikersformulier klikken.

6. Open de Visual Basic-editor.

7. Dubbelklik in de projectverkenner op UserForm1.

8. Dubbelklik op de opdrachtknop.

9. Voeg de volgende coderegels toe:

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

Uitleg: Met slechts een paar regels code kunnen we de tekstvakken vullen met de telefoonnummers van het blad. We gebruikten de operator & om de elementen samen te voegen (samen te voegen). Deze coderegels werken omdat we de namen van de tekstvakbesturingselementen (TextBox1, TextBox2, TextBox3, enz.) Niet hebben gewijzigd. Om de namen van de besturingselementen te wijzigen, klikt u op Beeld, Eigenschappenvenster en klikt u op elk besturingselement.

Resultaat wanneer u op de opdrachtknop op het blad klikt:

Regelt het verzamelresultaat

Lees ook: