求助：编写可自动更新的VBA代码实现按日期、文本、颜色排序

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' 指定触发排序的目标数据区域
    Dim triggerRange As Range
    Dim lastRow As Long
    lastRow = Me.Cells(Me.Rows.Count, 5).End(xlUp).Row
    Set triggerRange = Me.Range("A160:M" & lastRow)
    
    ' 判断编辑操作是否发生在目标区域内
    If Not Intersect(Target, triggerRange) Is Nothing Then
        Application.EnableEvents = False ' 避免排序触发Change事件循环
        On Error GoTo Cleanup ' 出错时自动恢复事件
        
        Dim sortRange As Range
        Set sortRange = Me.Range("A160:M" & lastRow)
        
        ' 配置多级排序规则
        With sortRange.Sort
            .SortFields.Clear
            ' 第一级：日期列（E列）升序排序
            .SortFields.Add Key:=Me.Range("E160:E" & lastRow), _
                SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            ' 第二级：文本列（示例为C列，根据实际需求修改）升序排序
            .SortFields.Add Key:=Me.Range("C160:C" & lastRow), _
                SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            ' 第三级：按指定5种颜色排序，按优先级依次添加
            ' 示例颜色优先级：绿色（Complete）→黄色→橙色→红色→灰色，需替换为你实际的颜色值
            .SortFields.Add Key:=sortRange, _
                SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields(3).SortOnValue.Color = RGB(0, 255, 0) ' 绿色
            
            .SortFields.Add Key:=sortRange, _
                SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields(4).SortOnValue.Color = RGB(255, 255, 0) ' 黄色
            
            .SortFields.Add Key:=sortRange, _
                SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields(5).SortOnValue.Color = RGB(255, 165, 0) ' 橙色
            
            .SortFields.Add Key:=sortRange, _
                SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields(6).SortOnValue.Color = RGB(255, 0, 0) ' 红色
            
            .SortFields.Add Key:=sortRange, _
                SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields(7).SortOnValue.Color = RGB(192, 192, 192) ' 灰色
            
            ' 应用排序设置
            .SetRange sortRange
            .Header = xlNo ' 数据无表头，若有表头改为xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End If
    
Cleanup:
    Application.EnableEvents = True ' 恢复事件触发
    If Err.Number <> 0 Then MsgBox "排序出错：" & Err.Description
End Sub

关键说明 #

• 触发范围优化：从仅监听E列改为监听整个数据区域，只要编辑区域内任意单元格就触发排序，更贴合实际需求。
• 颜色排序适配：自动识别条件格式的显示颜色，无需额外读取DisplayFormat属性。
• 颜色值获取：如果不知道条件格式的RGB值，可运行以下代码获取目标单元格的显示颜色：

  Sub GetCellColor()
      Dim c As Range
      Set c = Selection
      MsgBox "RGB(" & c.DisplayFormat.Interior.Color \ 256 ^ 2 & ", " & (c.DisplayFormat.Interior.Color \ 256) Mod 256 & ", " & c.DisplayFormat.Interior.Color Mod 256 & ")"
  End Sub
  

• 文本列调整：将代码中第二排序关键字的C160:C" & lastRow替换为你实际需要排序的文本列范围。
• 防循环处理：排序过程中关闭事件触发，避免因单元格位置变动重复触发Worksheet_Change。

内容的提问来源于stack exchange，提问作者Zeleke