TỰ ĐỘNG TÔ MÀU DÒNG VÀ CỘT THEO CON TRỎ CHUỘT

Mở VBA: Alt+F11

Conditionnal Formatting:

=ROW()=CELL("Row")

=Column()=Cell("Col")

=And(Row()=Cell("Row"),Column()=Cell("Col"))

VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = True

End Sub