Tô đen dòng hoặc cột của ô đang chọn..

[nguyentrungse7en]

Chào các anh chị. Xin các anh chị giúp em 1 vấn đề nhỏ: làm sao để khi chuột đang ở 1 ô nào đó thì cả dòng hoặc cột sẽ được tô chọn (như khi dùng chuột chọn cả dòng hoặc cột). Em muốn làm như vậy để tiện xem 1 bảng dài sao cho không bị nhầm lẫn các dòng với nhau. Em đã làm các cho đứng lại phần tiêu đề (Freeze Top Row) nhưng không khả thi cho lắm.
Rất mong được chỉ dạy

 

[PhanTuHuong]

Tôi cho ví dụ đây, một sheet là cột và 1 sheet là hàng. Sử dụng lập trình VBA

 

[ndu96081631]

Tôi cho ví dụ đây, một sheet là cột và 1 sheet là hàng. Sử dụng lập trình VBA

Trời ơi! Nếu vậy thì làm sao nhập liệu hả thầy? Ẹc... Ẹc...

 

[PhanTuHuong]

Trời ơi! Nếu vậy thì làm sao nhập liệu hả thầy? Ẹc... Ẹc...

Mục tiêu hỏi vậy mà bác.

 

[ndu96081631]

Mục tiêu hỏi vậy mà bác.

Tuy người ta hỏi vậy (vì có thể người ta không biết) nhưng mình nghĩ highlight bằng cách tô màu bằng CF hoặc AddIn HighLight của Nguyễn Duy Tuân sẽ hay hơn chứ

 

[Ba Tê]

Mục tiêu hỏi vậy mà bác.

Có lẽ tác giả cũng chưa hiểu mình hỏi cái gì!
Tặng tác giả cái "củ chuối" này xài đỡ đi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.EntireColumn.Interior.ColorIndex = 36
Target.EntireRow.Interior.ColorIndex = 36
End Sub

 

[PhanTuHuong]

Có lẽ tác giả cũng chưa hiểu mình hỏi cái gì!
Tặng tác giả cái "củ chuối" này xài đỡ đi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.EntireColumn.Interior.ColorIndex = 36
Target.EntireRow.Interior.ColorIndex = 36
End Sub

Nếu code của bác như vậy thì khi di chuyển sang ô khác vẫn phải cần trả lại thiết lập màu như cũ.

 

[ndu96081631]

Nếu code của bác như vậy thì khi di chuyển sang ô khác vẫn phải cần trả lại thiết lập màu như cũ.

Bởi vậy mới nói: Dù là code thì cũng phải code dựa trên CF mới ăn tiền
Trước mình có viết 1 code highlight tại đây, thấy cũng dùng được:
http://www.giaiphapexcel.com/forum/showthread.php?38511-Add-In-dùng-để-Highlight-dòng-cột

 

[Ba Tê]

Nếu code của bác như vậy thì khi di chuyển sang ô khác vẫn phải cần trả lại thiết lập màu như cũ.

Nếu tác giả yêu cầu cao hơn "củ chuối" thì phải nói rõ hơn một chút nữa chứ.
Đã là "củ chuối" thì sao bằng "bào ngư, vi cá" được.
Hì hì...

 

[PhanTuHuong]

Nếu tác giả yêu cầu cao hơn "củ chuối" thì phải nói rõ hơn một chút nữa chứ.
Đã là "củ chuối" thì sao bằng "bào ngư, vi cá" được.
Hì hì...

Người hỏi trả thấy đâu, toàn mấy ông trả lời vặn vẹo nhau

Kiểu như "chưa mắng xong đã cãi xong rồi". hi hi

 

[Hong.Van]

Có lẽ tác giả cũng chưa hiểu mình hỏi cái gì!
Tặng tác giả cái "củ chuối" này xài đỡ đi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.EntireColumn.Interior.ColorIndex = 36
Target.EntireRow.Interior.ColorIndex = 36
End Sub

Em chào Thầy cô & anh chị!
Cái highlight trên diễn đàn cũng có nhiều
Hiện em muốn cái Highlight có CheckBox để on/off
CheckBox này Linkedcell Với Cell A1
Khi Off cái Highlight này thì
ColorIndex = 0
Em cảm ơn!
---------
P/s: Em muốn áp dụng Từ code này cho một số việc khác của em

 

[Hong.Van]

Hic, cũng mò ra được

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("a1") = True Then
  Rows.Interior.ColorIndex = xlColorIndexNone
  Target.EntireColumn.Interior.ColorIndex = 36
  Target.EntireRow.Interior.ColorIndex = 36
  Else
  Rows.Interior.ColorIndex = xlColorIndexNone
End If
Application.ScreenUpdating = True
End Sub

 

[Nhím xù lông F1]

Chắc cái này là đúng ý nè (Nhím copy lại để xài lâu rùi nên quên link )