自动突出显示活动行和列

Question

我设法通过简单地使用复制粘贴来“查看代码”来自动突出显示活动行和列。

但是是否有一些简单的方法可以使其他行和列单元格中的颜色保持与我以前使用的相同。这意味着只有活动区域在变化，其他区域保持原样。那么工作表会更直观，而不仅仅是无聊的白/黑。

Answer 1

突出显示行的简单方法。粘贴工作表代码

Dim OldColorIndex As Integer
Dim WorkRange As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not WorkRange Is Nothing Then WorkRange.Interior.ColorIndex = OldColorIndex
OldColorIndex = Target.Interior.ColorIndex
Set WorkRange = Nothing
Set WorkRange = ActiveSheet.Range(Cells(Target.Row, 1), Cells(Target.Row, Cells(1, Columns.Count).End(xlToLeft).Column))
WorkRange.Interior.ColorIndex = 3
End Sub