Làm thế nào để thay đổi màu nền của ô?

[vsleha]

Change Cell Background Color

Xin chào mọi người. Em biết một thuộc tính Activecell.Interior.ColorIndex để Change cell background color dùng VBA nhưng không biết khai báo như thế nào trong macro. Mình có thể tạo nó thành một Add-In để sử dụng đúng không ạ ? Tóm lại em muốn thay đổi màu của cell theo điều kiện. Ví dụ em đính kèm đây ạ

 

[SA_DQ]

Em biết thuộc tính Activecell.Interior.ColorIndex để Change cell background color dùng VBA nhưng không biết khai báo như thế nào trong macro. Mình có thể tạo nó thành một Add-In để sử dụng đúng không ạ ? Tóm lại em muốn thay đổi màu của cell theo điều kiện. Ví dụ em đính kèm đây ạ

Bạn chép macro này & thử xem đúng chưa, nha!

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B:B")) Is Nothing Then
    With Target
        If .Offset(, -1) = .Value Then
            .Interior.ColorIndex = 36
        Else
            .Interior.ColorIndex = 38
        End If
    End With
 End If
End Sub

Nên chọn màu nhạt cho dễ nhìn!