Excel / VBA - Boja dio stupca
Imam kod za bojenje dio retka na temelju onoga što je uneseno u određeni stupac, ali bih htio prenijeti taj kôd tako da se dio stupca oboji na temelju podataka unesenih u niz. Kako podesiti sljedeći kôd:
Privatni podradni list_Promjena (ByVal Target As Range) 'Kada se napravi promjena u radnom listu ... Ako se ne siječe (cilj, raspon ("B3: B100")), onda ništa' ... bilo kojoj stanici od B3 do B100 (Uloga) ... Ako je Selection.Cells.Count> 1 Zatim izađite iz Sub (izađite iz retina ako promjene unesete u više od jedne ćelije - sprječava rušenje. Odaberite Case Target Case "Manager" "... provjerite je li ćelija sadrži "Upravitelj" ... Raspon ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 "... i ako je tako, promijenite boju ćelija u tom retku, od B - AH do blijedo žute boje. 'Ostali slučajevi ovdje .... Kraj Odaberi Kraj Ako završi Sub
Riješenje
Izvoli:
Privatni pod radni list_Promjena (ByVal Target As Range) Ako je sjecište (cilj, raspon ("A3: L3")) ništa ili _ Selection.Cells.Count> 1 Zatim izađite iz podsektorskog slučaja Target Case "Manager" Raspon (ćelije (1, Ciljna kolona), ćelije (30, ciljna kolona)).
Zahvaljujući TrowaD-u na ovom savjetu.