網(wǎng)友解答: 方法1：代碼=聚光燈特效！實現(xiàn)方法：只需4行主代碼，非常簡單！Private Sub Worksheet_SelectionChange(ByVal Target As Ra

方法1：代碼=聚光燈特效！

實現(xiàn)方法：只需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

但是，它有個缺陷，即：表頭內(nèi)容有顏色填充時，填充色會消失。如下圖示：

為了解決這一問題，特推出方法2！

方法2：函數(shù)+代碼=聚光燈特效

實現(xiàn)方法：

在工作表代碼窗口中，輸入以下代碼：

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在視圖中點擊閱讀模式