Question

我不太擅长编写宏，但是在我的帮助下，我能够设置并使用宏超过5年，该宏用于过滤和排序信息。

我对宏进行了两次修改；我已经隐藏了一列，并向条件数组列表中添加了两项。

从那时起，每当我尝试运行宏时，它会将单词“ .apply”（位于“结尾为”上方）标记为具有应用程序定义或对象定义错误。

当我删除“ .apply”一词时，宏运行平稳，但是专门用于数组列表的信息的某些部分丢失了。

我真的不知道该怎么办，即使我删除了添加到列表中的新项目并删除了hive column命令，仍然会发生错误。

当我删除“ .apply”一词时，宏运行平稳，但是专门用于数组列表的信息的某些部分丢失了。

    Columns("D:D").Select
    Selection.EntireColumn.Hidden = True


    Range("B6:AC109").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$5:$AC$109").AutoFilter Field:=5, 
    Criteria1:=Array("A", "S", "SP", "E", "ML", "RES", "RET", "MID-TERM", 
    "TERM-END"), Operator:=xlFilterValues
    ActiveWorkbook.Worksheets("Absence for 
    LogBK").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Absence for 
    LogBK").AutoFilter.Sort.SortFields.Add _Key:=ActiveCell.Offset(-1, 
    2).Range("B6:AC109"), 
    SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Absence for LogBK").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


    Range("B6:E116").Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "K:\VP Documents 2019 -2020\Staff Attendance Statistics\Attendance 
    Stats 2019 - 2020.xlsm"
    Range("A1000").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(3).Select
    ActiveSheet.Paste

每当我尝试运行宏时，它都会将单词“ .apply”（位于“结尾为”上方）标记为已定义应用程序或对象定义错误。

正常工作的自动过滤器代码已停止

0 个答案: