Excel VBA

Hurtige tilbagemeldinger på spørgsmål og øvelser. God opbygning af kurset

Sune Jeppson, Arbejdernes Landsbank

Excel VBA

Det har været godt at selv kunne bestemme farten, samt bruge al den tid man nu selv synes for at lave opgaverne.

Det har været et hårdt kursus, men jeg har virkelig lært meget og er mere rustet til at lave nye makroer, hvor jeg så selv kan gå i i VBA og lave rettelser, fordi jeg kan forstå programmet.

Margit Gravgaard Larsen, Novo Nordisk A/S

Excel VBA

Hurtig response på opgaver.

Udfordrende opgaver.

Flemming Pedersen, Semco Maritime

Excel VBA

Det har været meget nærværende og personlig fjernundervisning med hurtige svar på spørgsmål og feedback på opgaver. Der har været stor engagement og ejerskab fra underviserens side.

Det faglige niveau har været vekslende mellem "begynder" og "ekspert" opgaver.

Brian Deleuran, Radiometer

Excel VBA

Jeg har gennemført kurset Excel VBA. Jeg var skeptisk overfor måden at lære på inden jeg gik i gang, men jeg må sige at min skepsis blev gjort til skamme. Lige fra første lektion følte jeg at jeg virkelig lærte noget.

Thors tilgang til materialet er perfekt. Gennem løbende øvelser får man lejlighed til at afprøve teorien i praksis.

Beder man om lidt hjælp, så kommer den lynhurtig – men det er kun et hint og så kan man selv finde ud af resten – det er perfekt for herved tvinges eleven til at tænke sig om – mon det kan bruges i folkeskolen også :).

Kurset er ALLE pengene værd og kan køres når man har tid og er motiveret. Holder man for lange pauser i undervisningen, så komme Thors pegefinger i form af en mail og så er det bare om at komme i gang igen :)

Jacob Madsen, Mettler-Toledo A/S

< >
Se flere referencer

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):

Excel VBA kursus - userform hændelsesprocedure - fjernundervisning

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.

Excel VBA kursus - userform eventhandler - fjernundervisning

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:

Excel VBA kursus - userform validering - fjernundervisning

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

 

Når du har betalt for kurset får du adgang til øvelser til hver lektion. Og når du har fået godkendt din besvarelse får du desuden adgang til mine løsningsforslag med ekstra tips og trix.