sorting列触发点击运行macros…我如何解决这个问题？

我有一些代码，当某些单元格被点击时运行一个macros。 问题是sorting列也会导致macros运行。 如何防止此代码在列进行sorting时运行？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Count = 1 Then If Not Intersect(Target, Range("AI13:AI10000")) Is Nothing Then MsgBox "Hello World!" End If End If End Sub 

我很确定这是不相关的，但我的代码的其余部分只是从一个工作簿获取值，并使用它来过滤另一个工作簿中的数据透视表。

谢谢！

Answer 1

sorting将触发Worksheet_SelectionChange因为在sorting过程中select了范围。 使用Worksheet_BeforeDoubleClick而不是双击所需的单元格运行macros，事件将不会被sorting触发。

下面的代码为我工作：

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Selection.Count = 1 Then If Not Intersect(Target, Range("AI13:AI10000")) Is Nothing Then MsgBox "Hello World!" End If End If End Sub