Skapa ett formulär i Excel , att använda kontrollerna grupperade i en ram , som kommer att producera enkla textfält där användaren kan skriva in sin information. Skapa tre kommandoknappar i formuläret som kommer att ha en effekt på informationen i formuläret när användaren utför en vänster - klick på hennes mus . Det är enkelt att skapa ett formulär som kommer att lista medarbetare eller chefer , och kontrollera deras status . Instruktioner
1
Öppna en arbetsbok i Excel . Om du vet vilken arbetsbok som du vill formuläret tillhöra , så nu är det dags att öppna den . Använd menyn Arkiv för att öppna arbetsboken .
2
Klicka på menyn "Verktyg" , välj " Macro " och klicka på " Visual Basic Editor . " Addera 3
Klicka på " Infoga " och välj sedan " UserForm . "
4
Dra en kommandoknapp på formuläret . Du behöver minst tre av dessa för detta exempel .
5
sätta namn på ditt kommando knappar och etiketter . Klicka på " Visa " och " Egenskaper. " Klicka på någon av kommandoknapparna som du placerade i formuläret .
6
Namn kommandoknappen som kommer att läsa " OK " genom att klicka på namnet inställning i fönstret Egenskaper och skriva " cmdOK " . Klicka på " Caption " inställningen i fönstret Egenskaper och skriv " OK " .
7
Klicka på en annan kommandoknapp . Namnge en " cmdCancel , " och ställ in bildtexten att läsa " Cancel " i fönstret Egenskaper .
8
Klicka på den tredje kommandoknapp name it " cmdClearForm " och ändra bildtexten inställningen att läsa " Rensa formulär ".
9
Hit " F7 " -funktionen på tangentbordet för att få upp koden fönstret .
10
Klicka på drop - down listor på toppen av koden fönstret . Klicka på det övre vänstra listan för att öppna delprocedur heter "User Form " och klicka på den andra rullgardinsmenyn för att välja
11
Radera delprocedur anges ovan , som läser " Initiera". : UserForm_Click ( ) förfarande
12
skriv följande kod i fönstret (skriv inte över blå text , lägg bara till svart text ) : . Private Sub UserForm_Initialize ( ) txtName.Value = " " txtPhone . Value = " " Med cboDepartment.AddItem " anställda " . addItem " Chefer " End With
YourCourse.Value = " " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13
Ange koden i knappen Avbryt . Dubbelklicka på knappen Avbryt för att öppna koden fönstret . Ange din kod så att koden fönstret lyder : Private Sub cmdCancel_Click ( ) Lasta MeEnd Sub
14
Öppna koden fönstret för Rensa formuläret knappen . Kom ihåg att dubbelklicka på " Rensa formulär " knappen
15
Skriv din kod i fönstret så att den lyder : . Private Sub cmdClearForm_Click ( ) Samtal UserForm_InitializeEnd Sub
16
Dubbelklicka på " OK " knappen för att lägga till följande kod i koden fönstret : . .
Private Sub cmdOK_Click ( ) ActiveWorkbook.Sheets ( " YourWork " ) ActivateRange ( " A1 " ) SelectDoIf IsEmpty ( ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop tills IsEmpty ( 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 ) . Value = "Intro " ElseIf optIntermediate = Sann ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intermed " ElseActiveCell.Offset ( 0 , 4 ) . Value = " Adv " End oOm chkLunch = Sant ThenActiveCell.Offset ( 0 , 5 ) . Value = " Yes " ElseActiveCell.Offset ( 0 , 5 ) . Value = " Nej " End oOm chkWork = Sant ThenActiveCell.Offset ( 0 , 6 ) . Value = " Yes " Elseif chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Value = " " ElseActiveCell.Offset ( 0 , 6 ) . Value = " Nej " End IfEnd IfRange ( " A1 " ) . SelectEnd Sub
