[excel] rijen afwisselend inkleuren met een macro

[powerman]

Ik wil in een blad de even rijen inkleuren ik heb nu dit:

code:

Sub Kleuren()
Dim intTel As Integer
Range("A1").Select
For intTel = 1 To 10
      If intTel Mod 2 = 0 Then
            ActiveCell.Interior.Color = RGB(255, 0, 0)
      Else
            ActiveCell.Interior.Color = RGB(0, 0, 255)
      End If
      ActiveCell.Offset(1, 0).Select
Next intTel
End Sub

maar die doet alleen kolom A, en ik wil tot kolom F

[maroesjk]

Waarom wil je dit met een macro doen? Met "voorwaardelijke opmaak" of "conditional formatting" kan dit makkelijker.

Bijvoorbeeld door in de voorwaardelijke opmaak te checken of de formule ISEVEN(KOLOM()) of ISEVEN(COLUMN()) waar is...

P.S. de Nederlandse formule is wellicht niet juist, ik heb hier alleen een Engelse Excel

[ Voor 22% gewijzigd door maroesjk op 02-05-2004 20:15 ]

[powerman]

maroesjk schreef op 02 mei 2004 @ 20:14:
Waarom wil je dit met een macro doen? Met "voorwaardelijke opmaak" of "conditional formatting" kan dit makkelijker.

Bijvoorbeeld door in de voorwaardelijke opmaak te checken of de formule ISEVEN(KOLOM()) of ISEVEN(COLUMN()) waar is...

P.S. de Nederlandse formule is wellicht niet juist, ik heb hier alleen een Engelse Excel

Een marco leek me wat makkelijker.

Maar wat jij voorsteld snap ik helemaal niet

Kun je het misschiet ietje duidelijker uitleggen a.u.b.

ps. ik werk zelf haast nooit met excel

[ Voor 6% gewijzigd door powerman op 02-05-2004 20:25 ]

[_nethack]

Natuurlijk doet hij alleen kolom A:

Range("A1").Select
Om te beginnen selecteer je alleen maar kolom A, en niet kolom A t/m F
--> Range("A1..F1").Select



ActiveCell.Interior.Color = RGB(255, 0, 0)
Else
ActiveCell.Interior.Color = RGB(0, 0, 255)
End If
ActiveCell.Offset(1, 0).Select

Daarna moet je wel de hele selectie een kleurtje geven en vervolgens een cel naar beneden schuiven, en niet alleen de actieve cel.
--> Maak van 'ActiveCell' maar eens 'Selection'

[TXC]

Maroesjk heeft het over voorwaardelijke opmaak wat je onder het menu opmaak kunt vinden. Daar kun je de celopmaak afhankelijk maken van de cel (of de waarde in de cel). Inderdaad veel makkelijker dus

[F_J_K]

Operations: door ActiveCell te gebruiken wordt gewoon 1 cel geselecteerd - en de offset maakt het helemaal af, op deze manier blijft er 1 kolom - zelfs 1 cel geselecteerd en dus gekleurd.

Voorwaardelijke opmaak: selecteer de relevante range -> opmaak -> voorwaardelijke opmaak -> doe je ding. Vele malen makkelijker en sneller dan een macro, zeker als je af en toe een rij invoegt of verwijdert.

Maar goed, voorwaardelijke opmaak dus. In F1 staat verder heel duidelijk uitgelegd hoe en wat het doet. Zie ook dit