Почему происходит сбой макроса, назначенного ячейке?

Question

У меня есть макрос, назначенный ячейке, которая выполняется после нажатия.Макрос включает в себя сценарии SAP, которые, если когда-либо прервутся (через CTRL + DEL + ALT), также приведут к тому, что моя ранее активируемая ячейка перестанет работать.

Я могу запустить макрос через Developer, но ячейка не работает.Обратите внимание, что приведенный ниже код вставлен на лист, где находится кликабельная ячейка, а не в ThisWorkbook.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal target As Range)

   If Selection.CountLarge = 1 Then

   If Not Intersect(target, Range("A10")) Is Nothing Then
       Call FolderPicker
   End If

End Sub

Есть идеи, что может вызвать проблему?

Answer 1

Вы можете использовать:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'Check count how many cells affected to avoid errors
    If Target.Count = 1 Then

        If Not Intersect(Target, Range("A10")) Is Nothing Then
            Application.EnableEvents = False 'Disable events to avoid pointless code trigger
                Call FolderPicker
            Application.EnableEvents = True
        End If

    End If

End Sub

Answer 2

Вам необходимо закрыть все операторы if.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal target As Range)

   If Selection.CountLarge = 1 Then

      If Not Intersect(target, Range("A10")) Is Nothing Then
       Call FolderPicker
      End If
   End If

End Sub