excel 选择一个单元格 所在行列变色 怎么设置
发布网友
发布时间：2022-04-20 14:59
共5个回答
热心网友
时间：2022-05-12 12:15
1，打开Excel程序，进入Excel程序主界面。
2，在Excel程序主界面上方选择【视图】按钮，点击进入。
3，在“视图”的菜单下选择“阅读模式”。
4，选择“阅读模式”的颜色，点击选中。
5，最后，即可选中一个单元格，该行列都变色，问题解决。
热心网友
时间：2022-05-12 13:33
根据描述可以使用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、点击单元格，查看效果
热心网友
时间：2022-05-12 15:08
该功能需要用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是颜色代码，可以根据需要自由调整。
热心网友
时间：2022-05-12 16:59
复制以下代码。
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"上单击右键,查看代码,把复制的代码粘上去。
关闭窗口，回到工作表就可以了.
热心网友
时间：2022-05-12 19:07
根据描述可以使用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、点击单元格，查看效果
