Jak przechwytywać dane z formularzy użytkownika w Excelu

Excel umożliwia wykorzystanie Visual Basic do rozbudowy arkuszy o własne formularze (UserForms). Dzięki nim możesz wyświetlić osobny formularz wprowadzania danych, co jest wygodne dla osób nieobeznanych z tradycyjnymi arkuszami. Kilka linijek kodu VBA pozwoli zapisać wprowadzone informacje w nowych wierszach arkusza.

Definiowanie pól

1. Uruchom Excel i w pierwszym wierszu (komórka A1) wpisz nazwy wszystkich pól, które chcesz zebrać, idąc w prawo.
2. Przejdź do zakładki Developer** i kliknij Visual Basic. Otworzy się okno edytora VBA.
3. Z paska narzędzi (Toolbox) wybierz ikonę A (Label) i przeciągnij ją na formularz UserForm1 w miejscu, w którym ma znajdować się pierwsze pole.
4. W właściwości Caption zmień etykietę na bardziej opisową, np. „Imię”. Powtórz czynność dla każdej kolejnej kolumny w arkuszu.

Dodawanie pól tekstowych

1. Z Toolbox wybierz TextBox i umieść go po prawej stronie każdej etykiety.
2. Jeśli formularz ma niewiele pól, możesz pozostawić domyślne nazwy (TextBox1, TextBox2 …). Przy większej liczbie pól warto zmienić właściwość (Name) tak, aby odpowiadała nazwie etykiety – ułatwi to późniejsze odwołania w kodzie.
3. Upewnij się, że każda etykieta ma swój odpowiadający jej TextBox.

Dodawanie przycisku „Wyślij”

1. W Toolbox kliknij ikonę CommandButton (standardowy przycisk Windows) i przeciągnij go w wybrane miejsce, najczęściej pod ostatnim polem tekstowym.
2. W właściwości Caption wpisz np. „Wyślij dane”, aby użytkownik wiedział, że ma kliknąć ten przycisk, aby zapisać informacje.

Dodawanie kodu VBA

1. Dwukrotnie kliknij przycisk „Wyślij dane”. Otworzy się okno kodu dla tego przycisku.
2. Wstaw poniższy kod pomiędzy Private Sub CommandButton1_Click() a End Sub (dostosuj nazwy przycisków i TextBoxów, jeśli je zmieniłeś):

Dim eRow As Long
 eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 Cells(eRow, 1) = TextBox1.Text   'Imię
 Cells(eRow, 2) = TextBox2.Text   'Nazwisko
 '… dodaj kolejne wiersze dla pozostałych pól …
End Sub

3. Kliknij przycisk Run (trójkąt) w górnym pasku VBA, aby uruchomić formularz i rozpocząć zbieranie danych.