Đổi màu dòng, cột tương ứng khi ô được chọn

[duong_nam_dao]

Em có 1 tài liệu (kèm theo). Không biết sao nó trục trặc, nhắp chuột vào ô thì mãi nó mới đổi màu, hoặc đổi màu lung tung. Các bác xem giúp. Cám ơn các bác nhiều !

 

[huycuongxd]

Nếu bạn ko muốn đổi màu linh tinh thì bạn vào: Format/ Conditional Formating và xóa mấy cái Cell... và Column...đi là OK.

 

[duong_nam_dao]

Nhưng mình muốn chọn ô nào thì dòng và cột ô đó đổi màu. Mong bạn giúp đỡ mình

 

[hoangdanh282vn]

Nhưng mình muốn chọn ô nào thì dòng và cột ô đó đổi màu. Mong bạn giúp đỡ mình

Bạn dùng cái này thử xem sao

Sub worksheet_selectionchange(ByVal target As Range)
Dim row As Integer
Dim col As Integer
row = target.row
col = target.Column
Cells.Interior.ColorIndex = xlNone
Columns(col).Interior.ColorIndex = 1
Rows(row).Interior.ColorIndex = 1
End Sub

 

[DOSNET]

Nhưng mình muốn chọn ô nào thì dòng và cột ô đó đổi màu. Mong bạn giúp đỡ mình

Ý bạn là như này phải không ?

 

[hoangdanh282vn]

Mình sửa lại vậy cho gọn hơn

Sub worksheet_selectionchange(ByVal target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(target.Column).Interior.ColorIndex = 3
Rows(target.row).Interior.ColorIndex = 3
End Sub

 

[duong_nam_dao]

Mình có 1 file chạy tôt lắm, mình làm giống vậy mà không được. Các bạn xem hộ nhé !

 

[duong_nam_dao]

Bác hoangdanh282vn ơi, code của bác chạy rất tốt, nhưng bác giúp em khi chạy vẫn giữ nguyên màu nền cũ (những cột, dòng khác). Cám ơn bác nhiều !

 

[ndu96081631]

Bác hoangdanh282vn ơi, code của bác chạy rất tốt, nhưng bác giúp em khi chạy vẫn giữ nguyên màu nền cũ (những cột, dòng khác). Cám ơn bác nhiều !

File của bạn gần đúng, chỉ khác với file gốc ở 2 điểm:
- Thiếu code... bạn bấm Atl + F11 trên file gốc để xem code rồi copy vào file của mình
- Thiếu name... bạn bấm Ctrl + F3 trên file gốc để xem name rồi thiết lập trên file mình giống vậy!
Chú ý: Việc Highlight này không nên dùng code để set màu, vì như vậy sẽ làm mất màu của file gốc... Chỉ nên dựa trên cơ sở CF để set màu

 

[SA_DQ]

Đến đây xem thử

http://www.giaiphapexcel.com/forum/showthread.php?p=53145#9