Maak een formulier in Excel , gebruik te maken van controles gegroepeerd in een frame , waarin eenvoudige tekstvelden waar de gebruiker haar gegevens kan invoeren zal produceren . Maak drie opdrachtknoppen op het formulier dat een effect hebben op de informatie zal hebben in de vorm wanneer de gebruiker voert een links-klik met haar muis . Het is eenvoudig om een formulier dat zal een lijst van medewerkers of managers te creëren , en hun status te controleren . Instructies 1 Open een werkmap in Excel . Als je weet welke werkmap u wilt dat uw formulier naar behoren , dan is het nu de tijd om het te openen . Gebruik het menu Bestand om het werkboek . Klik 2 op het menu "Extra " , selecteer " Macro" en klik op " Visual Basic Editor . " 3 Klik op ' invoegen ' en selecteer vervolgens ' UserForm . " 4 Sleep een opdracht knop op het formulier . Je hebt minimaal drie van deze voor dit voorbeeld . 5 Zet namen op uw bevel knopen en labels . Klik op " View " en "Window Properties . " Klik op een van de opdrachtknoppen die u op het formulier geplaatst . 6 Naam van de commando knop die leest " OK " door te klikken op de naam van de instelling in het venster Eigenschappen en te typen " cmdOK " . Klik op de instelling " Caption " in het venster Eigenschappen en typ " OK " . 7 Klik op een andere opdracht knop . Noem deze ene " cmdCancel , " en stel de titel te lezen " Annuleren " in het venster Eigenschappen . Klik 8 op de derde knop commando , noem maar op " cmdClearForm " en de titel instellen om te lezen veranderen "Clear Vorm . " 9 Hit de " F7 " -functie op uw toetsenbord om het venster code te openen. Klik 10 op het drop - down lijsten op de bovenkant van het venster code . Klik op de linker lijst om de subprocedure genaamd "User Form" te openen en klik op de andere keuzelijst selecteren 11 Verwijder de boven dat leest vermeld subprocedure " initialiseren . " : UserForm_Click ( ) procedure Type 12 de volgende code in het code-venster ( typ niet over de blauwe tekst , voeg gewoon de tekst in zwart) : . Private Sub UserForm_Initialize ( ) txtName.Value = " " txtPhone . Value = " " Met cboDepartment.AddItem " Werknemers " . AddItem " Managers " End With YourCourse.Value = " " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub 13 Vul uw code in de knop Annuleren . Dubbelklik op de knop Annuleren om het venster code te openen . Typ uw code, zodat het venster code luidt : Private Sub cmdCancel_Click ( ) Unload MeEnd Sub 14 Open het code -venster voor de Clear knop Formulier . Vergeet niet te dubbelklikken op het " Formulier wissen " knop Type 15 uw code in het code-venster , zodat het leest : . Private Sub cmdClearForm_Click ( ) Call UserForm_InitializeEnd Sub 16 Dubbelklik op de knop "OK " om de volgende code in het venster code toe te voegen : . . Private Sub cmdOK_Click ( ) op ActiveWorkbook.Sheets ( " yourwork " ) ActivateRange ( " A1 " ) SelectDoIf IsEmpty ( ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop Tot IsEmpty ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . offset ( 0 , 3 ) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intro " ElseIf optIntermediate = True ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intermed " ElseActiveCell.Offset ( 0 , 4 ) . Value = " Adv " End IFIF chkLunch = True ThenActiveCell.Offset ( 0 , 5 ) . Value = " Yes " ElseActiveCell.Offset ( 0 , 5 ) . Value = " Nee " End IFIF chkWork = True ThenActiveCell.Offset ( 0 , 6 ) . Value = " Yes " ElseIf chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Value = " " ElseActiveCell.Offset ( 0 , 6 ) . Value = " Nee " End IfEnd IfRange ( " A1 " ) . SelectEnd Sub
|