Hvordan lage skjemaer med Excel

Åpne en arbeidsbok i Excel. Hvis du vet i hvilken bok du vil at skjemaet skal være, er det nå på tide å åpne den. Bruk Fil-menyen for å få tilgang til boka.

Klikk på "Verktøy" -menyen, velg "Makro" og klikk på "Visual Basic Editor".

Klikk på "Sett inn" og velg deretter "UserForm."

Dra en kommandoknapp til skjemaet. Du trenger minst tre av disse for dette eksempelet.

Gi kommandoknapper og etiketter navn. Klikk på "Vis" og "Egenskaper-vinduet." Klikk på en av kommandoknappene du plasserte på skjemaet.

Gi kommandoknappen navn som vil lese "Godta" ved å klikke på navninnstillingene i Egenskapsvinduet og skrive "cmdOK". Klikk på "Legend" -innstillingen i Egenskapsvinduet, og skriv "OK."

Klikk på en annen kommandoknapp. Skriv inn navnet "cmdCancel" og sett tittelen til å lese "Cancel" i Properties-vinduet.

Klikk på den tredje kommandoknappen og navngi den "cmdClearForm" og endre tittelinnstillingene for å lese "Delete Form"

Trykk på "F7" -tasten på tastaturet for å vise kodevinduet.

Klikk på rullegardinlisten øverst i kodevinduet. Klikk på listen øverst til venstre for å åpne underprosessen som heter "Brukerform" og klikk på den andre nedtrekkslisten for å velge "Start".

Sletter den nevnte delprosessen som lyder: UserForm_Click () -prosedyre.

Skriv følgende kode i kodevinduet (ikke skriv om blå tekst, bare legg til den svarte teksten): Privat sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Med cboDepartment .AddItem "Ansatte ".AddItem" Managers "slutter med YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

Skriv inn koden i Avbryt-knappen. Dobbeltklikk på Avbryt-knappen for å åpne kodevinduet. Skriv inn koden for å lese kodevinduet: Privat Sub cmdCancel_Click () Unload Me End Sub

Åpne kodevinduet for Tøm skjema-knappen. Husk å dobbeltklikke på "Slett skjema".

Skriv inn koden din i kodevinduet for å lese: Private Sub cmdClearForm_Click () Ring UserForm_Initialize End Sub

Dobbeltklikk på "OK" -knappen for å legge til følgende kode i kodevinduet: Privat sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Aktiver Range ("A1"). Velg Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0) .Velg slutt hvis sløyfe til det er tomt (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value Hvis 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 "Slutt Hvis Hvis chkLunch = True Da ActiveCell.Offset (0, 5) .Value =" Ja "Else ActiveCell.Offset (0, 5) .Value = "Nei" Slutt hvis chkWork = True Then ActiveCell.Offset (0, 6) .Value = "Yes" Ellers Hvis chkVacation = False Så ActiveCell.Offset (0, 6) .Value = "" Ellers ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1"). Velg End Sub