Opprett 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 musen henne. Det er enkelt å lage et skjema som vil liste ansatte eller ledere , og sjekke deres status . Instruksjoner
en

Åpne en arbeidsbok i Excel. Hvis du vet hvilken arbeidsboken 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 kommando knappen på skjemaet . Du trenger minst tre av disse for dette eksemplet.
5

Sett navn på kommando knapper og etiketter. Klikk på " Vis" og " Properties-vinduet . " Klikk på en av kommandoknappene som du plasserte på skjemaet .
6

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

Klikk på annen kommando -knappen . Navn denne ene " cmdCancel , " og sette bildeteksten til å lese "Avbryt" i vinduet Egenskaper.
8

Klikk på tredje kommandoknapp, gi den navnet " cmdClearForm " og endre bildeteksten innstillingen til å lese "Clear Form . "
9

Hit " F7 "-funksjonen på tastaturet for å få opp koden vinduet.
10

Klikk på drop- down lister på toppen av koden vinduet. Klikk øverst til venstre listen for å åpne subprocedure heter " User Form" og klikk på den andre drop- down menyen for å velge
11

Slett subprocedure ovenfor der det står " Initialiser ". : UserForm_Click ( ) prosedyren
12

skriv inn følgende kode inn i koden vinduet ( ikke skrive over den blå teksten , bare legge den svarte teksten ) : . Private Sub UserForm_Initialize ( ) txtName.Value = "" txtPhone . Verdi = " " Med cboDepartment.AddItem " ansatte " . AddItem "Ledere " End With

YourCourse.Value = "" optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13

Tast inn koden i da Avbryt. Dobbeltklikk på Avbryt-knappen for å åpne koden vinduet. Skriv inn koden din slik at koden vinduet står det: Private Sub cmdCancel_Click ( ) Losse MeEnd Sub
14

Åpne koden vinduet for Clear skjema-knappen . Husk å dobbeltklikke på " Tøm skjema "-knappen
15

Skriv inn koden i koden vinduet slik at den lyder: . Private Sub cmdClearForm_Click ( ) Ring UserForm_InitializeEnd Sub
16 < p> Dobbeltklikk på "OK" -knappen for å legge til følgende kode i koden vinduet: . .

Private Sub cmdOK_Click ( ) ActiveWorkbook.Sheets ( " YourWork ") ActivateRange ( "A1" ) SelectDoIf erTom ( ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop inntil erTom ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . offset ( 0 , 3 ) = cboCourse.ValueIf optIntroduction = sant ThenActiveCell.Offset ( 0 , 4) . Verdi = " Intro " ElseIf optIntermediate = sant ThenActiveCell.Offset ( 0 , 4) . Verdi = " Intermed " ElseActiveCell.Offset ( 0 , 4) . Verdi = " Adv. " End IfIf chkLunch = sant ThenActiveCell.Offset ( 0 , 5 ) . Verdi = " Ja" ElseActiveCell.Offset ( 0 , 5 ) . Verdi = " Nei" End IfIf chkWork = sant ThenActiveCell.Offset ( 0 , 6 ) . Verdi = " Ja" ElseIf chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Verdi = " " ElseActiveCell.Offset ( 0 , 6 ) . Verdi = " Nei" End IfEnd IfRange ( "A1" ) . SelectEnd Sub