Macro tô màu hàng, cột ô - vùng ô hiện hành

Hôm nay mình phải kiểm tra những số liệu từ bảng giấy và file excel, cả ngàn dòng làm mình hoa cả mắt. Ngồi nghịch một tí tạo cảm hứng làm tiếp.

[Visual Basic] 纯文本查看 复制代码

Private Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireColumn.Interior.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 6
End Sub

Anh em có kinh nghiệm thêm muối, thêm mấm tí nha.
Ô nào hiện hành sẽ tô màu cột, dòng.

Mình nghĩ chỉ cần tạo 2 đường gạch chỉ giao nhau tại ô active là được. Highlight cả dòng và cột khi bạn có dòng hoặc cột quá rộng nhìn màu chói mắt lắm!

Sửa lại cho phù hợp công việc.

[Visual Basic] 纯文本查看 复制代码

Private Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireColumn.Interior.ColorIndex = 8
Target.EntireRow.Cells(1).Resize(1, 5).Interior.ColorIndex = 6
End Sub

phamvana gửi lúc 30/7/2014 09:23
Sửa lại cho phù hợp công việc.
[mw_shl_code=vb,true]Private Sub worksheet_selectionchange(ByVa ...

Highlight_CF_01.xls (29 KB, Lượt tải về: 26)

31/7/2014 07:32 Tải lên

Click to download Các bạn có thể tham khảo thêm cách đổi màu cell chọn bằng Conditional Formatting
File của bác ndu - giaiphapexcel

Các bạn xài thử Grid Highlighter của anh Tuân bên Giaiphapexcel xem sao
http://bluesofts.net/download/category/4-ph.html