Bình Nguyên 2017
Thành viên mới
- Tham gia
- 24/8/17
- Bài viết
- 8
- Được thích
- 0
- Giới tính
- Nam
Đó là file Excel mình đã add Add ins vào đó, còn file Add ins của nó đây bạn àAdd in mà sao file xlsx bạn?
Bạn chưa hiểu về Add-Ins nên code Worksheet_SelectionChange trong file của bạn lại đặt trong Module à, làm sao để vận hành code này đây?Đó là file Excel mình đã add Add ins vào đó, còn file Add ins của nó đây bạn à
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row and column that contain the active cell
.EntireRow.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub
Mình chưa hiểu lắm, bạn có thể nói rõ hơn được không ? Cảm ơn bạnBạn chưa hiểu về Add-Ins nên code Worksheet_SelectionChange trong file của bạn lại đặt trong Module à, làm sao để vận hành code này đây?
Mã:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 With Target ' Highlight the entire row and column that contain the active cell .EntireRow.Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub