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
本文来源：https://www.wddqw.com/doc/6a03a43303020740be1e650e52ea551810a6c905.html
正在阅读：
小学英语中常见的英语反义词常见英语反义词01-01
人教版小学二年级上册必背古诗首01-01
行走在春天里_高一作文01-01
教师随笔中班保育,换个角度看问题01-01
[晋]陶渊明《饮酒其一》原文、注释、赏析01-01
正规人借条格式范本（标准版）01-01
表达于求职应聘的英语口语句子01-01