Formularz użytkownika Excel VBA - Jak stworzyć interaktywny formularz użytkownika?

Spisie treści

Formularz użytkownika Excel VBA

Formularz użytkownika Excel VBA

Formularz użytkownika w VBA to niestandardowe formularze zdefiniowane przez użytkownika, które są przeznaczone do pobierania danych wejściowych od użytkownika w formacie formularza, mają różne zestawy elementów sterujących do dodawania, takie jak pola tekstowe, etykiety pól wyboru itp., Aby pomóc użytkownikowi wprowadzić wartość i przechowuje wartość w arkuszu, każda część formularza użytkownika zawiera unikalny kod.

Formularz użytkownika to obiekt w interfejsie programu Excel, a wewnątrz tego formularza użytkownika możemy tworzyć inne przydatne niestandardowe okna dialogowe, aby uzyskać dane od użytkownika. Kiedy pracujesz z plikiem makra utworzonym przez seniora lub który można pobrać z Internetu, musiałeś widzieć taki formularz użytkownika.

W tym artykule pokażemy, jak utworzyć podobny formularz użytkownika do przechowywania danych od użytkownika.

Jak stworzyć formularz użytkownika?

Podobnie jak w przypadku wstawiania nowego modułu w podobny sposób, musisz kliknąć przycisk WSTAW w Edytorze Visual Basic, aby wstawić formularz użytkownika.

Jak tylko to klikniesz, formularz użytkownika również zostanie wstawiony.

Zanim powiem ci, jak to zaprogramować, pokażę ci, jak sformatować ten formularz użytkownika.

Formatowanie formularza użytkownika

Wybierając formularz użytkownika, naciśnij klawisz F4, pojawi się okno właściwości.

Korzystając z tego okna właściwości, możemy sformatować ten formularz użytkownika. Możemy to nazwać. Możemy zmienić kolor, styl obramowania itp.…

W ten sposób wypróbuj inne właściwości, aby zobaczyć formularz użytkownika.

Teraz w tym formularzu użytkownika wstaw Toolbox.

Teraz zobaczymy taki zestaw narzędzi.

W tym momencie formularz użytkownika jest właśnie wstawiany, a nie programowany. Aby dowiedzieć się, jak to działa, kliknij przycisk Uruchom. Formularz zobaczymy w arkuszu programu Excel.

Teraz używam etykiety rysunkowej ToolBox.

Wpisz tekst jako nazwę pracownika wewnątrz etykiety.

W przypadku tej etykiety możemy formatować za pomocą właściwości. Teraz wprowadziliśmy tekst jako „Imię pracownika:”, teraz widzimy to w oknie właściwości pod napisami.

Wstaw jeszcze jedną etykietę. Aby wstawić jeszcze jedną etykietę, możesz kliknąć przybornik lub przeciągnąć bieżącą etykietę, przytrzymując klawisz Ctrl . Będziesz mieć replikę obecnej etykiety.

Teraz będziemy mieć tę samą etykietę.

Zmień nazwę na Identyfikator pracownika.

Teraz w podobny sposób wstaw jeszcze jedną etykietę i nazwij ją „Dział”.

Teraz z przybornika wstaw pole tekstowe.

Nazwij to pole tekstowe jako EmpName w oknie właściwości.

W ten sposób wstaw odpowiednio dwa dodatkowe pola tekstowe z pola ID pracownika i działu. Nazwij te pola tekstowe zgodnie z ich nagłówkami.

Podobnie zrób to dla Departamentu.

Teraz z przybornika wstaw Przycisk Polecenia.

Zmień nazwę przycisku polecenia na „SubmitButton” i zmień podpis na „Submit”.

Insert one more button and call it “Cancel.”

Now just to see run, press the run button or use the F5 key and see how your userform looks like in Excel.

Now it is coming to the shape.

VBA Code

Now the user will enter data in this, so we need to program this to store the data entered by the user on this form.

Double click on the SUBMIT button, it will take you to the macro window with an auto-created macro like the below.

It says SubmitButton click, remember we had given a name for the SUBMIT button as SubmitButton.

So, whenever we want to call this button, we can call this by this name (submit button). Inside this macro, copy and paste the below code.

Code:

Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub

EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
EmpID.Value here EmpID is the text box name of the Employee ID text box.
Dept.Value this is the department text box name.

So, on the click on the submit button, it will store the values in the mentioned cells.

Now double click on the Cancel button. This will also show you the auto macro name like this.

Copy the below code and paste.

Code:

Private Sub CancelButton_Click() MyUserForm.Hide End Sub

MyUserForm to nazwa, którą nadaliśmy formularzowi użytkownika . MyUserForm.Hide oznacza, że po kliknięciu przycisku ANULUJ ukryje formularz użytkownika.

Ok, teraz utwórz taki szablon w arkuszu.