Question

我有以下代码以绿色突出显示用户单击的行。在代码末尾，我选择单元格B6以取消选择整个行，并将选择移至上方。除了单元格B6也以绿色突出显示，而且我不希望这样做之外，它工作正常。我该如何删除？

在工作表中，我有：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'If not in the table, exit sub
    If Intersect(Range("Schema"), ActiveCell.EntireRow) Is Nothing Then Exit Sub

    Call ClickInside

End Sub

在模块中：

Sub ClickInside()

    Dim cellno As String: cellno = Str(ActiveCell.row)
    Dim myRow As Range
    Set myRow = ActiveCell.EntireRow 'I want to select the row in the table ONLY

    Call Unprotect_table
    Call MarkRow(cellno, myRow)
    Call Protect_table
End Sub

Sub MarkRow(cellno As String, myRow As Range)

    'Marking that row in green
    Range("Schema").Interior.ColorIndex = 0
    Range("B" & Trim(cellno) & ":I" & Trim(cellno)).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = RGB(0, 255, 0)
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Application.ScreenUpdating = False

    'Show above
    If Not myRow Is Nothing And CLng(cellno) >= 9 Then
        Range("EditCountry").Value2 = ThisWorkbook.ActiveSheet.Range("B" & Trim(cellno)).Value2
        Range("EditNodeName").Value2 = ThisWorkbook.ActiveSheet.Range("C" & Trim(cellno)).Value2
        Range("EditNodeId").Value = ThisWorkbook.ActiveSheet.Range("D" & Trim(cellno)).Value2
        Range("EditParentNode").Value = ThisWorkbook.ActiveSheet.Range("E" & Trim(cellno)).Value2
        Range("EditParentNodeId").Value = ThisWorkbook.ActiveSheet.Range("F" & Trim(cellno)).Value2
        Range("EditActive").Value = ThisWorkbook.ActiveSheet.Range("G" & Trim(cellno)).Value2
        Range("EditFrom").Value = ThisWorkbook.ActiveSheet.Range("H" & Trim(cellno)).Value2
        Range("EditTo").Value = ThisWorkbook.ActiveSheet.Range("I" & Trim(cellno)).Value2
    End If

    'Move selection
    Range("B6").Select

End Sub

谢谢！

Answer 1

您的语句Range("B6").Select再次触发事件例程。为防止这种情况，请使用语句Application.EnableEvents = False：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("Schema"), ActiveCell.EntireRow) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Call ClickInside
    Application.EnableEvents = True
End Sub

但是，也许您可以看看使用条件格式的其他解决方案，例如https://stackoverflow.com/a/22350417/7599798

避免突出显示不想要的行

1 个答案: