Excel VBA TextBox
Pole tekstowe jest po prostu jak pole, które służy do wprowadzania danych od użytkownika, pola tekstowe są częścią formularzy użytkownika i na karcie programisty w dowolnym arkuszu programu Excel. Jeśli chcemy tworzyć pola tekstowe w formularzu użytkownika, możemy wybrać opcję pola tekstowego z kontrolek formularza użytkownika w VBA lub w arkuszu roboczym możemy go wybrać z zakładki projektu.
VBA TextBox jest jednym z wielu elementów sterujących formularza użytkownika. Wyświetlając pole tekstowe w formularzu użytkownika, możemy poprosić go o wprowadzenie danych do pola tekstowego, a dane wprowadzone przez użytkownika mogą zostać zapisane w arkuszu za pomocą prostych kodów.
Formularze użytkownika są bardzo atrakcyjne w kodowaniu VBA. Ogromnie nam to pomaga, zwłaszcza gdy potrzebujemy informacji od użytkowników. W przypadku formularzy użytkownika mamy wiele kontrolek i aby uzyskać wartość wejściową od użytkowników, „Pole tekstowe” jest idealną opcją w formularzu użytkownika. Umieszczając pole tekstowe w formularzu użytkownika, możemy faktycznie powiedzieć użytkownikowi, aby wprowadził wymaganą wartość w polu tekstowym, które wyświetlamy. Jeśli nie masz pojęcia o polach tekstowych VBA, w tym artykule omówimy pola tekstowe VBA.
Jak wstawić TextBox w VBA UserForm?
Aby najpierw wstawić pole tekstowe, musimy wstawić formularz użytkownika. Aby wstawić formularz użytkownika, przejdź do Wstaw> Formularz użytkownika.
Jak tylko klikniesz na Formularz użytkownika, utworzymy Formularz użytkownika, tak jak inny moduł.
Kliknij Formularz użytkownika, aby wyświetlić elementy sterujące formularza użytkownika.
Z tego przybornika kontrolek wybierz „Pole tekstowe” i przeciągnij po formularzu użytkownika.
Dzięki temu możemy zobaczyć wiele właściwości powiązanych z tym polem tekstowym.
Właściwości TextBox
Naciśnij klawisz F4, aby wyświetlić właściwości pola tekstowego.
Jak widać, pole tekstowe ma nazwę, kolor, obramowanie, takie jak wiele. Teraz podaj poprawną nazwę, abyśmy mogli łatwo odwołać się do tego pola tekstowego podczas kodowania.
Przykład użycia TextBox w Userform
Zrealizujemy jeden z projektów z tekstem VBA. Stworzymy formularz użytkownika do wprowadzania danych do przechowywania danych pracowników.
Krok 1: W formularzu użytkownika narysuj Label.
Krok 2: Zmień domyślny tekst etykiety na „Imię pracownika”.
Krok 3: Przed etykietą narysuj pole tekstowe.
Krok 4: Nadaj polu tekstowemu odpowiednią nazwę: „EmpNameTextBox”.
Krok 5: Teraz narysuj jeszcze jedną etykietę poniżej pierwszej etykiety i wprowadź tekst jako „Identyfikator pracownika”.
Krok 6: Przed drugą etykietą narysuj jeszcze jedno pole tekstowe i nazwij je „EmpIDTextBox”.
Krok 7: Narysuj jeszcze jedną etykietę i wpisz tekst jako „Wynagrodzenie”.
Krok 8: Narysuj jeszcze jedno pole tekstowe przed etykietą „Salary” i nazwij je „SalaryTextBox”.
Krok 9: Teraz wstaw „Przycisk polecenia” z ToolBox.
Krok 10: Zmień tekst przycisku polecenia na „Prześlij”.
Ok, we are done with the User Form design part. Now we need to write the code to store the data entered in this user form. As of now, run the user form by pressing the F5 key. We should see a user form like this.
Step 11: Change the Caption of the User Form in the Properties window.
Step 12: Now double click on the Submit Command Button.As soon as you double click you will see this auto sub procedure like the below.
This is when you click on the Submit button, what should happen. We need to mention the tasks in the VBA code. In this project, our aim is to store the data entered in the text box as soon as we click on the Submit Button.
For this, first, create a Template like this in the worksheet named “Employees Sheet.”
Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub
Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub
Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub
Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
W tej chwili wszystkie pudełka są puste.
Uzupełnij najpierw szczegóły.
Teraz kliknij przycisk „Prześlij”. Będzie przechowywać dane w arkuszu.
W ten sposób możesz kontynuować wprowadzanie danych i nacisnąć i przesłać przycisk. To jest prosty formularz użytkownika do wprowadzania danych z polem tekstowym.
