Introductie tot UserForms

MsgBox en InputBox zijn geschikt voor eenvoudige ja/nee-vragen en éénregelige antwoorden, maar het toevoegen van een klant vereist vaak meerdere velden tegelijk — een bedrijfsnaam, een contactpersoon, een stad, een status. Daarvoor dient een UserForm: een klein aangepast venster met eigen labels, tekstvakken, keuzelijsten en knoppen, gebouwd binnen de VBE en volledig aangestuurd door je eigen code.

Een formulier maken

Klik in de VBE met de rechtermuisknop op je project in de Projectverkenner en kies Invoegen → UserForm. Er verschijnt een leeg ontwerpoppervlak, samen met een zwevende Toolbox met besturingselementen die je erop kunt slepen.

Labels, TextBoxes, ComboBoxes en Buttons

Elke besturingselement die je op het formulier sleept, krijgt een standaardnaam zoals TextBox1 of CommandButton1 — functioneel, maar betekenisloos zodra een formulier zes of zeven besturingselementen bevat. De belangrijkste gewoonte in deze sectie is zichtbaar in het Eigenschappenvenster: hernoem elk besturingselement direct na het toevoegen, met een korte prefix die het type aangeeft (txt voor TextBox, cbo voor ComboBox, cmd voor CommandButton, opt voor OptionButton, chk voor CheckBox, lst voor ListBox) gevolgd door een beschrijvende naam. txtCompanyName is over drie weken in de code direct duidelijk; TextBox1 niet.

Labels zijn de eenvoudige, niet-interactieve tekstbijschriften ("Company Name:") — een gebruiker kan ze zien, maar er nooit in typen of op klikken. TextBoxes zijn bedoeld voor het invoeren van vrije tekst. ComboBoxes tonen een keuzelijst, precies waarvoor cboCity en cboStatus worden gebruikt — het beperken van City en Status tot een bekende lijst in plaats van een gebruiker vrij te laten typen zoals "chicago", "Chicago,IL" en "CHI" voor hetzelfde in verschillende records.

Code schrijven achter het formulier

Dubbelklik op een besturingselement op het ontwerpoppervlak om direct naar de bijbehorende code te gaan — VBA maakt automatisch een gebeurtenisprocedure aan met de naam ControlName_EventName, en code typen binnen deze procedure betekent dat deze code wordt uitgevoerd wanneer die specifieke gebeurtenis voor dat specifieke besturingselement plaatsvindt. De standaardgebeurtenis van een knop is Click:

Private Sub UserForm_Initialize()
    ' runs once, automatically, when the form is first shown
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"
 
    cboStatus.AddItem "Active"
    cboStatus.AddItem "Inactive"
    cboStatus.AddItem "Prospect"
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
End Sub

UserForm_Initialize is een speciale gebeurtenisprocedure die automatisch wordt uitgevoerd op het moment dat het formulier wordt geladen — voordat de gebruiker iets ziet — waardoor dit de juiste plek is om ComboBoxes te vullen met .AddItem in plaats van keuzes handmatig in het eigenschappenvenster te typen, vooral wanneer deze keuzes kunnen veranderen of uit een werkblad komen. Unload Me in cmdCancel_Click sluit het formulier volledig; Me verwijst altijd naar het formulier waarin de code momenteel wordt uitgevoerd, zodat deze regel ongewijzigd werkt, ongeacht hoe je het formulier uiteindelijk hernoemt.

Voorbeeld: Een nieuwe klant opslaan

Dit is de procedure achter de knop Opslaan — deze schrijft daadwerkelijk een nieuwe rij in tblCustomers:

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
 
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add
 
    newRow.Range(1, 1).Value = "C" & Format(tbl.ListRows.Count + 1, "000")
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = cboStatus.Value
 
    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Taak

1. Voeg een nieuw UserForm toe, noem deze frmAddCustomer, en voeg drie TextBoxes toe (txtCompanyName, txtContact, txtEmail) en twee ComboBoxes (cboCity, cboStatus), elk met een bijbehorend label.
2. Voeg twee CommandButtons toe, cmdSave en cmdCancel, en schrijf de procedures UserForm_Initialize en cmdCancel_Click exact zoals weergegeven.
3. Schrijf cmdSave_Click zoals getoond, voeg vervolgens een tijdelijke knop elders in de werkmap toe met de code frmAddCustomer.Show om het openen van je formulier te testen.
4. Vul het formulier in voor een fictieve zesde klant en klik op Opslaan — controleer of er een nieuwe rij verschijnt in tblCustomers met de door jou ingevoerde waarden.