Em muốn sửa phần code của bác Minhlev để dùng thử , nhưng chạy thử báo lỗi , các bác xem hộ em sai ở đâu với:
Sub TOMAU()
Range("Sheet15").Activate
Range("c4:E1000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;1)=""K"""
Selection.FormatConditions(1).Interior.ColorIndex = 41
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;2)=""G3"""
Selection.FormatConditions(2).Interior.ColorIndex = 41
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;2)=""G4"""
Selection.FormatConditions(3).Interior.ColorIndex = 41
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;2)=""G6"""
Selection.FormatConditions(4).Interior.ColorIndex = 27
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;2)=""G7"""
Selection.FormatConditions(5).Interior.ColorIndex = 27
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;2)=""G9"""
Selection.FormatConditions(6).Interior.ColorIndex = 27
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=left($c4;1)=""M"""
Selection.FormatConditions(7).Interior.ColorIndex = 27
End Sub
Dòng em tô đỏ báo lỗi , các bác sửa lại giúp.