/ / Loop genom hela kolumnen i Excel VBA

Loop genom hela kolumnen i Excel VBA

Nedan ser vi på ett program i Excel VBA den där loopar genom hela första kolumnen och färgar alla värden som är lägre än ett visst värde.

Gå igenom hela kolumnen i Excel VBA

Gå igenom hela kolumnen i Excel VBA

Placera en kommandoknapp på ditt arbetsblad och lägg till följande kodlinjer:

1. Förklara en variabel som heter I av typen Long. Vi använder en variabel av typen Lång här, eftersom Långa variabler har större kapacitet än Integer-variabler.

Dim i As Long

2. Lägg sedan till kodlinjen som ändrar teckensfärgen på alla celler i kolumn A till svart.

Columns(1).Font.Color = vbBlack

3. Lägg till slingan.

For i = 1 To Rows.Count

Next i

Notera: kalkylblad kan ha upp till 65.536 rader i Excel 2003 och upp till 1.048.576 rader i Excel 2007 eller senare. Oavsett vilken version du använder, kodlinjen ovanför slingor genom alla rader (nedladdningsbar Excel-fil finns i Excel 97-2003-format).

4. Därefter färgar vi alla värden som är lägre än värdet som matats in i cell D2. Tomma celler ignoreras. Lägg till följande kodlinjer till slingan.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Resultat när du klickar på kommandoknappen på arket (det kan ta ett tag):

Gå igenom hela kolumnresultatet

Gå igenom hela kolumnresultatet

Läs också: