暂时突出显示活动单元格行，同时保持原始格式

Question

我试图暂时突出显示活动单元格的整行。我使用以下代码成功实现了这一目标：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearFormats
Target.EntireRow.Interior.Color = vbYellow
End Sub

唯一的问题是使用此更改工作表的格式。有什么东西我可以添加到这个公式，告诉excel保持原始格式，同时添加此功能吗？

Answer 1

而不是使用Cells.ClearFormats删除所有单元格的所有格式，而只是将interior.color集合的cells属性设置为xlNone：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Color = xlNone
    Target.EntireRow.Interior.Color = vbYellow
End Sub

这并不保留正被取消选择的行中单元格的原始interiot颜色，因为您必须存储获得vbYellow内部颜色的行的原始颜色这样它们就可以在下一次选择更改时恢复。