Introduction to Brugerformularer

MsgBox og InputBox dækker simple ja/nej-spørgsmål og énliniersvar, men når en kunde skal tilføjes, kræves der ofte flere felter på én gang — firmanavn, kontaktperson, by, status. Det er formålet med en UserForm: et lille brugerdefineret vindue med egne etiketter, tekstfelter, dropdowns og knapper, oprettet i VBE og fuldt styret af din kode.

Oprettelse af en formular

I VBE skal du højreklikke på dit projekt i Project Explorer og vælge Indsæt → UserForm. En tom designflade vises sammen med en flydende værktøjskasse med kontroller, du kan trække over på formularen.

Labels, TextBoxes, ComboBoxes og Knapper

Hver kontrol, du trækker ind på formularen, får et standardnavn som TextBox1 eller CommandButton1 — funktionelt, men meningsløst, når en formular har seks eller syv kontroller på sig. Den vigtigste vane i dette afsnit ses i Egenskabsvinduet: omdøb hver kontrol umiddelbart efter, du har tilføjet den, ved at bruge et kort præfiks, der identificerer typen (txt for TextBox, cbo for ComboBox, cmd for CommandButton, opt for OptionButton, chk for CheckBox, lst for ListBox) efterfulgt af et beskrivende navn. txtCompanyName er entydigt i koden om tre uger; TextBox1 er det ikke.

Labels er de enkle, ikke-interaktive tekstetiketter ("Company Name:") — brugeren kan se dem, men kan aldrig skrive i dem eller klikke på dem. TextBoxes er felter, hvor der kan indtastes fri tekst. ComboBoxes viser en dropdown med valgmuligheder, hvilket præcis er formålet med cboCity og cboStatus — at begrænse City og Status til en kendt liste i stedet for at lade brugeren frit indtaste "chicago", "Chicago,IL" og "CHI" for det samme på tværs af forskellige poster.

Kode bag formularen

Dobbeltklik på en hvilken som helst kontrol på designfladen for at gå direkte til dens kode — VBA opretter automatisk en hændelsesprocedure med navnet ControlName_EventName, og kode skrevet her vil blive kørt, hver gang den specifikke hændelse sker for den specifikke kontrol. En knaps standardhændelse er 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 er en særlig hændelsesprocedure, der automatisk aktiveres i det øjeblik, formularen indlæses — før brugeren ser noget — hvilket gør det til det rette sted at udfylde ComboBoxes med .AddItem i stedet for manuelt at indtaste valgmuligheder i egenskabsvinduet, især når valgmulighederne kan ændre sig eller komme fra et regneark. Unload Me i cmdCancel_Click lukker formularen helt; Me refererer altid til den formular, koden aktuelt kører i, så denne linje fungerer uændret, uanset hvad du senere omdøber formularen til.

Gennemarbejdet eksempel: Gem en ny kunde

Dette er proceduren bag Gem-knappen — den, der faktisk skriver en ny række ind i 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

Opgave

1. Indsæt en ny UserForm, navngiv den frmAddCustomer, og tilføj tre TextBoxes (txtCompanyName, txtContact, txtEmail) og to ComboBoxes (cboCity, cboStatus), hver med en tilsvarende Label.
2. Tilføj to CommandButtons, cmdSave og cmdCancel, og skriv procedurerne UserForm_Initialize og cmdCancel_Click nøjagtigt som vist.
3. Skriv cmdSave_Click som vist, og tilføj derefter en midlertidig knap et andet sted i projektmappen med koden frmAddCustomer.Show for at teste åbningen af din formular.
4. Udfyld formularen for en fiktiv sjette kunde og klik på Gem — bekræft, at en ny række vises i tblCustomers med de værdier, du har indtastet.