VBA控制显示隐藏自动筛选并按条件筛选过滤数据

效果：

VBA：

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.            Activeworkbook.WorkbookSet.GetLock()
   
3.                 If String.Equals(e.Shape.Name,"Button 1") = True Then
   
4.                         If ActiveWorkbook.Activeworksheet.AutoFilterMode = False Then
   
5.                                 Range("B5:K5").AutoFilter(Field:=2,Criteria1:=">=" & Range("D4").Value, Op:=1,Criteria2:="<=" & Range("E4").Value,visibleDropDown:=True)
   
6.                         Else
   
7.                                 Range("B5:K5").AutoFilter
   
8.                         End If
   
9.                 End If
   
10.                 Activeworkbook.WorkbookSet.ReleaseLock()
    
11.        End Sub'按钮/标签点击事件

复制代码

VBA控制显示隐藏自动筛选并按条件筛选过滤数据

效果：

VBA：

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.            Activeworkbook.WorkbookSet.GetLock()
   
3.                 If String.Equals(e.Shape.Name,"Button 1") = True Then
   
4.                         If ActiveWorkbook.Activeworksheet.AutoFilterMode = False Then
   
5.                                 Range("B5:K5").AutoFilter(Field:=2,Criteria1:=">=" & Range("D4").Value, Op:=1,Criteria2:="<=" & Range("E4").Value,visibleDropDown:=True)
   
6.                         Else
   
7.                                 Range("B5:K5").AutoFilter
   
8.                         End If
   
9.                 End If
   
10.                 Activeworkbook.WorkbookSet.ReleaseLock()
    
11.        End Sub'按钮/标签点击事件

复制代码