Excel / VBA - Phần màu của cột

Tôi có mã để tô màu một phần của một hàng dựa trên những gì được nhập vào một cột cụ thể, nhưng tôi muốn hoán đổi mã này để một phần của cột được tô màu dựa trên dữ liệu được nhập trong một hàng. Cách chỉnh mã dưới đây:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Khi thay đổi được thực hiện trong bảng tính ... Nếu không phải Intersect (Target, Range ("B3: B100")) Không có gì sau đó' ... (Vai trò) ... Nếu Selection.Cells.Count> 1 Sau đó Thoát Sub '(thoát tái xuất nếu thay đổi được thực hiện cho nhiều ô cùng một lúc - ngăn chặn sự cố Chọn Case Case Case "Manager"' ... kiểm tra xem ô đó chứa "Trình quản lý" ... Phạm vi ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... và nếu vậy hãy thay đổi màu của các ô trong hàng đó, từ B - AH sang màu vàng nhạt. 'Các trường hợp khác ở đây .... End Chọn End If End Sub 

Dung dịch

Ở đây bạn đi:

 Bảng tính phụ riêng tư_Thay đổi (ByVal Target As Range) Nếu Intersect (Target, Range ("A3: L3")) Is nothing Hoặc _ Selection.Cells.Count> 1 Sau đó thoát Sub Chọn Case Case Case Manager "Manager" Target.Column), Cells (30, Target.Column)). Nội thất.ColorIndex = 36 End Chọn End Sub 

Cảm ơn TrowaD cho mẹo này.