我的 Excel 2010 工作簿中有一个包含大量数据的电子表格。此页面可以通过内置自动过滤器进行排序。在另一张纸上,我制作了一个按钮,用于进行一些排序。例如:
Sub forsteKvartalAftaleIndgaet()
'
Sheets("AMRM01").Select
ActiveSheet.Range("$A$12:$P$76").AutoFilter Field:=2, Criteria1:="<01-04", _
Operator:=xlAnd
Sheets("Ark2").Select
End Sub
Sub andenKvartalAftaleIndgaet()
'
Sheets("AMRM01").Select
ActiveSheet.Range("$A$12:$P$76").AutoFilter Field:=2, Criteria1:=">01-04", _
Operator:=xlAnd, Criteria2:="<01-07"
Sheets("Ark2").Select
End Sub
当我这样做时,表格显示了今年的第一季度和第二季度。我有两个按钮,分别显示今年的第三季度和第四季度,如下所示:
Sub TredjeKvartalAftaleIndgaet()
'
Sheets("AMRM01").Select
ActiveSheet.Range("$A$12:$P$76").AutoFilter Field:=2, Criteria1:=">01-07", _
Operator:=xlAnd, Criteria2:="<01-10"
Sheets("Ark2").Select
End Sub
Sub FjerdeKvartalAftaleIndgaet()
'
Sheets("AMRM01").Select
ActiveSheet.Range("$A$12:$P$76").AutoFilter Field:=2, Criteria1:=">01-10", _
Operator:=xlAnd, Criteria2:="<31-12"
Sheets("Ark2").Select
End Sub
我的问题:当我按下按钮(第二季度)时,它会过滤并显示第二季度。但是当我按下“第三季度”按钮时,它会删除第二季度过滤器并显示第三季度。
是否可以编写某种 VBA 代码,使其可以同时按下两个按钮,就像可以使用内置自动过滤按钮一样?
如果您不太确定我的意思,请寻求更好的解释。
提前致谢