Når du opretter brugerformularer i Excel VBA, du kan bruge Kontrollerer indsamling for nemt at gå gennem kontroller og indstille en egenskab for hver kontrol til en bestemt værdi.
Brugerformen, vi skal oprette, ser således ud:
For at oprette denne brugerformular skal du udføre følgende trin:
1. Åbn Visual Basic Editor. Hvis Project Explorer ikke er synlig, skal du klikke på View, Project Explorer.
2. Klik på Indsæt, brugerform. Hvis Toolbox ikke vises automatisk, skal du klikke på View, Toolbox. Din skærm skal konfigureres som nedenfor.
3. Tilføj etiketten, tekstfelterne (først øverst, den anden under den første osv.) Og kommandoknappen. Når dette er udført, skal resultatet være i overensstemmelse med billedet af brugerformularen vist tidligere. For eksempel kan du oprette en tekstbokskontrol ved at klikke på TextBox fra værktøjskassen. Dernæst kan du trække et tekstfelt på brugerformularen.
4. Hvis du vil ændre billedteksten for brugerformularen, etiketten og kommandoknappen, skal du klikke på Vis, vindue Egenskaber og klikke på hver kontrol.
5. For at vise brugerformularen skal du placere en kommandoknap på dit regneark og tilføje følgende kodelinje:
Privat underkommandoButton1_Click ()
UserForm1.Show vbModeless
Afslut Sub
Forklaring: ved at tilføje vbModeless kan du bruge brugerformularen og arbejde i dit regneark på samme tid.
Vi har nu oprettet den første del af brugerformularen. Selvom det allerede ser pænt ud, vil der endnu ikke ske noget, når vi klikker på kommandoknappen på brugerformularen.
6. Åbn Visual Basic Editor.
7. I Project Explorer skal du dobbeltklikke på UserForm1.
8. Dobbeltklik på kommandoknappen.
9. Tilføj følgende kodelinjer:
Privat underkommandoButton1_Click ()
Dim i As Integer
For i = 1 til 10
Controls ("TextBox" & i) .Value = Celler (i + 1, 1) .Værdi
Næste i
Afslut Sub
Forklaring: Med blot et par linjer kode kan vi udfylde tekstfelterne med telefonnumre fra arket. Vi brugte operatøren & til at sammenkoble (slutte) elementerne. Disse kodelinjer fungerer, fordi vi ikke ændrede navnene på tekstbokskontrollerne (TextBox1, TextBox2, TextBox3 osv.). Hvis du vil ændre navnene på kontrollerne, skal du klikke på Vis, vindue Egenskaber og klikke på hver kontrol.
Resultat, når du klikker på kommandoknappen på arket:
