Question

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

希望打开用的时候就可以开始变色.退出表格后,再次打开还可以接着使用变色那种功能,谢谢.
本人初学的...

Answer 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，这样就实现了选择单元格，这个单元格对应的行列变色。

Answer 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

效果图如下：

Answer 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是调颜色的你自己可以跟换数字 颜色就变了我举例是蓝色 记得把启用宏 设置好

追问

哪个是thisworkbook?

追答

alt+f11你按了 就会调出VBA 界面 然后你看左侧上面有sheet1 sheet2 ==最后一个就是了

追问

不好意思，我这个版本怎么没有呢？

追答

你那个版本07 03？还是2010？

Answer 4

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