vba给excel添加自动筛选按钮

vba给excel添加自动筛选按钮

---------------------------------------------------------------------

Public Sub jch01_05_明细表_页签_根据参数设置格式_自动筛选按钮()

   '----<4.1第10行,自动添加筛选按钮>

    Set EL_App = GetObject(, "Excel.Application")

    Dim ZhLie As Integer                                   '第10行的最后一列(含标题头的最后一列)

    With EL_App.Worksheets("jch01-05")

        If EL_App.Worksheets("单据-设置").Cells(105, 118).Value = "是" Then

            ZhLie = .UsedRange.Column + .UsedRange.Columns.Count - 1

         '  .Activate

           .AutoFilterMode = False         '--如果存在筛选按钮,则取消筛选(这样所有数据就都出来了)

           .Range(.Cells(10, 1), .Cells(10, ZhLie)).AutoFilter                   '--在指定区域增加自动筛选的按钮

       End If

    End With 

End Sub

---------------------------------------------------------------------