右鍵單擊事件錯誤

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) 

您不能更改事件處理程序的簽名。