Tự động tô màu nền dữ liệu

[TrinhCao150193]

T muốn khi nháy chuột vào 1 ô có giá trị trong excel thì tự động tô màu nền vùng table bên dưới thì cài định dạng hay công thức ntn? Ai biết vui lòng chỉ giúp với, xin cám ơn ạ!

 

[phulien1902]

T muốn khi nháy chuột vào 1 ô có giá trị trong excel thì tự động tô màu nền vùng table bên dưới thì cài định dạng hay công thức ntn? Ai biết vui lòng chỉ giúp với, xin cám ơn ạ!

Bạn cần có File giả lập, mới có câu trả lời được.

 

[TrinhCao150193]

Mình gửi thêm file đính kèm mọi người xem giúp mình nha!

 

[phulien1902]

Mình gửi thêm file đính kèm mọi người xem giúp mình nha!

Thử:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LR&
    LR = Cells(Rows.Count, 1).End(3).Row
    Range("A5:F" & LR).Interior.ColorIndex = xlNone
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        Range("A5:F" & LR).Interior.ColorIndex = 36
    End If
End Sub

 

[TrinhCao150193]

Thử:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LR&
    LR = Cells(Rows.Count, 1).End(3).Row
    Range("A5:F" & LR).Interior.ColorIndex = xlNone
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        Range("A5:F" & LR).Interior.ColorIndex = 36
    End If
End Sub

Có cách nào khác viết code vba không bạn? Máy mình 2003 không biết xài!