Excel VBA

Øvelserne kan tages i det tempo, der passer en, hvilket gør det muligt at gå i dybden med udvalgt teori og øvelser og inddrage arbejdsrelaterede udfordringer/problemstillinger direkte i kurset.

Der er hurtig respons fra underviser, man bliver udfordret på opgaverne og får ikke lov til og gå videre før en opgave er løst tilfredsstillende.

Kan anbefale kurset til andre.

Brian Lind Olsen, OUH Odense Universitetshospital

Excel VBA

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

Ole Cordes Kristensen, Ce-Tec

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

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

Excel VBA

Det er rart at kunne tage kurset i sit eget tempo, når det lige passer ind, men det giver også en risiko for at det lige bliver langstrækt nok, men så er det godt underviseren kan holde én lidt i ørerne med mails wink

Eva Bonne Alkærsig, EBA InterrimControlling

< >
Se flere referencer

Arbejde med arkfaner

Det kan være ganske nyttigt, at oprette arkfaner og flytte informationer mellem arkfanerne. I arbejdet med arkfaner har er der to nyttige objekter ActiveSheet og Worksheets.

Worksheets

Er en objektsamling af alle arkfaner med mange interessante anvendelser. Lad os se et par eksempler

Worksheets("Ark2").Activate

vil aktivere Ark2.

Dim ws As Worksheet
For Each ws In Worksheets
  MsgBox ws.Name
Next

vil løbe alle arkfaner igennem og vise deres navn i en messagebox.

Worksheets.Add(after:=Worksheets("Ark2"), Type:=xlWorksheet).Name = "Nyt arknavn"

Vil oprette en ny arkfane med navnet "Nyt arknavn" efter "Ark2". Bemærk den nye metode til at overføre informationer til Add metoden. Add metoden forventer 4 parametre: Add(Before, After, Count, Type). I stedet for at overføre alle 4 parametre i den rækkefølge de forventes kan man nøjes med at overføre de parametre man faktisk vil overføre og ved at bruge notationen med := kan man overføre dem i den rækkefølge man ønsker.

En anden nyttig konstruktion er

Worksheets.Add(after:=Worksheets(Worksheets.Count), Type:=xlWorksheet).Name = "Nyt arknavn"

der vil oprette en arkfane med navnet "Nyt arknavn" i efter de arkfaner der er i forvejen.

Der er naturligvis en række andre interessante metoder og egenskaber til Worksheets objektsamlingen - de kan alle ses hvis man skriver Worksheets. i VBA editoren. En sidst der skal nævnes her er delete metoden.

Application.DisplayAlerts = False
Worksheets("Ark3").Delete
Application.DisplayAlerts = True 

der vil slette Ark 3 uden varsel - uden Application.DisplayAlerts = False vil Excel komme ud med en advarsel inden arket slettes.

Activesheet

Activesheet har stort set de samme metoder og egenskaber som Worksheets. Activesheet peger bare kun på ét ark, nemlig det aktive. Dvs. man kan skrive Activesheet.Name, Activesheet.Delete etc.

 


 

Variable

Erfaringen viser, at det kan være en godt idé at bruge variable når man arbejder med arkfaner - det kunne se sådan her ud:

Dim wksAktuelle As Worksheet
Set wksAktuelle = Activesheet

Vi bruger Set her fordi Worksheet er et objekt.

 


 

Findes arkfanen?

Et par eksempler på kode, der kan afgøre om en arkfane findes:

Function FindesArkfanen(navn As String) As Boolean
  Dim wks As Worksheet
  On Error Resume Next
  Set wks = Sheets(navn)
  If wks Is Nothing Then 'Arkfanen findes ikke
    MsgBox "Arkfanen findes ikke", vbCritical,""
    Set wks = Nothing
    FindesArkfanen = False
    On Error GoTo 0
  Else 'Findes
    MsgBox "Arkfanen findes", vbInformation, ""
    Set wks = Nothing
    FindesArkfanen = True
    On Error GoTo 0
  End If
End Function

Og en lidt kortere udgave, der ikke bruger "On Error"

Public Function FindesArkfanen(navn As String) As Boolean
  FindesArkfanen = Not (IsError(Evaluate(navn & "!A1")))
End Function

 

 

 

 

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.