Excel VBA kursus - Introduktion til VBA

Excel VBA

Hurtig respons.
Får en til at tænke selvstændigt.
Hjælpsom.

Ole Cordes Kristensen, Ce-Tec

Excel VBA

Hurtig response på opgaver.

Udfordrende opgaver.

Flemming Pedersen, Semco Maritime

Excel VBA

Meget hurtigt og kompetent feedback...

Sparring på den opgave, som jeg sidder og arbejder med.

Veltilrettelagte øvelser

Claus Witfelt, Flyvevåbnets Officersskole

Excel VBA

Den lette tilgang, og de ret hurtige svar retur. På den måde føler man, man kan få "udnyttet" tiden bedst muligt.

Jeg kan også godt li' emnerne i øvelserne. De har været meget brugbare - så er det bare at få "overført" til ens egen daglig brug :-)

Tina Eriksen, Skandinavisk Service Partner

Excel VBA

Super form for kursus, har været perfekt at jeg kunne koncentrere mig om kurset når jeg havde tid.

Hurtig tilbagemelding på øvelser og altid hurtigt svar tilbage når man havde brug for hjælp.

Lækkert at man får dine løsningsforslag så man kan få ideer til at skrive scriptet på en anden måde.

Henrik Madsen, Alfa Laval Kolding A/S

< >

Se flere referencer

Hændelser

Ud over at være objektorienteret er VBA også hændelsesbaseret. Det betyder, at man kan skrive kode, der knytter sig til forskellige hændelser omkring regnearket. Lad os se på et lille eksempel. Dobbelt klik på ThisWorkbook. De to rullepaneler i toppen af arbejdsområdet giver mulighed for at vælge at skrive kode til forskellige hændelser omkring regnearket. Koden her knytter sig til den hændelse, at regnearket åbnes. Sådan en kode kalder man også en hændelsesprocedure.

Dobbeltklikker man på Ark1 til Ark3 kan man skrive hændelsesprocedurer til hændelser omkring de enkelte arkfaner. Vi kommer til at arbejde mere med hændelser når vi skal kigge på userforms.

Headers og Footeres på print

En typisk udfordring er, at man ønsker at få sat Header og Footer på sit print. Denne lille hændelsesprocedure hjælper med det:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim wks As Worksheet
  Dim sFilnavn As String
  Dim sFirmanavn As String
  sFirmanavn = Worksheets("Profit").Range("A1").Value
  sFilnavn = ThisWorkbook.FullName
  For Each wks In ThisWorkbook.Worksheets
    With wks.PageSetup
      .LeftFooter = sFirmanavn
      .CenterFooter = ""
      .RightFooter = sFilnavn
    End With
  Next
End Sub