Opret en makro

 Med Excel VBA kan du automatisere opgaver i Excel ved at skrive såkaldte makroer. I dette kapitel lærer du at oprette en simpel makro, der vil blive udført efter der bliver klikket på en kommandoknap. Først skal du aktivere fanen Udvikler.

Fanen Udvikler

For at aktivere fanen Udvikler, udfører du følgende trin.

1. Højreklik et vilkårligt sted på båndet, og klik derefter på Tilpas båndet.

2. Under Tilpas båndet, i højre side af dialogboksen, skal du vælge Hovedfaner (om nødvendigt).
3. Kontroller afkrydsningsfeltet Udvikler.
4. Klik OK.

5. Du finder fanen Udvikler ved siden af fanen Vis.

Kommando knap

For at placere en kommando knap i regnearket, udfører du følgende trin.

1. På fanen Udvikler klikkes på Indsæt.
2. I gruppen ActiveX-objekter klikker du på Kommandoknap.

3. Træk en kommando knap ned på dit regneark.

Tildel en makro

Hvis du vil tildele en makro (en eller flere kodelinjer) til en kommandoknap, udfører du følgende trin.

1. Højreklik på CommandButton1 (sørg for at Designtilstand er valgt).
2. Klik på Vis programkode (du kan også dobbeltklikke på knappen).

Visual Basic Editoren vises.

3. Placer markøren mellem Private Sub CommandButton1_Click () og End Sub.
4. Tilføj kodelinjen vist nedenfor

Bemærk: Vinduet til venstre med navnet Ark1 kaldes Project Explorer. Hvis Project Explorer ikke er synligt, skal du klikke View à Project Explorer. For at vise kodevinduet til det første ark, skal du klikke på Ark1 (Ark1).

5. Luk Visual Basic Editor.
6. Klik på kommandoknappen på arket (sørg Designtilstand er fravalgt).

Resultat:

Visual Basic Editor

For at åbne Visual Basic Editor, klikkes på Visual Basic under fanen Udvikler.

Visual Basic Editor vises.

Ombyt værdier

Dette eksempel lærer dig, hvordan at ombytte to værdier i Excel VBA. Du vil ofte få brug for denne struktur i mere komplicerede programmer, som vi vil se senere. Situation:

Placer en kommandoknap i dit regneark og tilføje følgende kodelinjer:

1. Først erklærer vi en variabel kaldet temp af typen Double.

Dim temp As Double

2. Vi initialiserer variablen temp med værdien fra celle A1.

temp = Range(”A1”).Value

3. Nu kan vi roligt skrive værdien af celle B1 til celle A1 (vi har gemt værdien af celle A1 i temp, så vi ikke mister den).

Range(”A1”). Value = Range(”B1”).Value

4. Endelig skriver vi værdien af celle A1 (skrevet til temp) til celle B1.

Range(”B1”).Value = temp

5. Klik på kommandoknap to gange.

 Resultat:

Afvikl kode fra et modul

Som nybegynder i Excel VBA, kan du måske synes det svært at beslutte dig for, hvor du skal placere din VBA-kode. Afsnittet Opret en makro illustrerer, hvordan du kører koden ved at klikke på en kommandoknap. Dette eksempel lærer dig, hvordan du kører kode fra et modul.

1. Åbn Visual Basic Editor.
2. Vælg Insert -> Module.

3. Opret en procedure (makro) der hedder Cyan.

Sub Cyan ()

End Sub

Bemærk: en procedure er enten en sub eller en funktion.

4. Denne sub ændrer baggrundsfarven på regnearket til farven cyan. For at gøre dette, skal du tilføje følgende kode linje.

Cells.Interior.ColorIndex = 28

Bemærk: I stedet for ColorIndex nummer 28 (cyan), kan du bruge et hvilket som helst ColorIndex nummer.

For at køre proceduren, udfører du følgende trin.

5. Klik Makroer.

6. Vælg Cyan og klik på Afspil.

Resultat:

Bemærk: kode der er anbragt i et modul er tilgængelig for hele projektmappen. Det betyder, du kan vælge Ark2 eller Ark3 og ændre baggrundsfarven på disse ark tilsvarende. Eksemplet Tilføj en makro til værktøjslinjen viser, hvordan man laver en makro, der er til rådighed for alle dine projektmapper (Excel-filer). Husk, kode der er placeret i et ark (tildelt til en kommando knap) kun er tilgængelig på det pågældende ark.