连续的VBA命令

时间:2015-05-23 22:16:17

标签: excel vba excel-vba

我遇到了一个连续宏工作的问题。我在仪表板上设置了过滤器'工作表,从不同的工作表中提取信息。我希望宏自动运行,在源表中的单元格更新时不断更新过滤器。我的代码如下:需要修改什么? 非常感谢。 (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

帮助很棒

1 个答案:

答案 0 :(得分:1)

首先确保Sub 是()在标准模块而不是工作表中。
第二次更改ActiveSheetSheets("S&P500")
第三制作Sub 是()公开

然后转到Sheets("S&P500")的工作表代码区并安装此事件宏:

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