Formulieren maken met Excel

Open een werkmap in Excel. Als u weet in welk boek u uw formulier wilt hebben, is het nu het moment om het te openen. Gebruik het menu Bestand om het boek te openen.

Klik op het menu "Extra", selecteer "Macro" en klik op "Visual Basic Editor".

Klik op 'Invoegen' en selecteer vervolgens 'UserForm'.

Sleep een opdrachtknop naar het formulier. Je hebt er minimaal drie nodig voor dit voorbeeld.

Geef de opdrachtknoppen en labels een naam. Klik op 'Beeld' en 'Eigenschappenvenster'. Klik op een van de opdrachtknoppen die u op het formulier hebt geplaatst.

Geef de opdrachtknop de naam "Accepteren" door op de naaminstellingen in het venster Eigenschappen te klikken en "cmdOK" te typen. Klik op de instelling "Legenda" in het venster Eigenschappen en typ "OK".

Klik op een andere opdrachtknop. Voer de naam "cmdCancel" in en stel de titel in op "Annuleren" in het venster Eigenschappen.

Klik op de derde opdrachtknop en noem deze "cmdClearForm" en wijzig de titelinstellingen om "Formulier verwijderen" te lezen

Druk op de toets "F7" op uw toetsenbord om het codevenster weer te geven.

Klik op de vervolgkeuzelijst bovenaan het codevenster. Klik op de lijst linksboven om de subprocedure "Gebruikersformulier" te openen en klik op de andere vervolgkeuzelijst om "Start" te selecteren.

Hiermee wordt de bovengenoemde subprocedure verwijderd die luidt: UserForm_Click () procedure.

Schrijf de volgende code in het codevenster (schrijf niet over blauwe tekst, voeg alleen de zwarte tekst toe): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Met cboDepartment .AddItem "Medewerkers ".AddItem" Managers "eindigen met YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

Voer de code in bij de knop Annuleren. Dubbelklik op de knop Annuleren om het codevenster te openen. Voer uw code in om het codevenster te lezen: Private Sub cmdCancel_Click () Unload Me End Sub

Open het codevenster voor de knop Formulier wissen. Vergeet niet te dubbelklikken op het "Formulier verwijderen".

Voer uw code in het codevenster in om te lezen: Private Sub cmdClearForm_Click () Call UserForm_Initialize End Sub

Dubbelklik op de knop "OK" om de volgende code in het codevenster toe te voegen: Private Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Activeer bereik ("A1"). Selecteer Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0). Selecteer End If Loop Without 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 Als optIntroduction = True Then ActiveCell.Offset (0, 4) .Value = "Enter" 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 = "Nee" 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"). Selecteer End Sub

Interessante Artikelen