MsgBox og InputBox dekker enkle ja/nei-spørsmål og ettlinjesvar, men når en kunde faktisk trenger flere felt samtidig — et firmanavn, en kontaktperson, en by, en status. Det er dette en UserForm er til for: et lite tilpasset vindu med egne etiketter, tekstbokser, nedtrekksmenyer og knapper, bygget inne i VBE og styrt helt av koden din.

Opprette et skjema

I VBE, høyreklikk prosjektet ditt i Project Explorer og velg Sett inn → UserForm. En tom utformingsflate vises, sammen med en flytende verktøykasse med kontroller du kan dra inn på skjemaet.

Etiketter, tekstbokser, kombinasjonsbokser og knapper

Hver kontroll du drar inn på skjemaet får et standardnavn som TextBox1 eller CommandButton1 — funksjonelt, men meningsløst når et skjema har seks eller syv kontroller. Den viktigste vanen i denne delen vises i Egenskapsvinduet: gi nytt navn til hver kontroll umiddelbart etter at den er lagt til, ved å bruke et kort prefiks som identifiserer typen (txt for TextBox, cbo for ComboBox, cmd for CommandButton, opt for OptionButton, chk for CheckBox, lst for ListBox) etterfulgt av et beskrivende navn. txtCompanyName er tydelig i koden om tre uker; TextBox1 er det ikke.

Etiketter er vanlige, ikke-interaktive tekstfelt ("Firmanavn:") — brukeren kan se dem, men aldri skrive i eller klikke på dem. Tekstbokser er der fri tekst skrives inn. Kombinasjonsbokser viser en nedtrekksliste med valg, som er akkurat det cboCity og cboStatus brukes til — å begrense City og Status til en kjent liste i stedet for å la brukeren skrive fritt "chicago", "Chicago,IL" og "CHI" for det samme i ulike poster.

Skrive kode bak skjemaet

Dobbeltklikk på en hvilken som helst kontroll på designflaten for å gå direkte til koden — VBA oppretter automatisk en hendelsesprosedyre med navnet ControlName_EventName, og kode skrevet inni denne kjøres hver gang den spesifikke hendelsen skjer for den aktuelle kontrollen. Standardhendelsen for en knapp 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 spesiell hendelsesprosedyre som kjøres automatisk i det øyeblikket skjemaet lastes inn — før brukeren ser noe — noe som gjør dette til riktig sted å fylle ComboBoxes med .AddItem i stedet for å skrive inn valgene manuelt i egenskapsvinduet, spesielt når valgene kan endres eller hentes fra et regneark. Unload Me inne i cmdCancel_Click lukker skjemaet helt; Me refererer alltid til skjemaet koden kjører i, så denne linjen fungerer uendret uansett hva du eventuelt gir skjemaet nytt navn.

Gjennomgangseksempel: Lagre en ny kunde

Dette er prosedyren bak Lagre-knappen — den som faktisk skriver en ny rad inn 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

Oppgave

1. Sett inn et nytt UserForm, gi det navnet frmAddCustomer, og legg til tre TextBoxes (txtCompanyName, txtContact, txtEmail) og to ComboBoxes (cboCity, cboStatus), hver med tilhørende etikett.
2. Legg til to CommandButtons, cmdSave og cmdCancel, og skriv prosedyrene UserForm_Initialize og cmdCancel_Click nøyaktig som vist.
3. Skriv cmdSave_Click som vist, og legg deretter til en midlertidig knapp et annet sted i arbeidsboken med koden frmAddCustomer.Show for å teste åpning av skjemaet.
4. Fyll ut skjemaet for en fiktiv sjette kunde og klikk Save — bekreft at en ny rad vises i tblCustomers med verdiene du har skrevet inn.