右键单击事件错误

Question

我创建的右键单击事件显示错误消息“过程声明与具有相同名称的事件或过程的描述不匹配”。

我的目标是右键单击一个单元格，并将另一个工作表中的列数计入目标单元格。

我错过了什么错误？

Sub Worksheet_BeforeRightClick(ByVal Target As Range)
Dim wb As Workbook
Dim i As Long

Set wb = Workbooks("Calc.xlsm")

EventState = Application.EnableEvents
Application.EnableEvents = True

Target.Address = Application.count(wb.Sheets("Carrier").Range("O:O"))


End Sub

Answer 1

错误信息非常清楚。您的事件处理程序的原型与Excel想要的不同。将其改为：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

您无法更改事件处理程序的签名。