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

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

Kurset er godt, fordi det tvinger kursisten til at arbejde selvstændigt. Det er lidt lig forelæsning, hvor det er fuldstændigt op til een selv at arbejde med stoffet.
Thor Østergaards pædagogik er baseret på "hjælp til selvhjælp", og alt er holdt i en let og uhøjtidelig tone.

Fjernundervisning har yderligere den fordel at man kan sidde hjemme og koncentrere sig om emnet, uden at blive forstyrret af andre (ofte mindre motiverede) kursister.

Flemming Degn, Privat

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

Excel VBA

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

Ole Cordes Kristensen, Ce-Tec

< >
Se flere referencer

Markering af område

Nu skal vi rigtig i gang med programmeringen! Første udfordring er at markere et område. Det lyder umiddelbart trivielt, men kan godt indeholde sjove udfordringer - f.eks. i det tilfælde, at vi ikke ved, hvor mange linjer, der er i et datasæt, men gerne vil markere hele datasættet.

Range objektet er det objekt vi skal have fat i her - det har følgende syntaks:

Range(Celle1, Celle2)

Det fungerer på følgende måde:

Range("A2").Select - markerer celle A2
Range("A2:B7").Select - markerer området A2:B7
Range("A2", "B7").Select - markerer også området A2:B7

Det er jo rimelig simpelt. Men, hvad så hvis man vil markere sidste celle i kolonne B, men man ved ikke hvor stort datasættet er? - det kan man gøre sådan her:

Range("B1").End(xlDown).Select

Og markering af hele kolonne B

Range("B1", Range("B1").End(xlDown)).Select

Hvad så med cellen lige under den sidste celle i B kolonnen:

Range("B1").End(xlDown).Offset(1,0).Select

De tre sidste metoder forudsætter faktisk at der står noget i alle cellerne i kolonne B i datasættet samt at der er mere end én linje i datasættet.

Vil du være sikker på, at det virker også i det tilfælde, hvor der kun er én linje i datasættet starter man nedefra i stedet:

Dim sidsteR As Long
sidsteR = ActiveSheet.Rows.Count
Range("B" & sidsteR).End(xlUp).Select 
Range(Range("B2"), Range("B" & sidsteR).End(xlUp)).Select 
Range("B" & sidsteR).End(xlUp).Offset(1, 0).Select

Er der huller i datasættet må man tage udgangspunkt i en kolonne, hvor man er sikker på, at der ikke er huller og bruge Range(Celle1 , Celle2).Select til at fange området. Celle1 kan "bare" være toppen af kolonnen med huller og Celle2 skal jo være den sidste celle i kolonnen med huller i. Bruger du Range(Celle).End(xlDown) på én kolonne uden huller kan du med Offset flytte over så du peger på den sidste celle i kolonnen med huller.

Arbejder du med navngivne celler kan du også skrive

Range("RabatCelle").Select    ' vil markere den/de celler der hedder RabatCelle
                               (forudsætter, at den/de faktisk findes!)

Læg mærke til, at du også kan arbejde med områder, der ikke er på den aktuelle arkfane:

Worksheets("Ark3").Range("D10")
Workbooks("Salg.xls").Worksheets("Ark2").Range("D10")

Pas på, hvis du skal arbejde på et område på f.eks. Ark3 skal det se sådan her ud:

Worksheets("Ark3").Range("D10", Worksheets("Ark3").Range("D10").End(xlDown))

Eller smartere

With Worksheets("Ark3")
  .Range("D10", .Range("D10").End(xlDown))
End With

 


 

Specielle celler

En interessant metode! Du kender måske muligheden for at gå til specielle celler fra menuen Rediger | Gåtil

Den kan også kaldes inde fra VBA - et lille eksempel på det:

Dim rgSidste As Range
Dim lSidsteRække, lSidsteKolonne As Long
Set rgLast = Range("A1").SpecialCells(xlCellTypeLastCell)
lSidsteRække = rgSidste.Row
lSidsteKolonne = rgSidste.Column

Læg mærke til, at Excel tager alle celler med, der har været brugt siden regnearket blev åbnet - også celler du har slettet igen. Det betyder at du ikke kan være 100% sikker på denne funktion med mindre regnearket lige er blevet gemt/åbnet.

Et lille eksempel der virker under alle omstændigheder...

Dim lSidsteRække, lSidsteKolonne As Long
Range("A1").Select
On Error Resume Next
lSidsteRække = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
lSidsteKolonne = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
Cells(lSidsteRække, lSidsteKolonne).Select

 


 

Current region

Du kender sikkert muligheden for at trykke Ctrl + * fra tastaturet for at markere hele det dataområde der er omkring en celle. Det samme kan du fra VBA:

Range("D7").CurrentRegion.Select

 

 

 

 

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.