Hỏi về thay đổi màu hàng và cột trong excel (1 người xem)

[nnduongpt]

Em chào anh (chị), em có chút chuyện muốn làm phiền mong anh chị giúp đỡ, cụ thể như sau.
Em muốn khi dê chuột vào bất kỳ ô nào thì tương ứng hàng và cột của nó sẽ đổi màu.
Ví dụ:
Khi em dê chuột đến ô I5 thì cả cột I và hàng 5 đều đổi màu. Rất mong các anh (chị) chỉ bảo giúp em. Em xin chân thành cảm ơn!!!

 

[phulien1902]

Em chào anh (chị), em có chút chuyện muốn làm phiền mong anh chị giúp đỡ, cụ thể như sau.
Em muốn khi dê chuột vào bất kỳ ô nào thì tương ứng hàng và cột của nó sẽ đổi màu.
Ví dụ:
Khi em dê chuột đến ô I5 thì cả cột I và hàng 5 đều đổi màu. Rất mong các anh (chị) chỉ bảo giúp em. Em xin chân thành cảm ơn!!!

Bạn hãy xóa dòng quảng cáo phía dưới đi, nếu bạn không muốn gặp rắc rối.

 

[nnduongpt]

Bạn hãy xóa dòng quảng cáo phía dưới đi, nếu bạn không muốn gặp rắc rối.

Cảm ơn anh đã nhắc nhở. Em xóa rồi ạ

 

[quykiemsau]

Em chào anh (chị), em có chút chuyện muốn làm phiền mong anh chị giúp đỡ, cụ thể như sau.
Em muốn khi dê chuột vào bất kỳ ô nào thì tương ứng hàng và cột của nó sẽ đổi màu.
Ví dụ:
Khi em dê chuột đến ô I5 thì cả cột I và hàng 5 đều đổi màu. Rất mong các anh (chị) chỉ bảo giúp em. Em xin chân thành cảm ơn!!!

Dê chuột à bạn?
Vậy thì bạn đến tham khảo nhé,hoành tráng lắm đó

http://www.giaiphapexcel.com/forum/...-tạo-hiệu-ứng-trong-Excel&p=527633#post527633

 

[phulien1902]

Em chào anh (chị), em có chút chuyện muốn làm phiền mong anh chị giúp đỡ, cụ thể như sau.
Em muốn khi dê chuột vào bất kỳ ô nào thì tương ứng hàng và cột của nó sẽ đổi màu.
Ví dụ:
Khi em dê chuột đến ô I5 thì cả cột I và hàng 5 đều đổi màu. Rất mong các anh (chị) chỉ bảo giúp em. Em xin chân thành cảm ơn!!!

Code Sheet1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error GoTo ExitSub
  With Range("A1:V100")
    If Not Intersect(.Cells, Target) Is Nothing Then
      If Target.Count = 1 Then Highlight .Cells, 44, 3
    End If
  End With
ExitSub:
End Sub

Code Module:

Public Sub Highlight(ByVal Source_Range As Range, ByVal Color_Index As Long, Optional Highlight_Type As Long = 1)
   Dim TmpRng As Range, rCel As Range
  On Error Resume Next
  Set rCel = ActiveCell
  With Source_Range
    .FormatConditions.Delete
    Select Case Highlight_Type
      Case 1:
        Set TmpRng = Intersect(.Cells, rCel.EntireRow)
      Case 2:
        Set TmpRng = Intersect(.Cells, rCel.EntireColumn)
      Case 3:
        Set TmpRng = Intersect(.Cells, Union(rCel.EntireColumn, rCel.EntireRow))
      Case 4:
        Set TmpRng = Intersect(Range(.Cells(1, 1), rCel), Union(rCel.EntireColumn, rCel.EntireRow))
    End Select
  End With
  If Application.CutCopyMode = False Then
    TmpRng.FormatConditions.Add 2, , "TRUE"
    TmpRng.FormatConditions(1).Interior.ColorIndex = Color_Index
  End If
End Sub

 

[nnduongpt]

Hy vọng File đính kèm là cái bạn cần

Chào anh(chị) em có mở file của mình nhưng nó báo lỗi như file đính kèm là sao ạ?

 

[nnduongpt]

Dê chuột à bạn?
Vậy thì bạn đến tham khảo nhé,hoành tráng lắm đó

http://www.giaiphapexcel.com/forum/...-tạo-hiệu-ứng-trong-Excel&p=527633#post527633

Em càm on, để em tìm hiểu xem sao

 

[phulien1902]

Chào anh(chị) em có mở file của mình nhưng nó báo lỗi như file đính kèm là sao ạ?

Tôi đã kiểm tra lại có thấy lỗi gì đâu.
Bạn Click chuột vào các Cells khác xem thế nào nhé.

 

[nnduongpt]

Tôi đã kiểm tra lại có thấy lỗi gì đâu.
Bạn Click chuột vào các Cells khác xem thế nào nhé.

Chị dùng bản excel bao nhiêu vậy ạ?

 

[phulien1902]

Chị dùng bản excel bao nhiêu vậy ạ?

Tôi thử 2 phiên bản Office 2003 và 2013, thử đều OK hết nnduongpt à.