在保持原始格式的同时临时突出显示活动单元格的行

【问题标题】：Temporarily highlight row of active cell while maintaining original formatting在保持原始格式的同时临时突出显示活动单元格的行
【发布时间】：2016-10-29 03:09:44
【问题描述】：

我正在尝试临时突出显示活动单元格的整行。我使用以下代码成功实现了这一点：

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

唯一的问题是使用它会更改工作表的格式。我可以在这个公式中添加一些东西来告诉 excel 在向它添加这个函数的同时保持原始格式吗？

【问题讨论】：

标签： excel vba

【解决方案1】：

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

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

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

【讨论】：