Ошибка 424 Требуется объект на конце Sub

Question

Долгое время lurker, впервые плакат. Эта ошибка прослушивала меня в течение нескольких недель, поэтому мне пришлось обратиться за помощью.

У меня есть отличное дополнение, которое я разработал. В добавлении есть пользовательское меню щелчка правой кнопкой мыши, которое заменяет стандартное меню правого щелчка excel, ограничивающее значение SheetBeforeRightClick. Это работает отлично, execpt, когда вы удаляете строку, на которую вы щелкнули правой кнопкой мыши.

Например. Вы щелкаете правой кнопкой мыши по ячейке E11 на листе «Основные проекты», чтобы открыть меню. код Меню:

Private Sub SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean) 
Dim ClstrCmd As CommandBar 
'Display cluster display option commands 
On Error GoTo connerr 
    If ActiveSheet.Name = "Control" Then 
      Cancel = True 
      Set ClstrCmd = FinanceCreateSubMenuControlNew 
      ClstrCmd.ShowPopup 
    ElseIf ActiveSheet.Name = "Input" Then 
      Cancel = True 
      Set ClstrCmd = FinanceCreateSubMenuInputNew 
      ClstrCmd.ShowPopup 
    ElseIf ActiveSheet.Name = "Major Projects" Or ActiveSheet.Name = "Projects GP Report" Then 
      Cancel = True 
      Set ClstrCmd = FinanceCreateSubMenuProjectsNew 
      ClstrCmd.ShowPopup 
    Else 
     'No Menu for this sheet 
    End If 
connerr: 
End Sub 

Function FinanceCreateSubMenuProjectsNew() As CommandBar 

''Create some objects 
Dim cb As CommandBar 
Dim cbc As CommandBarControl 

''Ensure our popup menu does not exist 
FinanceDeleteCommandBar "FINANCE_PROJECTS" 

''Add our popup menu to the CommandBars collection 
Set cb = CommandBars.Add(Name:="FINANCE_PROJECTS", Position:=msoBarPopup, MenuBar:=False, Temporary:=False) 

Set cbc = cb.Controls.Add 
With cbc 
    .Caption = "Insert Seperator Row" 
    .OnAction = "InsertMajorProjectsSeperator" 
End With 
    Set cbc = cb.Controls.Add 
With cbc 
    .Caption = "Delete Seperator Row" 
    .OnAction = "DeleteMajorProjectsSeperator" 
End With 

Set FinanceCreateSubMenuProjectsNew = cb 

End Function 

Вы выбираете опцию «Удалить строку» из моего пользовательского меню. Это вызывает процедуру Deleterow.

Sub DeleteRow() 
    Deleterow = ActiveCell.Row 

    If ActiveWorkbook.Worksheets("Major Projects").Range("A" & Deleterow) = "x" Then 
     ActiveWorkbook.Worksheets("Major Projects").Rows(Deleterow).EntireRow.Delete 
    Else 
     MsgBox "You haven't selected a seperator to delete" 
    End If 
End Sub 

Это удаляет выбранную строку. После удаления строки код возвращается к функции FinanceCreateSubMenuProjectsNew. Затем, чтобы завершить процедуру SheetBeforeRightClick. Он получает End End в процедуре SheetBeforeRightClick и дает ошибку 424 - Object Required. Отладочной опции нет, и я не могу ее уловить, поскольку она появляется после ошибки после End Sub. Я могу только предположить его, потому что ячейка, которую вы щелкнули правой кнопкой мыши, была удалена, и система потеряла цель. Если я положил msgbox Target.address Я могу вызвать ошибку в этой строке. Если I установить Target = activecell перед протоколом msgbox, который исправляет эту ошибку, но все еще ошибки в End Sub. Есть ли системный целевой тип переменной, которую мне нужно сбросить?

Даже вставка в лист («Основные проекты»). Диапазон («a1»). Выбрать не помогает.

Исчерпайте ошибки кода, Addin выгружает. Таким образом, пользователю необходимо перезапустить добавление, прежде чем они смогут снова использовать любую функциональность.

Настоящий кикер, как только я перезапустил аддон, я могу удалить строки, не получив ошибку. Единственный способ получить ошибку снова - полностью закрыть Excel и начать заново. Закрытие файла не приводит к повторной ошибке ошибки.

Answer 1

Я пробовал что-то простое, и он не компилировался (имя переменной совпадает с именем Sub). Может быть, вы должны определить и использовать Long тип переменной lngDeleteRow:

Sub DeleteRow() 
    Dim lngDeleteRow as Long 

    Debug.Print "ActiveWorkbook: " & ActiveCell.Worksheet.Parent.Name 
    Debug.Print "ActiveSheet: " & ActiveCell.Worksheet.Name 
    Debug.Print "ActiveCell: " & ActiveCell.Address 
    If Err.Number <> 0 Then 
     Debug.Print "DeleteRow() : ERR " & Err.Number & " " & Err.Description 
     Err.Clear 
    End If 

    lngDeleteRow = ActiveCell.Row 

    If ActiveWorkbook.Worksheets("Major Projects").Range("A" & lngDeleteRow) = "x" Then 
     ActiveWorkbook.Worksheets("Major Projects").Rows(lngDeleteRow).EntireRow.Delete 
    Else 
     MsgBox "You haven't selected a seperator to delete" 
    End If 
End Sub 

Вы также можете поместить больше Debug.Print линии на протяжении всего живого кода приколоть указать ошибку. Когда у меня есть ситуации, подобные этому, я бы добавил Debug.Print Now & vbTab & "Sub/Function name - Start" при каждом начале Sub и функции, а в конце «Finish», чтобы я мог более точно отслеживать ошибку в окне Immediate.

Answer 2

В результате этого ответа используется функция Application.OnTime для вызова функции удаления. Это позволяет удалить событие отдельно от остальной части запущенного кода.