我遇到了一个连续宏工作的问题。我在仪表板上设置了过滤器'工作表,从不同的工作表中提取信息。我希望宏自动运行,在源表中的单元格更新时不断更新过滤器。我的代码如下:需要修改什么?
非常感谢。 (S&P500
是源表。仪表板是表格,上面有宏)
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
帮助很棒
答案 0 :(得分:1)
首先确保Sub 是()在标准模块而不是工作表中。
第二次更改ActiveSheet
到Sheets("S&P500")
第三制作Sub 是()公开
然后转到Sheets("S&P500")
的工作表代码区并安装此事件宏:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call Yes
Application.EnableEvents = True
End Sub