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