VBA Excel，编译错误，Worksheet_Change

Question

我正在尝试编写 VBA 代码，以便当我自动将值输入表格时，这些值会自动排序。第一段代码适用于第一个表格，但当我尝试将其应用于另一个表格时，它给出了此错误：编译错误：检测到模糊名称：Worksheet_Change。

我已经尝试更改名称代码和错误消息的照片

Answer 1

您两次声明了相同的方法 ( Private Sub Worksheet_Change(ByVal Target as Range))。这就是您收到错误的原因。当您更改工作表时必须运行哪一个？这就是歧义所在。

将第二部分表代码添加到第一部分上。

Set SalesTable = ActiveSheet.ListObjects("Table2PREMARGIN")
.
.
.
End If

然后删除第二种方法。