Nedenfor ser vi på et program i Excel VBA at går gjennom hele den første kolonnen og farger alle verdier som er lavere enn en bestemt verdi.
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. Deklarer først en variabel kalt i av typen Long. Vi bruker en variabel av typen Long her fordi lange variabler har større kapasitet enn heltallsvariabler.
Dim i As Long
2. Deretter legger du til kodelinjen som endrer skriftfargen til alle cellene i kolonne A til svart.
Kolonner (1). Font.Color = vbBlack
3. Legg til løkken.
For i = 1 til rader
Neste jeg
Merk: regneark kan ha opptil 1048576 rader i Excel 2007 eller nyere. Uansett hvilken versjon du bruker, går linjen ovenfor over alle radene.
4. Deretter fargelegger vi alle verdier som er lavere enn verdien som er lagt inn i celle D2. Tomme celler ignoreres. Legg til følgende kodelinjer i løkken.
Hvis Cells (i, 1) .Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1) .Value) Then
Celler (i, 1). Font.Color = vbRed
Slutt om
Resultat når du klikker på kommandoknappen på arket (dette kan ta en stund):