Hvordan lage skjemaer ved hjelp av Excel

August 3

Lag et skjema i Excel, utnytte kontroller gruppert i en ramme, som vil produsere enkle tekstfelt der brukeren kan skrive inn sin informasjon. Lag tre kommandoknappene på skjemaet som vil ha en effekt på informasjon i form når brukeren utfører en venstre-klikk med henne musen. Det er enkelt å lage et skjema som vil liste ansatte eller ledere, og sjekke deres status.

Bruksanvisning

1 Åpne en arbeidsbok i Excel. Hvis du vet hvilke arbeidsbok du vil skjemaet for å tilhøre, så nå er det på tide å åpne den. Bruk Fil-menyen for å få tilgang til arbeidsboken.

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

3 Klikk "Sett inn" og velg deretter "Userform."

4 Dra en kommandoknapp på skjemaet. Du trenger minst tre av disse for dette eksemplet.

5 Sette navn på kommandoknapper og etiketter. Klikk på "Vis" og "Properties-vinduet." Klikk på en av kommandoknappene som du har plassert på skjemaet.

6 Navn på kommandoknappen som vil lese "OK" ved å klikke på navnet innstillingen i vinduet Egenskaper og skrive "cmdOK". Klikk på innstillingen "Caption" i vinduet Egenskaper og skriv "OK".

7 Klikk på en annen kommandoknapp. Navn denne "cmdCancel," og sett bildeteksten for å lese "Cancel" i vinduet Egenskaper.

8 Klikk på den tredje kommandoknapp, you name it "cmdClearForm" og endre tittelen innstillingen for å lese "Tøm skjema."

9 Trykk på "F7" funksjonstast på tastaturet for å få opp koden vinduet.

10 Klikk på rullegardinlistene på toppen av koden vinduet. Klikk på øverst til venstre listen for å åpne subprocedure heter "User Form" og klikk på den andre rullegardinlisten til å velge "Initialize".

11 Slett subprocedure nevnt ovenfor som lyder: UserForm_Click () prosedyre.

12 Skriv inn følgende kode i kodevinduet (ikke skrive over den blå teksten, bare legge den svarte teksten):
Private Sub UserForm_Initialize ()

txtName.Value = "" txtPhone.Value = "" With cboDepartment .AddItem "Employees" .AddItem "Managers" End With

YourCourse.Value = ""
optIntroduction = True
chkWork = False
chkVacation = False
txtName.SetFocus

End Sub

1. 3 Tast inn koden din inn på Avbryt. Dobbeltklikk på Avbryt-knappen for å åpne kodevinduet. Skriv inn koden din slik at koden vinduet står det: Private Sub cmdCancel_Click ()

Unload Me

End Sub

14 Åpne kodevinduet for Clear skjema-knappen. Husk å dobbeltklikke på "Clear Form" knappen.

15 Skriv koden inn i koden vinduet slik at det lyder:
Private Sub cmdClearForm_Click ()

Call UserForm_Initialize

End Sub

16 Dobbeltklikk på "OK" -knappen for å legge til følgende kode i kodevinduet:

Private Sub cmdOK_Click ()

ActiveWorkbook.Sheets("YourWork").Activate Range("A1").Select Do If IsEmpty(ActiveCell) = FalseThen ActiveCell.Offset(1, 0).Select End If Loop Until 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 If optIntroduction = True Then ActiveCell.Offset(0, 4).Value = "Intro" 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").Select

End Sub