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

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

實(shí)現(xiàn)方法：只需4行主代碼，非常簡(jiǎn)單！

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

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

為了解決這一問(wèn)題，特推出方法2！

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

實(shí)現(xiàn)方法：

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

Private Sub worksheet_selectionchange(ByVal target As Range)

Application.ScreenUpdating = True

End Sub

然后，在活動(dòng)工作表中輸入以下公式：

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

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

如果真的覺(jué)得不好操作又想使用聚光燈，建議下載一個(gè)wps在視圖中點(diǎn)擊閱讀模式