Tự động bôi màu với điều kiện cho sẵn (1 người xem)

[khoa289]

Chào mọi người.
Cho mình hỏi code VBA để tự động bôi màu vàng và có chữ màu đỏ tại cột "Kết thúc" với điều kiện cột đánh giá là "dấu ?". Đính kèm file
Cám ơn.
PS: Thay vì dùng Conditional Formatting

 

[giaiphap]

Không dùng code được không bạn?

 

[khoa289]

Không dùng code được không bạn?

Vì cần dùng code vì:
1.Mình theo dõi nhiều gói thầu, cảnh báo nhiều cột thời gian nên dùng code sẽ nhanh hơn so với Conditional Formatting.
2. Nếu mình copy cột đó qua cột khác thì phải 1 lần nữa xóa Conditional Formatting.
3.Mình muốn học hỏi anh em code VBA.
Thanks

 

[giaiphap]

Bạn sử dụng thử code này xem sao?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Not Intersect(Target, [H7:H9]) Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In Target
        If Rng.Value = "?" Then
            Rng.Offset(, -1).Interior.Color = 65535
            Rng.Offset(, -1).Font.Color = -16776961
        Else
            Rng.Offset(, -1).Interior.Pattern = xlNone
            Rng.Offset(, -1).Font.ColorIndex = xlAutomatic
        End If
    Next Rng
    Application.EnableEvents = True
End If
End Sub

 

[khoa289]

Bạn sử dụng thử code này xem sao?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Not Intersect(Target, [H7:H9]) Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In Target
        If Rng.Value = "?" Then
            Rng.Offset(, -1).Interior.Color = 65535
            Rng.Offset(, -1).Font.Color = -16776961
        Else
            Rng.Offset(, -1).Interior.Pattern = xlNone
            Rng.Offset(, -1).Font.ColorIndex = xlAutomatic
        End If
    Next Rng
    Application.EnableEvents = True
End If
End Sub

Cám ơn nhưng minh đã thử mà code chưa chạy được.

 

[phulien1902]

Cám ơn nhưng minh đã thử mà code chưa chạy được.

Code bài #4 hoạt động bình thường bạn nhé.

 

[phulien1902]

Chào mọi người.
Cho mình hỏi code VBA để tự động bôi màu vàng và có chữ màu đỏ tại cột "Kết thúc" với điều kiện cột đánh giá là "dấu ?". Đính kèm file
Cám ơn.
PS: Thay vì dùng Conditional Formatting

Nếu bạn muốn dùng Button(nút) thì bạn tham khảo:

Sub abc()
    Dim Cll As Range
    For Each Cll In Range("H7:H9")
        If Cll.Value = "?" Then
            Cll.Offset(, -1).Interior.ColorIndex = 6
            Cll.Offset(, -1).Font.ColorIndex = 3
        Else
            Cll.Offset(, -1).Interior.ColorIndex = -4142
            Cll.Offset(, -1).Font.ColorIndex = -4105
        End If
    Next Cll
End Sub

 

[khoa289]

Cám ơn bạn giaiphap và phulien1902 nhiều nhiều.