右键单击事件错误

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) 

您不能更改事件处理程序的签名。