Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'在sheet的表格选择selectionchange 选择改变运行
Cells.Interior.Pattern = xlNone'所有单元格设为无色
Selection.EntireRow.Interior.Color = 65535' 点击背景颜色为黄色
End Sub