[Chia sẻ] Tô sáng dòng và cột khi di chuyển trên sheet

Liên hệ QC

ego.bizzin

Thành viên chính thức
Tham gia
18/4/13
Bài viết
92
Được thích
78
' TAGS : 2014-05-04, EB.GPE, chia sẻ, hàm tự tạo, share, UDF, UDS, tô sáng, đánh dấu, hàng, cột, highlight, column, row
[gpecode=vb]
' Tham khảo thêm tại
' http://www.giaiphapexcel.com/forum/archive/index.php/t-36986.html

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static rr
Static cc

If cc <> "" Then
With Columns(cc).Interior
.ColorIndex = xlNone
End With
With Rows(rr).Interior
.ColorIndex = xlNone
End With
End If

r = Selection.Row
c = Selection.Column
rr = r
cc = c

' Bắt đầu tô đoạn mã tô sáng cột
With Columns(c).Interior
.ColorIndex = 6 'Chọn màu
.Pattern = xlSolid
End With 'Kết thúc đoạn mã tô sáng cột

' Bắt đầu đoạn mã tô sáng hàng
With Rows(r).Interior
.ColorIndex = 6 'Chọn màu
.Pattern = xlSolid
End With 'Kết thúc đoạn mã tô sáng hàng
End Sub
[/gpecode]

56ColorIndex.png
 
Lần chỉnh sửa cuối:
[h=2][Chia sẻ] Tô sáng dòng và cột khi di chuyển trên sheet[/h]

Chủ đề này đã được bàn nhiều lần trên diễn đàn rồi (bạn có thể search)
Nói chung là code này không thuyết phục vì nó sẽ xóa sạch toàn bộ màu mà người ta đã tô trước đó
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Sao mắc cười hả bạn? Bạn có biết giải thuật chính để tô sáng không file ấy là gì không? Đó chính là điểm hay mà không phải ai cũng biết đâu nha!

Em mắc cười là cái chuyện trong ô có công thức kìa

Còn cái giải thuật thì, em chưa đủ trình !

Anh hiểu lầm em rồi ~)):
 
Upvote 0
Web KT
Back
Top Bottom