该功能需要用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是颜色代码，可以根据需要自由调整。
如果只变当前行或当前列的颜色，可以把不需要的改变行列颜色的某行代码最前方打上一个英文状态的'
，则该行不执行。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-08-19
根据描述可以使用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、点击单元格，查看效果本回答被提问者采纳
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、点击单元格，查看效果本回答被提问者采纳
相似回答