Dùng Chuột Chọn Cell, Highlight Dòng Và Cột (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

anhtuan1066

Thành viên gạo cội
Tham gia
10/3/07
Bài viết
5,802
Được thích
6,912
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
 

File đính kèm

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!
 
Upvote 0
Mã:
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.
 
Upvote 0
funnyzui đã viết:
Mã:
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!
 

File đính kèm

Upvote 0
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
 
Upvote 0
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à
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom