/ / Excel VBA Controls Collection

Excel VBA Controls Collection

När du skapar Användarformulär i Excel VBA, kan du använda Kontrollerar samling att enkelt gå igenom kontrollerna och ange en egenskap för varje kontroll till ett visst värde.

Användarformen vi ska skapa ser ut som följer:

Kontroller samling i Excel VBA

För att skapa detta användarformulär, utför följande steg:

1. Öppna Visual Basic Editor. Om Project Explorer inte är synligt klickar du på Visa, Project Explorer.

2. Klicka på Insert, Userform. Om Verktygslådan inte visas automatiskt klickar du på Visa, Verktygslåda. Din skärm bör ställas in enligt nedan.

Userform Screen Setup i Excel VBA

3. Lägg till etiketten, textrutorna (först överst, den andra under den första och så vidare) och kommandoknappen. När detta har slutförts ska resultatet överensstämma med bilden av användarformen som visats tidigare. Skapa till exempel en textruta kontroll genom att klicka på Textbox från Verktygslådan. Därefter kan du dra en textruta i användarformuläret.

4. För att ändra bildtexten på användarformat, etikett och kommandoknapp, klicka på Visa, Egenskaper fönstret och klicka på varje kontroll.

5. För att visa användarformen, placera en kommandoknapp på ditt arbetsblad och lägg till följande kodrad:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Förklaring: Genom att lägga till vbModeless kan du använda användarformen och arbeta i ditt arbetsblad samtidigt.

Vi har nu skapat den första delen av Userform. Även om det ser snyggt ut, kommer ingenting att hända ännu när vi klickar på kommandoknappen på användarformuläret.

6. Öppna Visual Basic Editor.

7. Dubbelklicka på UserForm1 i Project Explorer.

8. Dubbelklicka på kommandoknappen.

9. Lägg till följande kodlinjer:

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

Förklaring: Med några få rader kod kan vi fylla i textrutorna med telefonnumren från arket. Vi använde & operatören för att sammanfoga (ansluta) elementen. Dessa kodrutor fungerar eftersom vi inte ändra namnen på textrutans kontroller (TextBox1, TextBox2, TextBox3 osv.). För att ändra namnen på kontrollerna, klicka på Visa, Egenskaper fönstret och klicka på varje kontroll.

Resultat när du klickar på kommandoknappen på arket:

Kontrollerar samlingsresultat

Läs också: