VBA kode omkring userforms

Det sidste vi mangler at lave omkring userforms er at kode hændelsesprocedurer, så der også kommer til at ske noger når brugeren trykker på knappen.

Hændelsesprocedure til knap

Hvis man dobbeltklikker på en knap i en userform bliver der oprettet en hændelsesprocedure til knappen. Det ser sådan her ud (når knappen hedder opret):

I hændelsesproceduren kan du skrive al den VBA kode du har lært. De kontrolelementer der er på userformen er objekter, der kan adresseres med deres navn. Findes der en tekstbox på userformen, der hedder txtNavn kan indholdet trækkes ud og afleveres i regnearket med koden:

Range("A1").Value = txtNavn.Value

Og på samme måde kan man også hente værdier ud af de øvrige kontrolelementer. Dog er det lidt specielt, hvis man skal hente værdier ud af en listbox, hvor multiselect egenskaben er sat true - så kan brugeren jo vælge flere elementer i listen. Her følger lidt kode, der kan bruges som inspiration for det tilfælde:

For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) = True Then
    MsgBox ListBox1.List(i, 0)
  End If
Next

Hændelsesprocedurer på userformen selv

I toppen af arbejdsvinduet er der to dropdown bokse. Vælger man UserForm i den første kan man vælge forskellige hændelsesprocedurer i den anden.

Initilize hændelsesprocedurern kan bruges til at få kode afviklet når UserFormen bliver vist første gang - det kunne f.eks. være at fylde indhold på en dropdownkontrol. Det kunne se sådan her ud (forudsat dropdownkontrollen hedder cboGruppe)

Private Sub UserForm_Initialize()
  cboGruppe.AddItem "Vælg gruppe"
  cboGruppe.AddItem "PC"
  cboGruppe.AddItem "Skærm"
  cboGruppe.ListIndex = 0
End Sub

Hændelsesprocedurer på de øvrige kontrolelementer (datavalidering)

De enkelte kontrolelementer har også hændelsesprocedurer, der f.eks. kan bruges til at validere de data brugeren indtaster/vælger. Vælg kontrollen i venstre dropdownkontrol og Exit i den højre - så får du den viste hændelsesprocedure:

Bemærk, at der overføres en parameter Cancel, der kan bruges til at styre om brugeren må komme videre. Det kan bruges til validering - det kunne se sådan her ud:

Private Sub txtAntal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(txtAntal.Value) Then
    MsgBox "Her skal du skrive et tal" 
    Cancel = True 
  End If
End Sub

Luk userform

Når du gerne vil lukke userformen efter brugeren har indtastet de ønskede informationer og du har placeret dem i regnearket skriver du

Unload Me