Når du oppretter brukerformer i Excel VBA, kan du bruke Kontrollerer innsamling for enkelt å gå gjennom kontroller og sette en egenskap for hver kontroll til en bestemt verdi.
Brukerformen vi skal lage ser slik ut:
For å opprette dette brukerskjemaet, utfør følgende trinn:
1. Åpne Visual Basic Editor. Hvis Project Explorer ikke er synlig, klikker du View, Project Explorer.
2. Klikk Sett inn, Brukerform. Hvis verktøykassen ikke vises automatisk, klikker du på Vis, Verktøykasse. Skjermen din skal konfigureres som nedenfor.
3. Legg til etiketten, tekstboksene (først øverst, den andre under den første og så videre) og kommandoknappen. Når dette er fullført, bør resultatet være i samsvar med bildet av brukerskjemaet som ble vist tidligere. For eksempel kan du opprette en tekstbokskontroll ved å klikke på TextBox fra verktøykassen. Deretter kan du dra en tekstboks på brukerskjemaet.
4. Hvis du vil endre bildeteksten til brukerform, etikett og kommandoknapp, klikker du på Vis, Egenskapsvindu og klikker på hver kontroll.
5. For å vise brukerskjemaet, plasser en kommandoknapp i regnearket og legg til følgende kodelinje:
Private Sub CommandButton1_Click ()
UserForm1.Show vbModeless
Slutt Sub
Forklaring: ved å legge til vbModeless, kan du bruke brukerskjemaet og arbeide i regnearket ditt samtidig.
Vi har nå laget den første delen av Userform. Selv om det ser pent ut allerede, vil ingenting skje ennå når vi klikker på kommandoknappen på brukerskjemaet.
6. Åpne Visual Basic Editor.
7. I Project Explorer dobbeltklikker du på UserForm1.
8. Dobbeltklikk på kommandoknappen.
9. Legg til følgende kodelinjer:
Private Sub CommandButton1_Click ()
Dim i As Integer
For i = 1 til 10
Kontroller ("TextBox" og i) .Value = Celler (i + 1, 1) .Value
Neste jeg
Slutt Sub
Forklaring: Med bare noen få kodelinjer kan vi fylle tekstboksene med telefonnumrene fra arket. Vi brukte operatøren & for å sammenkoble (sammenføye) elementene. Disse kodelinjene fungerer fordi vi ikke endret navnene på tekstbokskontrollene (TextBox1, TextBox2, TextBox3, etc). Hvis du vil endre navnene på kontrollene, klikker du på Vis, Egenskaper -vinduet og klikker på hver kontroll.
Resultat når du klikker på kommandoknappen på arket:
