Jak tworzyć formularze za pomocą programu Excel

Otwórz książkę w Excelu. Jeśli wiesz, w jakiej książce chcesz otrzymać swój formularz, teraz jest czas, aby go otworzyć. Użyj menu Plik, aby uzyskać dostęp do książki.

Kliknij menu "Narzędzia", ​​wybierz "Makro" i kliknij "Edytor Visual Basic".

Kliknij "Wstaw", a następnie wybierz "UserForm".

Przeciągnij przycisk polecenia do formularza. Potrzebujesz co najmniej trzech z nich dla tego przykładu.

Nazwij przyciski poleceń i etykiety. Kliknij "Widok" i "Okno właściwości". Kliknij jeden z przycisków poleceń umieszczonych w formularzu.

Nazwij przycisk polecenia, który będzie czytał "OK", klikając ustawienia nazw w oknie Właściwości i wpisując "cmdOK". Kliknij ustawienie "Legenda" w oknie Właściwości i wpisz "OK".

Kliknij inny przycisk polecenia. Wpisz nazwę "cmdAnuluj" i ustaw tytuł na "Anuluj" w oknie Właściwości.

Kliknij trzeci przycisk polecenia i nadaj mu nazwę "cmdClearForm" i zmień ustawienia tytułu, aby przeczytał "Usuń formularz"

Naciśnij klawisz "F7" na klawiaturze, aby wyświetlić okno kodu.

Kliknij listę rozwijaną u góry okna kodu. Kliknij listę w lewym górnym rogu, aby otworzyć podprocedurę o nazwie "Formularz użytkownika", a następnie kliknij inną listę rozwijaną, aby wybrać "Start".

Usuń powyższy podprocedura, który brzmi: Procedura UserForm_Click ().

Napisz następujący kod w oknie kodu (nie pisz na niebieskim tekście, po prostu dodaj tekst na czarno): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Z cboDepartment .AddItem "Pracownicy ".AddItem" Menedżerowie "Koniec z YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

Wprowadź kod na przycisku Anuluj. Kliknij dwukrotnie przycisk Anuluj, aby otworzyć okno kodu. Wprowadź swój kod, aby okno kodu brzmiało: Private Sub cmdCancel_Click () Unload Me End Sub

Otwórz okno kodu dla przycisku Usuń formularz. Pamiętaj, aby dwukrotnie kliknąć "Usuń formularz".

Wprowadź swój kod w oknie kodu, aby przeczytać: Private Sub cmdClearForm_Click () Call UserForm_Initialize End Sub

Kliknij dwukrotnie przycisk "Zaakceptuj", aby dodać następujący kod w oknie kodu: Prywatna Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork") Aktywuj zakres ("A1") Wybierz Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0). Wybierz End If Loop Do IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDetartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value If optIntroduction = True Then ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Then ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "End If If chkLunch = True Then ActiveCell.Offset (0, 5) .Value =" Yes "Else ActiveCell.Offset (0, 5) .Value = "No" End If If chkWork = True Then ActiveCell.Offset (0, 6) .Value = "Yes" Else If chkVacation = False Then ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1") Wybierz End Sub