TỰ ĐỘNG BÔI MÀU KHI CÓ ĐIỀU KIỆN

Liên hệ QC

HOCHOI123597

Thành viên mới
Tham gia
26/7/22
Bài viết
24
Được thích
0
Nhờ cả nhà hỗ trợ giúp, khi cột 13 kết quả là chỉ từ "xong" thì cột 9 "thực hiện" tự động bôi màu vàng, nhờ mọi người hỗ trợ giúp ạ
 

File đính kèm

Nhờ cả nhà hỗ trợ giúp, khi cột 13 kết quả là chỉ từ "xong" thì cột 9 "thực hiện" tự động bôi màu vàng, nhờ mọi người hỗ trợ giúp ạ
Bạn nên sửa tiêu đề đi. Đừng viết hoa cả cụm thế.
Để đáp ứng yêu cầu của bạn. bạn có thể dùng chức năng Conditional Formatting
 

File đính kèm

Chào bạn, nếu thích dùng code thì tham khảm đoạn code nhỏ dưới nhé !

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
dongcuoi = Sheet1.Cells(Sheet1.Rows.Count, "I").End(xlUp).Row
For i = 7 To dongcuoi
If Range("M" & i).Value = "Xong" Then
Range("I" & i).Interior.Color = 65535
Else
Range("I" & i).Interior.Color = xlNone
End If
Next
Application.ScreenUpdating = True
End Sub
 
Bạn nên sửa tiêu đề đi. Đừng viết hoa cả cụm thế.
Để đáp ứng yêu cầu của bạn. bạn có thể dùng chức năng Conditional Formatting
em cảm ơn bác nhiều nhé
Bài đã được tự động gộp:

Bạn xem thử nhé, dùng conditional formatting.
cách thiết lập nó như thế nào vậy ạ, bác có thể hướng dẫn cụ thể để em hiểu hơn được không
Bài đã được tự động gộp:

Chào bạn, nếu thích dùng code thì tham khảm đoạn code nhỏ dưới nhé !

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
dongcuoi = Sheet1.Cells(Sheet1.Rows.Count, "I").End(xlUp).Row
For i = 7 To dongcuoi
If Range("M" & i).Value = "Xong" Then
Range("I" & i).Interior.Color = 65535
Else
Range("I" & i).Interior.Color = xlNone
End If
Next
Application.ScreenUpdating = True
End Sub
dạ em cảm ơn bác nhiều
 
Web KT

Bài viết mới nhất

Back
Top Bottom