Nedan kommer vi att titta på ett program i Excel VBA det där går igenom hela den första kolumnen och färgar alla värden som är lägre än ett visst värde.
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Deklarera först en variabel som heter i av typen Long. Vi använder en variabel av typen Long här eftersom Långa variabler har större kapacitet än heltalsvariabler.
Dim i As Long
2. Lägg sedan till kodraden som ändrar teckensnittsfärgen för alla celler i kolumn A till svart.
Kolumner (1). Font.Color = vbBlack
3. Lägg till öglan.
För i = 1 till rader
Nästa i
Obs: kalkylblad kan ha upp till 1 048 576 rader i Excel 2007 eller senare. Oavsett vilken version du använder så går kodraden ovan igenom alla rader.
4. Därefter färgar vi alla värden som är lägre än värdet som anges i cell D2. Tomma celler ignoreras. Lägg till följande kodrader i slingan.
If Cells (i, 1) .Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1) .Value) Then
Celler (i, 1). Font.Color = vbRed
Avsluta om
Resultat när du klickar på kommandoknappen på arket (det kan ta ett tag):
