58问答库 > 关于excel ，选中行.列就变色，光标离开就还原原色, 如红色.

关于excel ，选中行.列就变色，光标离开就还原原色, 如红色.

2024-10-28 09:34:15

推荐回答（4个）

回答（1）：

1、Ctrl+A将Excel单元格全选，点击“开始”选项卡中的“条件格式”，选择“新建规则”。

2、“选择规则类型”中选择“使用公式确定要设置格式的单元格”,并在下面的文本框中输入公式：=(CELL("row")=ROW())+(CELL("col")=COLUMN())。

3、然后点击右下角的“格式”，进入格式设置对话框，这里设置填充底色为黄色。

4、点击确定后，返回Excel，可以看到第一行和第一列已经填充了黄色，但是这个颜色并不会随着选择的单元格而变化。

5、按下Alt+F11，打开VBE界面，选择左侧的当前工作表，并在右侧空白处输入代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)CalculateApplication.ScreenUpdating = FalseApplication.ScreenUpdating = TrueEnd Sub。

6、返回Excel，这样就实现了选择单元格，这个单元格对应的行列变色。

回答（2）：

用VBA可以实现你的要求，具体操作方法如下：

按ALT+F11，将下面代码复制粘贴到右边的窗口中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.EntireColumn.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    If Target.EntireRow.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    Cells.Interior.ColorIndex = xlNone
    Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 3
    Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 3
End Sub

效果图如下：

回答（3）：

你打开EXCEL
按ALT+F11
然后看到左列有个thisworkbook
你双击thisworkbook
然后在右侧空白处复制下面代码
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 33
End With
End Sub

保存就好了
这个里面33是调颜色的你自己可以跟换数字颜色就变了我举例是蓝色记得把启用宏设置好

回答（4）：

如果你是使用WPS的话，点击视图再选择阅读模式