/ / Kolekcja kontrolek Excel VBA

Kolekcja kontrolek Excel VBA

Podczas tworzenia formularzy użytkownika w Excel VBA, możesz użyć Kontroluje gromadzenie w celu łatwego zapętlenia kontrolek i ustawienia właściwości każdej kontrolki na określoną wartość.

Forma użytkownika, którą utworzymy, wygląda następująco:

Kolekcja kontrolek w Excelu VBA

Aby utworzyć tę Userform, wykonaj następujące kroki:

1. Otwórz Edytor Visual Basic. Jeśli Eksplorator projektu nie jest widoczny, kliknij opcję Widok, Eksplorator projektu.

2. Kliknij Wstaw, Formularz użytkownika. Jeśli Zestaw narzędzi nie pojawi się automatycznie, kliknij opcję Widok, Przybornik. Twój ekran powinien być ustawiony jak poniżej.

Konfiguracja ekranu Userform w programie Excel VBA

3. Dodaj etykietę, pola tekstowe (najpierw u góry, drugi pod pierwszym itd.) I przycisk polecenia. Po zakończeniu, wynik powinien być zgodny z obrazem formularza użytkownika pokazanym wcześniej. Na przykład utwórz formant pola tekstowego, klikając pole tekstowe z Przybornika. Następnie możesz przeciągnąć pole tekstowe do formularza użytkownika.

4. Aby zmienić podpis przycisku Userform, etykiety i polecenia, kliknij przycisk View, Properties Window i kliknij poszczególne kontrolki.

5. Aby wyświetlić Formularz użytkownika, umieść przycisk polecenia w arkuszu i dodaj następującą linię kodu:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Objaśnienie: dodając vbModeless, możesz użyć Userform i pracować w arkuszu kalkulacyjnym w tym samym czasie.

Stworzyliśmy teraz pierwszą część Userform. Mimo, że wygląda już zgrabnie, nic się nie stanie, gdy klikniemy przycisk polecenia w Userform.

6. Otwórz Edytor Visual Basic.

7. W Project Explorerze kliknij dwukrotnie UserForm1.

8. Kliknij dwukrotnie przycisk polecenia.

9. Dodaj następujące linie kodu:

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

Wyjaśnienie: Wystarczy kilka linii kodu, aby wypełnić pola tekstowe numerami telefonów z arkusza. Użyliśmy operatora & do połączenia (łączenia) elementów. Te linie kodu działają, ponieważ nie zmieniliśmy nazw kontrolek w polu tekstowym (TextBox1, TextBox2, TextBox3 itp.) Aby zmienić nazwy kontrolek, kliknij przycisk View, Properties Window i kliknij poszczególne formanty.

Wynik po kliknięciu przycisku polecenia na arkuszu:

Wynik kontroli kontroli

Przeczytaj również: