Excel VBA kursus - VBA programmering

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

Meget hurtigt og kompetent feedback...

Sparring på den opgave, som jeg sidder og arbejder med.

Veltilrettelagte øvelser

Claus Witfelt, Flyvevåbnets Officersskole

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

Godt med muligheden for sparring med underviser og forslag til andre løsningsmetoder end mine egne - selvom mine også fungerede.

Godt med muligheden for ingen tidsbegræsning for kurset. Havde jeg - pga. arb. situation, brug for.

Anja Hansen, TDC

Excel VBA

Den lette tilgang, og de ret hurtige svar retur. På den måde føler man, man kan få "udnyttet" tiden bedst muligt.

Jeg kan også godt li' emnerne i øvelserne. De har været meget brugbare - så er det bare at få "overført" til ens egen daglig brug :-)

Tina Eriksen, Skandinavisk Service Partner

< >

Se flere referencer

Formler

Det er ikke specielt kompliceret at indsætte formler i et regneark fra VBA - det gøres igen via Range objektet. Range objektet har en stribe egenskaber der kan bruges til formålet:

Egenskab

Anvendelse

Formula

Range("A1").Formula = "=B2*B3" vil indsætte formlen "B2*B3" i celle A1

FormulaArray

Range("E1:E3").FormulaArray = "=Sum(R1C1:R3C3)" vil indsætte en matrixformel i E1:E3. Bemærk at man skal bruge RC notation

FormulaHidden

Range("A1:B1").FormulaHidden = True vil skjule formlerne i A1:B1 hvis arkfanen beskyttes

FormulaLabel

ActiveWorkbook.AcceptLabelsInFormulas = True
Worksheets(1).Range("a1:e3").FormulaLabel = xlColumnLabels - vil gøre det muligt at bruge kolonne labels i formler

FormulaLocal

Giver mulighed for at angive formler i den danske udgave - dvs. du kan skrive Range("A1").FormulaLocal = "=Middel(B2:B3)" (hvis du arbejder i en dansk Excel)

FormulaR1C1

Virker som Formula, men forudsætter du bruger RC notation

FormulaR1C1Local

Virker som FormulaLocal, men forudsætter du bruger RC notation

Bruger man ikke FormulaLocal skal man huske at alt foregår på engelsk - det gælder både funktionnavne, tal og dato formatering.

Et par eksempler

Range("C1").Formula = "=A1*B1"

Vil altså sætte formlen =A1*B1 ind i celle C1.

Range("D1").Formula = "=C1*1.25"

Lægger moms til tallet i C1 og skriver det med formlen =C1*1,25 i celle D1. Læg mærke til at formlen skrives med . i stedet for , . Når vi arbejder med Formula skal alle formler skrives på "amerikansk".

Man kan også skrive

Range("C1:C10").Formula = "=A1*B1"

Det er en sød lille detalje, der udnytter, at Excel arbejder med relative referencer. Linjen vil indsætte formlen =A1*B1 i celle C1, =A2*B2 i celle C2 osv. (Prøv selv om det passer)

Læg også mærke til at vi kan opbygge formlen dynamisk, hvis vi har behov for det.

AntalRækker = Range("A1").End(xlDown).Row
Range("C1").End(xlDown).Offset(1, 0).Formula = "=Sum(C2:C" & AntalRækker & ")"