排序列触发点击 运行 宏...我该如何解决这个问题？

Question

我有一些代码可以在单击某些单元格时 运行 生成一个宏。问题是对列进行排序也会导致宏 运行。当对列进行排序时，如何防止此代码 运行ning？

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

排序会触发Worksheet_SelectionChange，因为在排序过程中选择了范围。使用 Worksheet_BeforeDoubleClick 将 运行 双击所需单元格的宏，排序不会触发事件。

以下代码对我有用：

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