1.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2.                     AW.WorkbookSet.GetLock
   
3.                            Dim TJ As String = e.Shape.TextFrame.Characters.Text
   
4.                            if TJ = "全部" Then
   
5.                                       Range("BTBF").AutoFilter()
   
6.                            else
   
7.                                   Range("BTBF").AutoFilter(10, tj, AutoFilterOperator.And, "", TRUE)
   
8. End if
   
9.                            AW.WorkbookSet.ReleaseLock
   
10.         End Sub'按钮/标签点击事件

复制代码

可以插入按钮或者标签，按钮或者标签的标题作为筛选条件。

BTBF： 为明细表标题的自己添加的区域别名。
全部： 按钮或标签的标题为全部，将取消筛选。
10：BTBF需要筛选的第几列。

赞一个，呵呵！

赞一个，呵呵！