Code Highlight nguyên hàng (row) khi 1 cell trong hàng đó được chọn (1 người xem)

[alexanderhuti]

Nhờ các anh chị và các bạn giúp đỡ giùm em đoạn code:
Khi chọn 1 ô nào đó trong Excel thì cả hàng đó sẽ được highlight lên để cho dễ nhìn (vì em nhập dữ liệu cả ngàn ô mỗi ngày lận, hix hix).

 

[Quang_Hải]

Nhờ các anh chị và các bạn giúp đỡ giùm em đoạn code:
Khi chọn 1 ô nào đó trong Excel thì cả hàng đó sẽ được highlight lên để cho dễ nhìn (vì em nhập dữ liệu cả ngàn ô mỗi ngày lận, hix hix).

Code nè

Option Explicit
Public Irow As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells(Irow, 1).EntireRow.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
Irow = Target.Row
End Sub

 

[alexanderhuti]

Cảm ơn bác nhiều lắm ạ. Bác cho em hỏi là nếu em muốn đổi màu thì thay giá trị ở đoạn nào ạ??

 

[alexanderhuti]

Hix, nhưng mà cái này nó làm mất luôn màu của những ô đã tô sẵn trước đó.
Cái em cần là đối với những ô chưa nhập dữ liệu, khi chọn vào nó thì cả hàng đó sẽ sáng lên. Bác xem lại giúp em ạ!

 

[Quang_Hải]

Hix, nhưng mà cái này nó làm mất luôn màu của những ô đã tô sẵn trước đó.
Cái em cần là đối với những ô chưa nhập dữ liệu, khi chọn vào nó thì cả hàng đó sẽ sáng lên. Bác xem lại giúp em ạ!

Cho xem file của bạn đi rồi tính

 

[Nguyễn Duy Tuân]

Nhờ các anh chị và các bạn giúp đỡ giùm em đoạn code:
Khi chọn 1 ô nào đó trong Excel thì cả hàng đó sẽ được highlight lên để cho dễ nhìn (vì em nhập dữ liệu cả ngàn ô mỗi ngày lận, hix hix).

Tôi đã xây dựng một Add-in GridHighlighter tương đối hoàn chỉnh tại đây. Bạn download về cài rồi dùng luôn không phải lập trình hay thủ thuật gì cả,

http://www.giaiphapexcel.com/forum/...ighLighter-–-Add-Ins-Trợ-giúp-bảng-tính-Excel

 

[alexanderhuti]

Tôi đã xây dựng một Add-in GridHighlighter tương đối hoàn chỉnh tại đây. Bạn download về cài rồi dùng luôn không phải lập trình hay thủ thuật gì cả,

http://www.giaiphapexcel.com/forum/...ighLighter-–-Add-Ins-Trợ-giúp-bảng-tính-Excel

Hay quá. Cảm ơn bác nhiều.
Bác thử nghiên cứu luôn cách "thay đổi đường viền bằng higlight row luôn được không ạ"!

 

[Nguyễn Duy Tuân]

Hay quá. Cảm ơn bác nhiều.
Bác thử nghiên cứu luôn cách "thay đổi đường viền bằng higlight row luôn được không ạ"!

higlight row có thể làm được nhưng mình không làm vì:
1. Tốc độ tính toán của bảng tính bị chậm
2. Ảnh hưởng khi in ra giấy
3. Rất khó để khôi phục những địng dạng nền phong phú của người dùng.

 

[jack nt]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("MyFrame").Left = 0
Shapes("MyFrame").Top = Target.Top - 3.5
Shapes("MyFrame").Height = Target.Cells(1, 1).Height + 7
Shapes("MyFrame").Width = Application.Width
End Sub

bạn xài thử file đính kèm. nếu không muốn in cái khung viền thì bỏ check trong "print object"
tui thường xài cách này, rất đơn giản. nếu thích chỉ kẻ chân thôi thì thay Frame bằng Line và chỉnh code một chút.

 

[meohoang11]

hic, code của mấy anh chị, em xài ok, nhưng khi chọn nhiều row, thì nó tô màu hết các row đó, sau đó phải click bỏ màu cho từng row, hic

 

[boda9999]

Sao em dung đoạn code này lại không dùng được chức năng ctrl +z ạ

 

[langtuchungtinh360]

Sao em dung đoạn code này lại không dùng được chức năng ctrl +z ạ

vì khi chạy code rồi là không thể Ctrl +Z để quay lại được nữa. trong khi code này thì luôn chạy khi click chuột.
mình nhớ có 1 bài trên diễn đàn có nói vụ Ctrl+Z được nhưng chỉ 1 lần( nội dung bài đó có liên quan đến ẩn dòng ấy)