无限循环与目标地址

Question

我正在创建一个小程序，它将在表格“当前”的列I中查找更改。如果找到更改，它将会剪切，并将整列粘贴到“完成”工作表的最后一行。看起来，当它切割时，它会陷入无限循环，导致它永远不会弹出“Made it”消息框。我怎样才能重新证明地址的正确性，以避免这个问题呢？

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 
    Dim LastRowCompleted As Long 
    LastRowCompleted = Sheets("completed").Cells(Sheets("completed").Rows.Count, "A").End(xlUp).Row 
    LastRowCompleted = LastRowCompleted + 1 'Next row after last row 

    Set KeyCells = Range("I:I") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 

     MsgBox "Cell " & Target.Address & " has changed." 
     MsgBox Range(Target.Address).Row 
     MsgBox Range(Target.Address).Column 

     'Cut and Paste Row 
     Range(Range(Target.Address).Row & ":" & Range(Target.Address).Row).Cut Sheets("completed").Range(LastRowCompleted & ":" & LastRowCompleted) 
     MsgBox "Made it." 
    End If 
End Sub 

Answer 1

随着表更改事件如果要更改代码，否则更改事件将与纸张上的每个变化重复触发单元格内容总是禁用的事件。

要禁用事件使用下面的行代码

Application.EnableEvents = False 

的开始，那么不要忘记启用到底，否则任何事件代码将不会自动触发事件。

要启用这些事件，请在End Sub之前使用以下行。

Application.EnableEvents = True 

所以，你的代码应该是这样的......

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 
    Dim LastRowCompleted As Long 
    LastRowCompleted = Sheets("completed").Cells(Sheets("completed").Rows.Count, "A").End(xlUp).Row 
    LastRowCompleted = LastRowCompleted + 1 'Next row after last row 

    Set KeyCells = Range("I:I") 
    Application.EnableEvents = False 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 

     MsgBox "Cell " & Target.Address & " has changed." 
     MsgBox Range(Target.Address).Row 
     MsgBox Range(Target.Address).Column 

     'Cut and Paste Row 
     Range(Range(Target.Address).Row & ":" & Range(Target.Address).Row).Cut Sheets("completed").Range(LastRowCompleted & ":" & LastRowCompleted) 
     MsgBox "Made it." 
    End If 
    Application.EnableEvents = True 
End Sub