在Excel中突出显示活动单元格而不重置现有填充单元格

时间:2015-06-18 05:57:38

标签: excel vba excel-vba

如何自动突出显示活动单元格突出显示的整行而不删除突出显示的其他单元格? (我希望在有活动单元格时突出显示整行,然后在我离开时取消突出显示它。)t

我知道以下VBA代码可以做到,但它会消除所有其他充满颜色的单元格。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
        .EntireRow.Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True End Sub

1 个答案:

答案 0 :(得分:2)

您可以使用Conditional Formatting和简单VBA Event执行此操作。请按照以下步骤操作:

在Excel中
1。想要突出显示的行时选择范围...此示例中为A1:J20
2。转到菜单>>主页>>条件格式>>新规则...>>使用公式确定要格式化的单元格
3。在公式文本框中写下这个公式:=CELL("row") = ROW(A1)
4。按“格式...”按钮设置格式陈旧
5。按确定

在VBA中 在您执行上述操作的工作表模块中使用此事件:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Calculate
End Sub