Excel VBA

Det har bestemt været pengene værd. Jeg kender flere, som har taget VBA kursus on-site i et par dage eller deromkring , og de har slet ikke fået det samme ud af det som jeg har via denne side. Jeg har allerede udviklet små og større modeller til min arbejdsplads, og modellerne bruges allerede internationalt, det havde jeg ikke kunnet uden dette kursus.

Det er kanon, at man får personlig feedback og det går som regel tilmed hurtigt. Dygtig læremester, som sætter sig ind i mine specifikke problemstillinger - det er et stort plus. Den personlige kontakt er max vigtig.

Jeg vil anbefale dette til andre, der spørger til dette.

Michael Mortensen, DLH

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

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

Tak for et rigtigt godt og lærerigt kursus.

En af de store fordele ved kurset er, at man kan tage det i det tempo man ønsker og der er ikke noget tidspres.

Opgaverne er gode og udfordrene. Man kan selv, indenfor rammerne, bestemme hvor meget man vil gøre ud af det.

Beskrivelserne til opgaverne er lavet på en sådan måde, at der er også overladt lidt til ens egen fantasi, som jeg synes er en meget god ting.

Kurset har et rigtigt godt niveau, og materialet er godt lavet.

Underviseren ??? Ja, jeg ved ikke hvornår han sover.

Der går ikke lang tid efter man har sendt en opgave, til den er rettet, og altid med en god og konstruktiv kommentar. Også man får underviserens løsningsforslag.

Der er altid hurtig og god hjælp at hente, hvis man er gået i stå. Man får ikke bare løsningen, men et hint, så man kan komme videre.

Jeg vil varmt anbefale det til andre, og gør det !

Endnu engang tak for et godt kursus.

Med venlig hilsen

Peter Juul Jacobsen

Peter Juul Jacobsen, Mærsk Olie & Gas A/S

Excel VBA

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

Ole Cordes Kristensen, Ce-Tec
< >
Se flere referencer

Excel VBA / Øvrige VBA emner / Fejlhåndtering

Fejlhåndtering

Det er ikke alle fejl i vores programmer, der opstår fordi vi selv har lavet en fejl i vores kode. Nogle fejl kan opstå f.eks. fordi brugeren har glemt at sætte en diskette i drevet, som vi gerne vil gemme noget på. Sådan en fejl vil få vores program til at gå ned med en fejlkode, som brugeren kan have svært ved at forstå og vi kan ikke være sikre på, at der faktisk er blevet gemt noget på disketten. Til at fange den slags fejl har vi "on error" metoden. Den virker sådan her:

On Error GoTo LineLabel

Som vist i dette lille eksempel, som du kan prøve at kopiere ind i et modul og teste

 

Sub AktiverNytArk
On Error GoTo ErrHandler:
    Worksheets("NytArk").Activate 
    Exit Sub

ErrHandler:
    If Err.Number = 9 Then
        MsgBox "Arket findes ikke!"
        ' Arket findes ikke, så vi opretter det
        Worksheets.Add.Name = "NytArk"
        ' Retur til den linje, hvor fejlen opstod
        Resume
    End If
End Sub

Og et mere:

Sub GemTilA()
  On Error GoTo ErrorTrap
  ChDrive "A"
  MyFile = "A:\Data.XLS"
  Application.DisplayAlerts = False
  ActiveWorkBook.SaveAs FileName:=MyFile
  Exit Sub
Rydop:  
  MsgBox "Der er ikke blevet gemt noget på disketten fordi brugeren har trykket på annuller"
  Exit Sub 
ErrorTrap: 
  Besked = "Fejl nr: = " & Err.Number & vbCr & _ 
           Err.Description & vbCr & vbCr & _ 
           "Indsæt en diskette i drevet og tryk ok " 
  Svar = MsgBox(Besked, vbQuestion + vbOKCancel, "Error") 
  If Svar = vbCancel Then Resume Rydop 
  Resume
End Sub

Vi har som du ser et par muligheder for at genoptage afviklingen af koden

  • Resume - genoptager afviklingen med den linje der gav fejlen
  • Resume Next - genoptager afviklingen lige efter den linje der gav fejl
  • Resume LinieLabel - genoptager afviklingen ved den label vi har angivet

Du kan også vælge "On Error Resume Next", men det skal man nok lige overveje lidt...

Et eksempel på brug af On Error Resume Next

On Error Resume Next
    N = 1 / 0    ' Skab en fejl
    If Err.Number <> 0 Then 
        N = 1
    End If

 

 

Central fejlhåndtering

Et lille eksempel, som jeg håber du kan bruge

Sub MinMakro()
  On Error Goto LokalFejl
  ..
  ..

RydOp:
  Exit Sub

LokalFejl:
  iHandling = Central("MinMakro", vbAbortRetryIgnore)
  Select Case iHandling
    Case vbAbort
      Resume Rydop
    Case vbRetry
      Resume
    Case vbIgnore
      Resume Next
  End Select
End Sub

Function Central(stKalder As String, iKnapper As Integer) As Integer
  Debug.Print stKalder, Err.Number, Err.Description
  If bLogging Then Print #2, Now, stKalder, Err.Number
  Select Case Err.Number
    Case xx
      Central = MsgBox("Der er et problem med ..." , iButtons, Title:=Application.Caption & ": " & stCaller)
    Case ...
  End Select
End Function

Find en liste over fejlnumre her: https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/trappable-errors

 

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.

Sikkerhed Ressourcer