Dùng vba viết code tự bôi màu cho ô cần thiết

[Uyennamph]

Em xin chào mọi người. Em có 1 vướng mắc xin được mọi người chỉ giáo giúp em với ạ. Em muốn dùng VBA tự động bôi đỏ 1 ô ( tại dòng số 5 ). nếu ô đó xuất hiện chữa K ( ví dụ như ô c5, F5 hay cw5 .... ) khi có chữ K thì tự động ô đó bôi đỏ. Cách viết code VBA như thế nào cho xin mọi người giúp đỡ em với ạ

 

[Phuocam]

Em xin chào mọi người. Em có 1 vướng mắc xin được mọi người chỉ giáo giúp em với ạ. Em muốn dùng VBA tự động bôi đỏ 1 ô ( tại dòng số 5 ). nếu ô đó xuất hiện chữa K ( ví dụ như ô c5, F5 hay cw5 .... ) khi có chữ K thì tự động ô đó bôi đỏ. Cách viết code VBA như thế nào cho xin mọi người giúp đỡ em với ạ

Sao không dùng CF, dùng code chi cho cực?

 

[phulien1902]

Em xin chào mọi người. Em có 1 vướng mắc xin được mọi người chỉ giáo giúp em với ạ. Em muốn dùng VBA tự động bôi đỏ 1 ô ( tại dòng số 5 ). nếu ô đó xuất hiện chữa K ( ví dụ như ô c5, F5 hay cw5 .... ) khi có chữ K thì tự động ô đó bôi đỏ. Cách viết code VBA như thế nào cho xin mọi người giúp đỡ em với ạ

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Rows("5:5")) Is Nothing Then
        If Target = "K" Or Target = "k" Then
            Target.Interior.Color = vbRed
        Else
            Target.Interior.Color = xlNone
        End If
    End If
End Sub

 

[Uyennamph]

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Rows("5:5")) Is Nothing Then
        If Target = "K" Or Target = "k" Then
            Target.Interior.Color = vbRed
        Else
            Target.Interior.Color = xlNone
        End If
    End If
End Sub

Dạ vâng ạ. Em xon chân thành cảm ơn ạ

Bài đã được tự động gộp: 5/10/20

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Rows("5:5")) Is Nothing Then
        If Target = "K" Or Target = "k" Then
            Target.Interior.Color = vbRed
        Else
            Target.Interior.Color = xlNone
        End If
    End If
End Sub

Dạ vâng ạ. Em xin chân thành cảm ơn ạ