Dùng Chuột Chọn Cell, Highlight Dòng Và Cột

[anhtuan1066]

Khi bạn bấm chuột vào cell nào thì nó sẽ Highlight toàn bộ dòng và cột ứng với cell đó... Cái code trong file này có thể giúp mình đở mõi mắt khi phải theo dỏi 1 file có nhiều dử liệu... (nhìn cell A400, đối chiếu sang cột G lại nhầm vào cell G401, chuyện này rất thường xảy ra)... Có highlight này sẽ tránh dc những nhầm lẩn tương tự...
Chú ý: File đang có tô màu thì nó sẽ bị xóa màu khi bạn Click chuột vào đây!
Xem thử nha!
Mến
ANH TUẤN

 

[Mr Okebab]

Cái này cũng khá hay đó. Tuy nhiên màu của các ô sẽ bị mất, vì thế khá nguy hiểm. Có lẽ cần đề ra giải pháp bác ạ. VD: trước khi nó biến màu thì sẽ copy vào vùng tạm nào đó, sau đó sẽ copy lại nếu dời chuột khỏi nó.

Thân!

 

[funnyzui]

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Static rr
    Static cc
    
 [COLOR=Red] If cc <> "" Then[/COLOR]
     [COLOR=Blue]With Columns(cc).Interior
            .ColorIndex = xlNone
        End With
        With Rows(rr).Interior
            .ColorIndex = xlNone
        End With[/COLOR]
  [COLOR=Red]End If
[COLOR=black].
.
.
.[/COLOR]
[/COLOR]     
       
End Sub

Em cũng chỉ hơi hiểu hiểu code của bác thôi. Nhưng bác Tuấn cho em hỏi dòng điều kiện If..then có tác dụng gì? Vì em đã xóa nó đi mà ko thấy có ảnh hưởng hết.

 

[Mr Okebab]

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Static rr
    Static cc
    
 [COLOR=Red] If cc <> "" Then[/COLOR]
     [COLOR=Blue]With Columns(cc).Interior
            .ColorIndex = xlNone
        End With
        With Rows(rr).Interior
            .ColorIndex = xlNone
        End With[/COLOR]
  [COLOR=Red]End If
[COLOR=black].
.
.
.[/COLOR]
[/COLOR]     
       
End Sub

Em cũng chỉ hơi hiểu hiểu code của bác thôi. Nhưng bác Tuấn cho em hỏi dòng điều kiện If..then có tác dụng gì? Vì em đã xóa nó đi mà ko thấy có ảnh hưởng hết.

Dòng code này có tác dụng xóa đi các định dạng của hàng và cột trước khi nó chuyển sang ô khác.

Nhờ Bắp sửa lại dùm sao cho nó đừng xóa màu cell đang có...

Em làm hơi chuối, bác xem nhé :
Thân!

 

[chuyentoan.vietnam]

Cho tui hỏi là làm sao các bạn tạo được cái Hight light đó vậy
hướng dẫn cụ thể cho tui học hỏi với

 

[chuyentoan.vietnam]

Tui đang làm danh sách học sinh , nhập điểm lung tung hết , do có nhiều dạng cột nên khó nhìn.
mong mọi người giúp tui cách tạo hightlight đó đi, trau truốt thêm cho kết quả càng tuyệt vời ấy

vietchuyentoan@yahoo.com.vn

chuyentoan.vietnam@yahoo.com.vn

mong hồi âm của mọi người

Tất cả vì học sinh thân yêu mà