1

最近、マクロに以下のコードを追加して、シートを並べ替え/フィルター処理し、特定の値を見つけて、見つかったセルの値に基づいてフォーマットを適用しました

  Sheets("Extract").Select
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter


' finding the yesterday last resolved(on same day) ticket
Range("A1:AB2164").Select
    ActiveWorkbook.Worksheets("Extract").Sort.SortFields.Clear     'sorting with resolved date
    ActiveWorkbook.Worksheets("Extract").Sort.SortFields.Add Key:=Range("E2:E2164" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Extract").Sort
        .SetRange Range("A1:AB2164")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Range("A1").Select

    'filtering resolved tickets |received today|resolved on same day

    ActiveSheet.Range("$A$1:$X$164").AutoFilter Field:=5, Criteria1:="<>"
    ActiveSheet.Range("$A$1:$Z$2164").AutoFilter Field:=26, Criteria1:="Yes"
    ActiveSheet.Range("$A$1:$AB$2164").AutoFilter Field:=28, Criteria1:="Yes"

'    finding the yesterday last resolved ticket (on same day)

    Cells.Find(What:=yesterday_resolved_ticket__on_same_day, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate



'    selecting date of resolved tickets

    Call nextrow
 Selection.Offset(0, 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    cticket_resolved_same_day = Application.CountA(Selection)  ' counting tickets resolved on same day
    Range(Selection, Selection.Offset(0, 1)).Select

' changing colour of the date
    With Selection.Font
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
    End With

しかし、この並べ替えとフィルターの後、Excelシートがハングアップし、シート自体が完全に表示されません

誰かがこのコードの問題を見つけるのを手伝ってくれますか

4

0 に答える 0