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