1、右键单击工作表(左下方工作表名称),选择查看代码。 2、写入以下内容,即可改变单元格颜色
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Interior.Color = vbYellow End Sub
3.1、写入以下内容,即可改变整行颜色
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If i = 0 Then i = 1 Rows(i).Interior.Pattern = xlNone i = Target.Row Rows(i).Interior.Color = vbYellow End Sub
3.2、写入以下内容,即可改变整列颜色
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If i = 0 Then i = 1 Rows(i).Interior.Pattern = xlNone i = Target.Row Selection.EntireColumn.Interior.Color = vbYellow End Sub
3.3、整行变色继续单击变色移动
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Rows().Interior.ColorIndex = 0 x = ActiveCell.Row Rows(x).Interior.ColorIndex = 9 End Sub
|