Excel 事件处理程序子例程中的编译错误

我有一个脚本，该脚本应该在特定工作表中进行更改时运行，因此我在指定的工作表中创建了一个工作表\u change（）type sub

但是，一旦进行了更改，VBA就会因“参数数量错误或属性赋值无效”而抛出编译错误，并突出显示子工作表的第一行，即

私有子工作表\u change（ByVal Target As Range）

：

在Dim语句之后，代码继续执行许多行

---

我怎样才能越过第一条线

有时事件过程签名会在内部损坏，即使能够正确“显示”。这甚至发生在经典的VB中

将整个过程复制到文本编辑器，如记事本。从“图纸”模块中删除整个过程

保存工作簿。使用VBE插入工作表\u更改签名。。。让它来吧

---

从记事本复制内部文本，并将其粘贴到VBE创建的签名中。

有时事件过程签名会在内部损坏，即使能够正确“显示”。这甚至发生在经典的VB中

将整个过程复制到文本编辑器，如记事本。从“图纸”模块中删除整个过程

保存工作簿。使用VBE插入工作表\u更改签名。。。让它来吧

---

从记事本复制内部文本，并将其粘贴到VBE创建的签名中。

有时事件过程签名会在内部损坏，即使能够正确“显示”。这甚至发生在经典的VB中。将整个过程复制到文本编辑器，如记事本。从“图纸”模块中删除整个过程。保存工作簿。使用VBE插入工作表\u更改签名。。。让它来吧。从记事本复制内部文本，并将其粘贴到VBE创建的签名中。谢谢，这似乎很有帮助。我不完全确定发生了什么，但它似乎已经自行解决了。有时事件过程签名会在内部损坏，即使能够正确“显示”。这甚至发生在经典的VB中。将整个过程复制到文本编辑器，如记事本。从“图纸”模块中删除整个过程。保存工作簿。使用VBE插入工作表\u更改签名。。。让它来吧。从记事本复制内部文本，并将其粘贴到VBE创建的签名中。谢谢，这似乎很有帮助。我不完全确定发生了什么，但似乎已经解决了。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim newVal As String
Dim oldVal As String
Dim pageEnd As Integer
Dim oldRng As Range
Dim newRng As Range
Dim toolList As Range