Tô sáng màu dòng theo điều kiện

[lp0072021]

Chào các anh chị.
Em nhờ các anh chị giúp em code để tô sáng màu dòng (highlight) khi di chuyển con chuột vào cột G thì nếu cùng số ID thì các dòng đó được tô màu. Cảm ơn các anh chị.

 

[snow25]

Chào các anh chị.
Em nhờ các anh chị giúp em code để tô sáng màu dòng (highlight) khi di chuyển con chuột vào cột G thì nếu cùng số ID thì các dòng đó được tô màu. Cảm ơn các anh chị.

Mục đích làm gì vậy bạn.Hỏi vui thôi.

 

[vanlinh_2904]

Mục đích làm gì vậy bạn.Hỏi vui thôi.

Để khi nhập liệu cho khỏi hoa mắt và để dễ phân biệt với các dòng của ID khác. Mình nghĩ vậy.

 

[snow25]

Để khi nhập liệu cho khỏi hoa mắt và để dễ phân biệt với các dòng của ID khác. Mình nghĩ vậy.

Vậy sao không chơi kiểu nhập 1 ô nó nhận toàn bộ các ô còn lại.

 

[lp0072021]

Vậy sao không chơi kiểu nhập 1 ô nó nhận toàn bộ các ô còn lại.

Mình dùng để phân biệt các dòng có cùng ID, và số liệu các dòng khác nhau nên không thể nhập 1 ô nó nhận toàn bộ các ô còn lại.

 

[donghung1512]

Tô màu vậy chỉ làm nặng file và chạy chậm mà thôi. Nếu nhiều ID thì có thể chọn ID rồi nhập data.

 

[lp0072021]

Tô màu vậy chỉ làm nặng file và chạy chậm mà thôi. Nếu nhiều ID thì có thể chọn ID rồi nhập data.

Mong muốn của mình là highlight khi con chuột ở vị dòng có cùng ID thôi, khi thoát ra thì không còn tô màu, chứ không phải là tô màu cố định luôn nên mình nghĩ không làm nặng file.

 

[snow25]

Chào các anh chị.
Em nhờ các anh chị giúp em code để tô sáng màu dòng (highlight) khi di chuyển con chuột vào cột G thì nếu cùng số ID thì các dòng đó được tô màu. Cảm ơn các anh chị.

Thử code này nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
        Dim i As Long, lr As Long, dk As String
        If Not Intersect(Target, Range("G8:G1000")) Is Nothing Then
               lr = Range("E" & Rows.Count).End(xlUp).Row
               dk = UCase(Target.Value)
                Range("E8:G1000").Interior.ColorIndex = 0
                For i = 8 To lr
                    If Range("E" & i).Value = dk Then
                        Range("E" & i).Resize(, 3).Interior.ColorIndex = 4
                    End If
                Next i
       End If
End Sub

 

[lp0072021]

Thử code này nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
        Dim i As Long, lr As Long, dk As String
        If Not Intersect(Target, Range("G8:G1000")) Is Nothing Then
               lr = Range("E" & Rows.Count).End(xlUp).Row
               dk = UCase(Target.Value)
                Range("E8:G1000").Interior.ColorIndex = 0
                For i = 8 To lr
                    If Range("E" & i).Value = dk Then
                        Range("E" & i).Resize(, 3).Interior.ColorIndex = 4
                    End If
                Next i
       End If
End Sub

Mình thử code rồi, nhưng mình thấy phải đánh vào cột G mới highlight. Mong muốn của mình là chỉ cần di chuyển con chuột vào các ô ở cột G nếu các dòng có cùng số ID thì highlight. cảm ơn bạn

 

[snow25]

Mình thử code rồi, nhưng mình thấy phải đánh vào cột G mới highlight. Mong muốn của mình là chỉ cần di chuyển con chuột vào các ô ở cột G nếu các dòng có cùng số ID thì highlight. cảm ơn bạn

Thử code dưới.

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim i As Long, lr As Long, dk As String
If Not Intersect(Target, Range("G8:G1000")) Is Nothing Then
lr = Range("E" & Rows.Count).End(xlUp).Row
dk = UCase(Target.offset(-2).Value)
Range("E8:G1000").Interior.ColorIndex = 0
For i = 8 To lr
If Range("E" & i).Value = dk Then
Range("E" & i).Resize(, 3).Interior.ColorIndex = 4
End If
Next i
End If
End Sub

 

[lp0072021]

Thử code dưới.

Mình thử rồi nhưng không được, bạn xem lại giúp mình với nhé.

 

[cantl]

Mình thử rồi nhưng không được, bạn xem lại giúp mình với nhé.

Ý bác ấy là Offset(0, -2) cơ.

 

[snow25]

Mình thử rồi nhưng không được, bạn xem lại giúp mình với nhé.

Thử code lúc nãy viết bằng điện thoại sai chính tả.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim i As Long, lr As Long, dk As String
        If Not Intersect(Target, Range("G8:G1000")) Is Nothing Then
               lr = Range("E" & Rows.Count).End(xlUp).Row
               dk = UCase(Target.Offset(, -2).Value)
                Range("E8:G1000").Interior.ColorIndex = 0
                For i = 8 To lr
                    If Range("E" & i).Value = dk Then
                        Range("E" & i).Resize(, 3).Interior.ColorIndex = 4
                    End If
                Next i
       End If
End Sub

 

[lp0072021]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long, lr As Long, dk As String If Not Intersect(Target, Range("G8:G1000")) Is Nothing Then lr = Range("E" & Rows.Count).End(xlUp).Row dk = UCase(Target.Offset(, -2).Value) Range("E8:G1000").Interior.ColorIndex = 0 For i = 8 To lr If Range("E" & i).Value = dk Then Range("E" & i).Resize(, 3).Interior.ColorIndex = 4 End If Next i End If End Sub

Cảm ơn bạn nhiều nhé.

 

[htin1997]

Chào các anh chị.
Em nhờ các anh chị giúp em code để tô sáng màu dòng (highlight) khi di chuyển con chuột vào cột G thì nếu cùng số ID thì các dòng đó được tô màu. Cảm ơn các anh chị.

Anh dùng thử file này nha, em đang dùng "Conditional formatting"
Công thứ em để kế bên nhé.
Nếu cần nó phản ứng nhanh thì thêm code event "selection change" rồi "calculate" là được.