Excel / VBA - Farve del af en kolonne

Jeg har kode til at farve en del af en række baseret på, hvad der er angivet i en bestemt kolonne, men jeg vil gerne omsætte denne kode, så den del af kolonnen er farvet ud fra dataene i en række. Sådan tweak nedenstående kode:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Når der foretages en ændring i regnearket ... Hvis ikke Intersect (Target, Range ("B3: B100")) er der ikke noget ... til nogen celler fra B3 til B100 (Rolle) ... Hvis Selection.Cells.Count> 1 Then Exit Sub '(Afslut reoutine, hvis der foretages ændringer i mere end en celle ad gangen - forhindrer at krasje Vælg Case Target Case "Manager"' ... Kontroller, om cellen indeholder "Manager" ... Range ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... og i så fald ændre farve på cellerne i den række fra B - AH til lysegul. 'Andre tilfælde herinde .... End Vælg End Hvis End Sub 

Opløsning

Vær så god:

 Private Sub Worksheet_Change (ByVal Target As Range) Hvis Intersect (Target, Range ("A3: L3")) er Intet eller _ Selection.Cells.Count> 1 Derefter Exit Sub Select Case Målcase "Manager" Range (Celler (1, Target.Column), Celler (30, Target.Column)) .Internet.KolorIndex = 36 Afslut Vælg Slut Sub 

Takket være TrowaD for dette tip.