Cum se creează formulare cu Excel

Deschideți o carte în Excel. Dacă știți în ce carte doriți ca formularul dvs. să fie, atunci acum este momentul să îl deschideți. Utilizați meniul Fișier pentru a accesa cartea.

Faceți clic pe meniul "Instrumente", selectați "Macro" și faceți clic pe "Visual Basic Editor".

Faceți clic pe "Insert" și apoi selectați "UserForm".

Glisați un buton de comandă în formular. Aveți nevoie de cel puțin trei dintre acestea pentru acest exemplu.

Dați nume butoanelor de comandă și etichetelor. Faceți clic pe ferestrele "Vizualizare" și "Proprietăți". Faceți clic pe unul dintre butoanele de comandă pe care le-ați plasat pe formular.

Denumiți butonul de comandă care va citi "OK" dând clic pe setările de nume din fereastra Proprietăți și tastând "cmdOK". Faceți clic pe setarea "Legendă" din fereastra Proprietăți și introduceți "OK".

Faceți clic pe un alt buton de comandă. Puneți numele "cmdCancel" și setați titlul pentru a citi "Anulare" în fereastra Proprietăți.

Faceți clic pe butonul de comandă al treilea și denumiți-l "cmdClearForm" și schimbați setările titlurilor pentru a citi "Șterge formularul"

Apăsați tasta "F7" de pe tastatură pentru a afișa fereastra de cod.

Faceți clic pe lista derulantă din partea de sus a ferestrei de cod. Faceți clic pe lista din partea stângă sus pentru a deschide subprocesul numit "Formular utilizator" și faceți clic pe lista verticală din partea de sus pentru a selecta "Start".

Eliminați subprocedura menționată anterior care citește: Procedura UserForm_Click ().

Scrieți următorul cod în fereastra de cod (nu scrieți pe textul albastru, adăugați textul în negru): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Cu cboDepartment .AddItem "Angajați ".AddItem" Managerii "se termină cu YourCourse.Value =" "optIntroduction = Adevărat chkWork = False chkVacation = False txtName.SetFocus End Sub

Introduceți codul pe butonul Anulare. Faceți dublu clic pe butonul Anulare pentru a deschide fereastra de cod. Introduceți codul astfel încât să se citească fereastra de cod: Private Sub cmdCancel_Click () Unload Me End Sub

Deschideți fereastra de cod pentru butonul Ștergeți formularul. Nu uitați să faceți dublu clic pe "Ștergeți formularul".

Introduceți codul în fereastra de cod pentru a citi: Private Sub cmdClearForm_Click () Apelați UserForm_Initialize End Sub

Faceți dublu clic pe butonul "Accept" pentru a adăuga următorul cod în fereastra de cod: Sub Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork") Activare Range ("A1") Selectați If IsEmpty (ActiveCell) (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment (0, 1) = ActiveCell.Offset .Value ActiveCell.Offset (0, 3) = cboCourse.Value Dacă optIntroduction = True apoi ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Atunci ActiveCell.Offset (0, 4) Interval "Else ActiveCell.Offset (0, 4) .Value =" Adv "Sfarsit Daca Daca chkLunch = True Atunci ActiveCell.Offset (0, 5) .Value =" Da "Else ActiveCell.Offset (0, "Nu" Sfârșit Dacă Dacă chkWork = Adevărat Atunci ActiveCell.Offset (0, 6) .Value = "Da" Else Dacă chkVacation = False Apoi ActiveCell.Offset (0, 6) .Value = "" Altfel ActiveCell.Offset (0, 6) .Value = "Nu" Sfârșit Dacă se termină Dacă intervalul ("A1") Selectați End Sub