Question

EXCEL VBA代码SELECTIONCHANGE事件不触发，是哪里错了。请高手帮看下代码。

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

我也有这个碰到这个问题，开发工具下面有一个设计模式，开启了就不触发事件程序。

Answer 2

打断点, 单步调试一下, 一眼就能看出来.
如果只这点让别人看的话, 也看不来啊, 毕竟不是语法错误.