Sådan oprettes formularer med Excel

Åbn en projektmappe i Excel. Hvis du ved, i hvilken bog du vil have din form, skal du nu åbne den. Brug menuen Filer til at få adgang til bogen.

Klik på menuen "Værktøjer", vælg "Makro", og klik på "Visual Basic Editor".

Klik på "Indsæt", og vælg derefter "UserForm."

Træk en kommandoknap til formularen. Du har brug for mindst tre af disse til dette eksempel.

Navngiv kommandoknapper og etiketter. Klik på "Vis" og "Egenskaber vindue." Klik på en af ​​de kommandoknapper, du har placeret på formularen.

Navngiv kommandoknappen, der læser "Accepter" ved at klikke på navnindstillingerne i egenskabsvinduet og skrive "cmdOK". Klik på indstillingen "Legend" i egenskabsvinduet, og skriv "OK."

Klik på en anden kommandoknap. Indtast navnet "cmdCancel", og indstil titlen til at læse "Cancel" i egenskabsvinduet.

Klik på den tredje kommandoknap, og navngiv den "cmdClearForm", og ændre titelindstillingerne for at læse "Slet form"

Tryk på "F7" -tasten på dit tastatur for at få vist kodevinduet.

Klik på rullelisten øverst i kodevinduet. Klik på listen øverst til venstre for at åbne underproceduren kaldet "Brugerform" og klik på den anden rulleliste for at vælge "Start".

Sletter den nævnte underprocedure, der lyder: UserForm_Click () -proceduren.

Skriv følgende kode i kodevinduet (skriv ikke om blå tekst, bare tilføj den sorte tekst): Privat underbrugerForm_Initialiser () txtName.Value = "" txtPhone.Value = "" Med cboDepartment. AddItem "Medarbejdere ".AddItem" Managers "slutter med YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

Indtast koden i knappen Annuller. Dobbeltklik på knappen Annuller for at åbne kodevinduet. Indtast din kode for at læse kodevinduet: Privat Sub cmdCancel_Click () Unload Me End Sub

Åbn kodevinduet for knappen Ryd form. Husk at dobbeltklikke på "Slet form".

Indtast din kode i kodevinduet for at læse: Privat sub cmdClearForm_Click () Ring til UserForm_Initialize End Sub

Dobbeltklik på "OK" -knappen for at tilføje følgende kode i kodevinduet: Privat sub cmdOK_Klik () ActiveWorkbook.Sheets ("YourWork"). Aktivér rækkevidde ("A1"). Vælg Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0) .Vælg ende hvis sløjfe indtil IsEmpty (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 derefter ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True derefter ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "Ende Hvis Hvis chkLunch = Sandt derefter ActiveCell.Offset (0, 5) .Value =" Ja "Else ActiveCell.Offset (0, 5) .Value = "Nej" Ende Hvis Hvis chkWork = Sandt derefter ActiveCell.Offset (0, 6) .Value = "Ja" Ellers Hvis chkVacation = False Så ActiveCell.Offset (0, 6) .Value = "" Ellers ActiveCell.Offset (0, 6) .Value = "Nej" Slut Hvis slut hvis rækkevidde ("A1"). Vælg Slut sub

Interessante Artikler