Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
Bạn thử dùng code sau (không cần hàm), Click phải vào tên sheet cần áp dụng chọn View code rồi Paste code sau vào, để sử dụng bạn chọn từ Cell nào đến Cell nào thì nó hiện màu xanh biển.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.Interior.ColorIndex = 8
End Sub
Không biết về code thì cũng đã có người hướng dẫn cho bạn rồi, bạn thử làm đi chứcảm ơn bạn be09 và bạn vulunktheky nhưng mình không biết gì về code, mình muốn dùng hàm cho dễ hiểu. các bạn có biết file mình bị sao mà không thể đổi màu được không, nó bị lỗi gì vậy bạn.
Dùng hàm chỉ áp dụng riêng cho 1 sheet, để thuận tiện hơn thì bạn có thể sử dụng code sau bỏ vào ThisWorkbook để áp dụng cho tất cả các sheet.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
Cells.Interior.ColorIndex = 0
Target.Interior.ColorIndex = 8
End With
End Sub
1.Đọc kỹ hướng dẫn sử dụng trước khi dùng.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 8
End With
End Subcảm ơn bạn nhiều nha
Khi sử dụng ColorIndex, chỉ áp dụng đến 56 màu. Bạn có thể thử bằng cách thay số 8 bằng các con số từ 1 đến 56 thì sẽ rỏ.
