opmaak kolomen

[RdS]

Ik wil graag een hele reeks met kolomen opmaken.

Kolom A : blauw
Kolom B:"geel
Kolom C: blauw
Kolom D: geel
etc
etc

Hoe kan ik dit het makkelijkste doen?

Ik werk in excel 2007

 

[vanloon]

Kolom A klikken deze wordt dan geselecteerd en de kleur maken die je wilt

 

[vanloon]

zie bijlage

 

[RdS]

Goed, dat snap ik.

Echter om 1 voor 1 een kolom aan te klikken, kleur te geven, volgende aanklikken kleur geven.

Ik moet zo'n 80 kolommen een kleur geven. Dat moet toch makkelijker kunnen.

 

[keesbl]

Hallo,

De gewenste kolommen 1 voor 1 selecteren met de CTRL toets ingedrukt. En dan de kolommen de juist kleur geven.

Kees

 

[Jack Nouws]

Hallo,

Of je laat VBA het werk voor je doen

Sub KolommenKleuren()
  For i = 1 To 80 Step 2
    Columns(i).Interior.ColorIndex = 5
    Columns(i + 1).Interior.ColorIndex = 6
  Next
End Sub

Met vr gr,
Jack

 

[RdS]

Kijkt, vba werkt heel goed.

Waar kan ik ergens een vertaaltabel vinden tussen kleur en vba kleurcode ?

 

[Jack Nouws]

Waar kan ik ergens een vertaaltabel vinden tussen kleur en vba kleurcode ?

Hallo,

Die kun je ook zelf maken me bijv. deze code.

Sub KleurCode()
  For i = 1 To 56
    With Sheets(1).Cells(Rows.Count, "A").End(xlUp)
      .Offset(1) = "Kleurnummer " & i
      .Offset(1, 1).Interior.ColorIndex = i
    End With
  Next
End Sub

Met vr gr,
Jack

 

[Jack Nouws]

Je kunt ook gebruik maken van de RGB functie, toegepast in deze code.

Sub kleurtje()
  [A1].Interior.Color = RGB(255, 0, 0)
End Sub