-2

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

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

4

1 回答 1

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
于 2021-01-07T09:57:07.463 回答