Side 18 af 21FORRIGENÆSTE

Komme i sving med Excel-makroer

En aktiv For Each...Next-løkke

Denne For Each…Next-løkkemakro læser hver enkelt celle og farver den i overensstemmelse med indholdet.

Med denne makro kan du angive baggrundsfarven for celler i et valgt område. Baggrunden er rød, hvis en celle indeholder ordet "bog", grøn, hvis den indeholder ordet "film", blå, hvis den indeholder en anden værdi, og klar, hvis cellen er tom.

Denne proces kan udføres ved hjælp af funktionen Betinget formatering. Dette kodeeksempel viser imidlertid, hvordan du kan udføre en løkke på alle celler i et valgt område.

Sub LoopRange2()

"MyCell" er en variabel, der registrerer den celle, som løkken udføres på. Stjernerne i kodeeksemplet gør det muligt for koden at finde den angivne tekst, når denne er en del af anden tekst. Som vist i illustrationen søger denne kode ikke kun efter tekst, der begynder med store bogstaver. Den finder både "Bog" og "Læs bogen". Du kan opnå denne funktionsmåde ved at angive den, før makroen indtastes.

Du skal skrive følgende kode i starten af modulet, før du skriver Sub eller indsætter anden kode:

Option Compare Text

Denne indstilling angiver, at enhver efterfølgende kode, der bruger operatoren Like, ignorerer store og små bogstaver i den tekst, den udføres på. Uden denne indstilling skifter kodeeksemplet kun baggrundsfarve, når den finder tekst, der begynder med et stort bogstav.

Side 18 af 21FORRIGENÆSTE