临时单元格突出显示，恢复原始单元格颜色

Question

我想制作一个宏突出显示选定的行，但一旦突出显示结束（一旦不再选择单元格）就不会更改原始单元格颜色。 *(原始单元格颜色：原始指定单元格的颜色。)

这是我使用的代码

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static xRow
If xRow <> "" Then
    With Rows(xRow).Interior
         .ColorIndex=Xlnone
    End with
End If

pRow = Selection.Row
xRow = pRow

With Rows(pRow).Interior
.ColorIndex=6
.Pattern=XlSolid
End With
End Sub

但是当我使用这样的代码时，突出显示处于活动状态，但原始单元格颜色发生了变化。

我该如何解决？

Answer 1

可行的方法（未测试）是使用条件格式来更改颜色，因此让它始终自动恢复原始颜色。不确定此解决方法的性能会有多好。

1. 在一个模块中添加如下函数：

   Public Function IsSelected() As Boolean
       IsSelected = Not Intersect(Application.Caller, Range("SelectedRange")) Is Nothing
   End Function
   

2. 在您想要的工作表中添加以下事件：

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Me.Names.Add "SelectedRange", Target
   End Sub
   

3. 在所需范围内使用公式添加条件格式：

   =IsSelected()