Tô màu dòng, cột.

[HIPfather]

Lại là em, 1 đứa chẳng biết gì nhiều về Excel nhưng biết về sức mạnh của nó.
Hôm nay em có 1 vấn đề mong được các cô chú, anh chị giúp.
Có lần e gặp đâu đó trường hợp khi mình kích vào 1 ô thì các ô hàng, cột tiêu đề được tô màu sáng lên (chỉ 1 ô). Em tìm trên Youtube cũng có hướng dẫn nhưng tô cả hàng và cột.
Anh chị có ai biết cách làm như hình em minh họa xin chỉ giáo với ạ? Em chưa rãnh về viết code nên cũng muốn học thêm.
Cảm ơn cả nhà mình. Chúc cô chú, anh chị luôn sức khỏe!!!

 

[SA_DQ]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
If Rng Is Nothing Then
    Exit Sub
Else
    Cells(1, 1).Resize(, Rng.Columns.Count).Interior.ColorIndex = 0
    Cells(1, 1).Resize(Rng.Rows.Count).Interior.ColorIndex = 0
End If
On Error GoTo LoiCT
If Not Intersect(Target, Rng) Then
    Dim ColColor As Integer, RwColor As Integer
    ColColor = (Target.Column Mod 9) + 34
    RwColor = (Target.Row Mod 9) + 35
  
    Cells(1, Target.Column).Interior.ColorIndex = ColColor
    Cells(Target.Row, 1).Interior.ColorIndex = RwColor
End If
Err_:           Exit Sub
LoiCT:
    If Err = 13 Then
        Resume Err_
    Else::                           Resume Next
    End If
End Sub

 

[be_09]

Lại là em, 1 đứa chẳng biết gì nhiều về Excel nhưng biết về sức mạnh của nó.
Hôm nay em có 1 vấn đề mong được các cô chú, anh chị giúp.
Có lần e gặp đâu đó trường hợp khi mình kích vào 1 ô thì các ô hàng, cột tiêu đề được tô màu sáng lên (chỉ 1 ô). Em tìm trên Youtube cũng có hướng dẫn nhưng tô cả hàng và cột.
Anh chị có ai biết cách làm như hình em minh họa xin chỉ giáo với ạ? Em chưa rãnh về viết code nên cũng muốn học thêm.
Cảm ơn cả nhà mình. Chúc cô chú, anh chị luôn sức khỏe!!!

Thử sử dụng File, áp dụng cho tất cả các sheet.

 

[HIPfather]

Thử sử dụng File, áp dụng cho tất cả các sheet.

Dạ, để em làm thử. Cảm ơn a/c rất nhiều ạ.