excel点击一个单元格，怎么能实现横向和纵向都自动填充颜色？

网友解答: 方法1：代码=聚光灯特效！实现方法：只需4行主代码，非常简单！Private Sub Worksheet_SelectionChange(ByVal Target As Ra

方法1：代码=聚光灯特效！

实现方法：只需4行主代码，非常简单！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

.Parent.Cells.Interior.ColorIndex = xlNone

.EntireRow.Interior.Color = vbGreen

.EntireColumn.Interior.Color = vbCyan

.Interior.Color = vbRed

End With

End Sub

但是，它有个缺陷，即：表头内容有颜色填充时，填充色会消失。如下图示：

为了解决这一问题，特推出方法2！

方法2：函数+代码=聚光灯特效

实现方法：

在工作表代码窗口中，输入以下代码：

Private Sub worksheet_selectionchange(ByVal target As Range)

Application.ScreenUpdating = True

End Sub

然后，在活动工作表中输入以下公式：

=(CELL("ROW")=ROW())+(CELL("COL")=COLUMN())

=CELL("address")=ADDRESS(ROW(),COLUMN())

如果真的觉得不好操作又想使用聚光灯，建议下载一个wps在视图中点击阅读模式