Excel VBA

Hurtige tilbagemeldinger på spørgsmål og øvelser. God opbygning af kurset

Sune Jeppson, Arbejdernes Landsbank

Excel VBA

At jeg kan fordybe når jeg har tid og lyst, er super.

Virkelig hurtig respons fra underviseren - næsten døgnet rundt :)

Øvelserne indeholdt hvad jeg skulle bruge, for at komme videre med egne vba-projekter.

At man kunne sammenligne egne løsninger med underviserens var lærerigt.

Henrik Boss, Marel Bornholm

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

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

Det har været rart at man selv kan bestemme tempoet og hvornår man laver opgaverne. Man kan også få hjælp til at få løst opgaverne anderledes, samt få hjælp til andre opgaver. Jeg synes også det har været sjovt at man ikke får det hele serveret, men skal søge lidt information selv.

Laila Jensen, Statens Serum Institut

< >
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.