Excel / VBA - Färgdel av en kolumn

Jag har kod för att färga en del av en rad baserat på vad som anges i en viss kolumn, men jag skulle vilja omvandla denna kod så att en del av kolumnen är färgad baserat på uppgifterna i en rad. Så här anpassar du följande kod:

 Private Sub Worksheet_Change (ByVal Target As Range) "När en ändring görs i kalkylbladet ... Om inte Intersect (Target, Range (" B3: B100 ")) är ingenting sedan" ... till några celler från B3 till B100 (Roll) ... Om Selection.Cells.Count> 1 Then Exit Sub "(avsluta reoutine om ändringar görs i mer än en cell i taget - förhindrar kraschar Välj Case Target Case" Manager "" ... kontrollera om cellen innehåller "Manager" ... Räckvidd ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... och om så är fallet ändrar cellernas färg i den raden från B - AH till blekgult. "Andra fall här .... Slut Välj Slut om Slut Del 

Lösning

Här har du:

 Private Sub Worksheet_Change (ByVal Target As Range) Om Intersect (Target, Range ("A3: L3")) Finns ingenting eller _ Selection.Cells.Count> 1 Då Avsluta Sub Välj Case Target Case "Manager" Område (celler Target.Column), Celler (30, Target.Column)) .Intern.ColorIndex = 36 Slut Välj Slut Del 

Tack vare TrowaD för detta tips.