Question

EXCEL的VBA问题，selectionchange满足条件后也不触发，请高手帮看看

我的方法是表3的C2有数据，回车一下跳到D2，则触发SELECTIONCHANGE事件，代码运行一次后表3的A3内容后面加个“：”，就可以防止代码再次运行，下面是代码的一部分，请高手帮看看。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xx%, yy%
If Sheet3.Range("A3") = "汇总情况" Then
If Target.Count = 1 And Target.Address = Sheet3.Range("D2") And Sheet3.Range("C2") <> "" Then
s = Sheet3.Range("C2").Value
Sheet1.Activate
Range("D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="*" & s & "*"
xx = Sheet1.Range("D65536").End(xlUp).Row
Sheet3.Range("A9") = "明细如下："
Sheet1.Range("A1").Resize(xx, 12).Copy Sheet3.Range("A10")
yy = Sheet3.Range("D65536").End(xlUp).Row
Sheet3.Range("A3") = "汇总情况："
End If

Else
Exit Sub
End If
End Sub

Answer 1

触没触发，加个断点就清除了，跟事件里的代码无关吧

追问

可是我试验过，这断代码没触发。就是搞不明白是代码哪里错了。能帮忙修改一下吗？

追答

Application.DisplayAlerts = true ,看有没有代码把事件禁用了
错了 是Application.EnableEvents=true

追问

加了这句代码还是一样没反应。真奇怪。

加了这句代码还是一样没反应。真奇怪。