Question

excel 选择一个单元格 所在行列变色 怎么设置

Answer 1

1，打开Excel程序，进入Excel程序主界面。

2，在Excel程序主界面上方选择【视图】按钮，点击进入。

3，在“视图”的菜单下选择“阅读模式”。

4，选择“阅读模式”的颜色，点击选中。

5，最后，即可选中一个单元格，该行列都变色，问题解决。

Answer 2

根据描述可以使用VBA的selection change 事件来处理

Excel版本参考：2010

1、ALT+F11，进入VBE编辑器

2、双击Sheet1标签，粘贴如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

On Error Resume Next

Cells.FormatConditions.Delete

With Target.EntireRow.FormatConditions

    .Delete

    .Add xlExpression, , "TRUE"

    .Item(1).Interior.ColorIndex = 9

End With

With Target.EntireColumn.FormatConditions

    .Delete

    .Add xlExpression, , "TRUE"

    .Item(1).Interior.ColorIndex = 9

End With

End Sub

3、关闭VBE对话框，返回工作表

4、点击单元格，查看效果

Answer 3

该功能需要用vba代码，方法：打开表格，按Alt + F11，在相应的工作表内粘贴下面的代码即可。代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range '以下五行 高亮显示当前选中单元格所在行、列

Set Rng = Target.Range("a1")

Cells.Interior.ColorIndex = 0 '清除所有背景色

Rng.EntireRow.Interior.ColorIndex = 38 '设置当前行颜色

Rng.EntireRow.Range(Cells(1, 1), Cells(1, 10)).Interior.ColorIndex = 38 '设置当前行部分单元格颜色

Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色

End Sub

代码中的38、40是颜色代码，可以根据需要自由调整。

Answer 4

复制以下代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With

End Sub

在工作表名称"Sheet1"上单击右键,查看代码,把复制的代码粘上去。
关闭窗口，回到工作表就可以了.

Answer 5

根据描述可以使用VBA的selection change 事件来处理

Excel版本参考：2010

1、ALT+F11，进入VBE编辑器

2、双击Sheet1标签，粘贴如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

On Error Resume Next

Cells.FormatConditions.Delete

With Target.EntireRow.FormatConditions

.Delete

.Add xlExpression, , "TRUE"

.Item(1).Interior.ColorIndex = 9

End With

With Target.EntireColumn.FormatConditions

.Delete

.Add xlExpression, , "TRUE"

.Item(1).Interior.ColorIndex = 9

End With

End Sub

3、关闭VBE对话框，返回工作表

4、点击单元格，查看效果