Jak przechwycić dane z formularzy użytkownika do arkusza kalkulacyjnego Excel

W programie Excel można użyć języka Visual Basic, aby dodać wiele różnych funkcji do arkuszy kalkulacyjnych, w tym „UserForms”. Za pomocą UserForms można wyświetlić formularz wejściowy użytkownik niezależny od głównego arkusza, który jest przydatny do przechwytywania danych od osób, które mogą nie być zaznajomione z arkuszami kalkulacyjnymi. Dzięki niewielkiemu kodowi Visual Basic możesz dodać wszystkie te dane do arkusza kalkulacyjnego w nowych wierszach.

Zdefiniuj swoje pola
Uruchom program Excel. Wprowadź nazwy wszystkich pól, które chcesz przechwycić, w górnym wierszu, zaczynając od „A1” i pracując w prawo. Kliknij „Developer”, a następnie „Visual Basic”. Pojawi się okno Visual Basic. Kliknij ikonę „A” w Przyborniku, a następnie kliknij i przeciągnij w oknie „UserForm1” w miejscu, w którym ma się znaleźć pierwsze pole formularza. Edytuj etykietę, zmieniając właściwość „Podpis” na coś bardziej opisowego, na przykład „Imię”, na przykład. Utwórz etykietę dla każdego pola wpisanego w arkuszu.

Dodaj swoje pola tekstowe
Wybierz ikonę „TextBox” z Przybornika i przeciągnij pole tekstowe po prawej stronie pierwszej etykiety. Jeśli będziesz używać tylko kilku pól, dopuszczalne jest pozostawienie właściwości „(Nazwa)” jako domyślny „TextBox1”. Jeśli jednak potrzebujesz dużej liczby pól, może to być mylące, dlatego powinieneś je edytować, aby pasowały do ​​już utworzonych etykiet. Upewnij się, że każda etykieta ma odpowiednie pole tekstowe.
< h3> Dodaj przycisk Prześlij
Kliknij ikonę „Przycisk polecenia” w Przyborniku, który wygląda jak standardowy przycisk w stylu Windows. Kliknij i przeciągnij go do wymaganego rozmiaru i lokalizacji w UserForm1. poniżej lub w pobliżu końcowego pola tekstowego w formularzu Zmień właściwość „Podpis” przycisku na „Prześlij dane ”Lub coś podobnego, wskazującego użytkownikowi, że muszą kliknąć ten przycisk, aby przesłać swoje dane.

Dodaj kod Visual Basic
Kliknij dwukrotnie przycisk. Wpisz następujący kod między „Private Sub” i „End Sub”: eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row Następnie rozpocznij nową linię poniżej tego i następnie wprowadź następującą komendę: Cells (erow, 1) = TextBox1.Text Jeśli zmienisz nazwy pól tekstowych, zmień „TextBox1” na nazwę, którą podałeś w pierwszym polu tekstowym. Zrób to dla każdego utworzonego pola wprowadzania, rozpoczynając nowy wiersz i wprowadzając odpowiednie nazwy pól tekstowych. Ponadto dla każdej nowej linii zwiększ liczbę w nawiasach o jeden. Na przykład następna linia może wyglądać następująco: Cells (erow, 2) = TextBox2.Text Kliknij przycisk „Play” w górnej części okna, aby rozpocząć przechwytywanie danych.

URL:https://pl.whycomputer.com/oprogramowanie/100311705.html