请教，禁止了事件触发，为何还会被触发了SelectionChange事件？

szkent

有请哪位达人，帮忙看看，
以下一段VBA代码结构，为何在修改单元格后，还是会触发SelectionChange事件？

应该是GetData子过程最后的Select 导致，
但不是已使用Application.EnableEvents = False，禁止了事件触发了吗？
为何还是在修改单元格后，会被触发了SelectionChange事件？

1. '移动单元格位置就触发，
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.   Application.EnableEvents = False '关闭事件触发
   
4.   If (MemColumn = 1 Or MemColumn = 2) And Cells(MemRow, 1) <> nul And MemRow > 2 Then
   
5.      GetData MemRow, MemColumn
   
6.   Else   
   
7.      Range(Worksheets("个股查询").Cells(MemRow, 2), Worksheets("个股查询").Cells(MemRow, 8)).ClearContents     
   
8.   End If   
   
9.   Application.EnableEvents = True '启动事件触发   
   
10. End Sub
    
11. 
    
12. '修改单元格内容触发，
    
13. Private Sub Worksheet_Change(ByVal Target As Range)
    
14.   Application.EnableEvents = False '关闭事件触发      
    
15.   If (MemColumn = 1 Or MemColumn = 2) And MemRow > 2 And Cells(MemRow, 1) > 0 Then
    
16.       GetData MemRow, MemColumn
    
17.   Else   
    
18.       Range(Worksheets("个股查询").Cells(MemRow, 1), Worksheets("个股查询").Cells(MemRow, 9)).ClearContents    '清理单元格数据   
    
19.   End If  
    
20.   Application.EnableEvents = True '启动事件触发
    
21. End Sub
    
22. 
    
23. '更新数据
    
24. Private Sub GetData(ByVal MemRow As Integer, MemColumn As Integer)   
    
25.     Application.EnableEvents = False '关闭事件触发   
    
26.     Worksheets("个股查询").Cells(MemRow, 1).Select   
    
27. End Sub
    

复制代码

lss001

..............................

班定远

https://club.excelhome.net/forum ... amp;_dsign=68b38a67