Fatal编程技术网
  • excel/
  • 删除多个单元格时Excel工作表更改事件不继续

删除多个单元格时Excel工作表更改事件不继续

excel events triggers

删除多个单元格时Excel工作表更改事件不继续,excel,events,triggers,worksheet,Excel,Events,Triggers,Worksheet,我有适当的代码来触发一个更改事件，该事件将使用我的数据。图表在A-D列中有信息。只要D列中的值发生变化，该代码就会触发要重新调用的数据。当我输入新数据以及删除D列中某个单元格的内容时，这一功能会起作用。但是，如果我选择某行a-D列中的信息，然后点击delete，删除该行中包含数据的所有四个单元格的内容，则事件不会触发。我需要改变什么才能实现这一点？代码是 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column =

我有适当的代码来触发一个更改事件，该事件将使用我的数据。图表在A-D列中有信息。只要D列中的值发生变化，该代码就会触发要重新调用的数据。当我输入新数据以及删除D列中某个单元格的内容时，这一功能会起作用。但是，如果我选择某行a-D列中的信息，然后点击delete，删除该行中包含数据的所有四个单元格的内容，则事件不会触发。我需要改变什么才能实现这一点？代码是

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
    Application.EnableEvents = False
Range(Cells(1, 1), Cells(90, 1)).Select
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range(Cells(2, 1), Cells(90, 1)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range(Cells(1, 1), Cells(90, 4))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("E4").Select
Application.EnableEvents = True
End If
End Sub
您使用：
如果Target.Column=4，则




尝试使用：


如果不相交（目标，范围（“D:D”）什么都不是，那么
@toepel30问题似乎没有答案，请接受此作为解决问题的答案。