连续的VBA命令

我有一个问题不断的macros观工作。 我在“仪表板”表中设置了一个filter，它从不同的工作表中获取信息。 我希望macros自动运行，当源表单元格更新时，不断更新filter。 我的代码如下：需要修改什么？ 非常感谢。 （ S&P500是源表单，仪表板是Macro表单）

  Sub Yes () ' ' Yes Macro ' 'Private Sub S&P500Stocks_Activate() ActiveSheet.Range("$A$1:$E$499").AutoFilter Field:=1, Criterial:="Yes", _ Operator:=xlAnd 'Private Sub S&P500Stocks_Change(ByVal Target As Range) ActiveSheet.Range("$A$1:$E$499").AutoFilter Field:=1, Criterial:="Yes", _ Operator:=xlAnd End Sub 

帮助将是真棒

Answer 1

首先确保Sub Yes（）在标准模块中，而不是在工作表上。
第二次将ActiveSheet更改为Sheets("S&P500")
第三次使Sub 是（）公开

然后转到工作表代码区域Sheets("S&P500")并安装此事件macros：

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Call Yes Application.EnableEvents = True End Sub