VBA  tô màu theo chuột

VBA  tô màu theo chuột

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = True

End Sub

Công thức

=and(Row()=Cell("Row"),Column()=Cell("col"))

=Row()=Cell("Row")

=Column()=Cell("col")