Excel表格 – 在多张纸上复印自动filter
我有5张不同的数据集，但是我想在同一天过滤它们。 我正在寻找一种方法来自动化这与VBA或高级filter（？），我正在努力寻找一种方式如何。
我所要做的是将一个filter应用到一个“主”工作表中，剩余的四个工作表将自动应用与主工作表中相同的datefilter。 例如，如果我想显示2015年11月的所有数据，如果我在表1中对此进行过滤，希望表2,3和4也将显示2015年11月的数据。
我发现许多在线的VBA解决scheme指定了编码内的过滤标准，但标准将根据用户的要求而改变。 有没有办法从主表中复制filter？ 这是我已经find的内部编码标准的代码;
Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=3, Criteria1:="=True" End Sub 提前致谢！
假设您只在主工作表中select一个条件，则可以在主工作表中使用VBA ComboBOX控件来填充过滤条件。 下一步，您可以编写代码，如下所示combobox更改事件，将filter应用于其余四个工作表。
在此ComboBox更改事件macros中，可以将ComboBox的值作为所有四张表的过滤条件传递，如下所示。 请注意，在我的情况下，我已经考虑了只有两列的表，第一列在每个工作表中有一个date的过滤条件，表中的第二列有一些虚拟值。
Private Sub ComboBox21_Change() Date = ComboBox21.Value Worksheets("Sheet1").Range("Table1").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(1, Date) Worksheets("Sheet2").Range("Table2").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(1, Date) Worksheets("Sheet3").Range("Table3").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(1, Date) Worksheets("Sheet4").Range("Table4").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(1, Date) End Sub