Opret en formular i Excel , udnytte kontroller grupperet i en ramme , der skal producere enkle tekstfelter hvor brugeren kan indtaste hendes oplysninger . Oprette tre kommandoknapper på formularen , der vil have en effekt på oplysninger i form , når brugeren udfører en venstre-klik med sin mus. Det er nemt at oprette en formular , der vil liste medarbejdere eller ledere , og kontrollere deres status. Instruktioner
1
Åbn en projektmappe i Excel. Hvis du ved, hvilken projektmappe , du vil have din formular til at tilhøre , så nu er det tid til at åbne den. Brug menuen Filer for at få adgang til projektmappen.
2
Klik på menuen "Funktioner" , vælg " Macro " og klik på "Visual Basic Editor. "
3
Klik på " Indsæt " og derefter vælge " UserForm ".
4
Træk en kommandoknap til formularen . Du har brug for mindst tre af disse til dette eksempel.
5.
Sæt navne på din kommando knapper og etiketter. Klik på "Vis" og " Egenskaber Window ". Klik på et af de kommando knapper, som du placeret på skemaet.
6
Name kommandoen knap, der vil læse "OK" ved at klikke på navnet indstilling i Egenskaber vinduet og skrive " cmdOK " . Klik på " Caption " indstillingen i vinduet Egenskaber , og skriv "OK".
7
Klik på en anden kommando knap. Navngiv denne ene " cmdCancel , " og sæt billedteksten for at læse "Cancel" i vinduet Egenskaber .
8
Klik på den tredje kommandoknap, name it " cmdClearForm " og ændre billedteksten indstilling at læse "Clear Form ".
9
Hit " F7 " funktionstasten på tastaturet for at opdrage den kode vinduet.
10
Klik på drop-down lister på toppen af koden vinduet . Klik på øverste venstre liste til at åbne subprocedure hedder "User Form" og klik på den anden drop- down listen for at vælge
11
Slet subprocedure anført ovenfor , der hedder " Initialize". : UserForm_Click () procedure
12
Skriv følgende kode i kodevinduet ( skriv ikke over den blå tekst; blot tilføje den sorte tekst ) : . Private Sub UserForm_Initialize () txtName.Value = "" txtPhone . Value = " " Med cboDepartment.AddItem "ansatte" . AddItem " Managers " End With
YourCourse.Value = "" optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13 < p > Indtast din kode i knappen Annuller . Dobbeltklik på knappen Annuller for at åbne koden vinduet. Indtast din kode, så koden vinduet lyder: Private Sub cmdCancel_Click () Unload MeEnd Sub
14
Åbn kodevinduet for Ryd formular knappen. Husk at dobbeltklikke på "Ryd Form" knappen
15
Skriv din kode i kodevinduet , så det lyder: . Private Sub cmdClearForm_Click ( ) Call UserForm_InitializeEnd Sub
16 < p> Dobbeltklik på "OK" knappen for at tilføje følgende kode i koden vinduet : . .
Private Sub cmdOK_Click () ActiveWorkbook.Sheets ( " YourWork " ) ActivateRange ( "A1" ) SelectDoIf IsEmpty ( ActiveCell ) = FalseThenActiveCell.Offset (1, 0) . SelectEnd IfLoop Indtil IsEmpty ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset (0, 1) = txtPhone.ValueActiveCell.Offset (0, 2) = cboDepartment.ValueActiveCell . offset (0, 3) = cboCourse.ValueIf optIntroduction = Sand ThenActiveCell.Offset (0, 4). Value = "Intro " ElseIf optIntermediate = Sand ThenActiveCell.Offset (0, 4). Value = " Intermed " ElseActiveCell.Offset (0 , 4). Value = " Adv " Slut Hhvis chkLunch = Sand ThenActiveCell.Offset (0, 5). Value = "Ja" ElseActiveCell.Offset (0, 5). Value = "Nej" End Hhvis chkWork = Sand ThenActiveCell.Offset (0, 6). Value = "Ja" EllersHvis chkVacation = False ThenActiveCell.Offset (0, 6). Value = "" ElseActiveCell.Offset (0, 6). Value = "Nej" End IfEnd IfRange ( "A1" ) . SelectEnd Sub