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

Hình mẫu:

Mở VBA: Alt+F11

Code:

=ROW()=CELL("Row")

Application.ScreenUpdating = True

=Column()=Cell("Col")

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

B1:  Các bạn vào Home chọn Conditional Formatting chọn New Rule

Tự động tô màu dòng và cột theo con trỏ chuột: