Cacher is the code snippet organizer for pro developers

按背景颜色排序
ActiveSheet.Sort.SortFields.Add(Range("t2:t" & euc), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0, 0)
按字体颜色排序
ActiveSheet.Sort.SortFields.Add(Range("t2:t" & euc), _
        xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0, 0)
        
（单元格颜色
SortOn = xlSortOnCellColor 
SortOnValue.Color = RGB(255, 255, 0)

字体颜色
SortOn = xlSortOnFontColor 
SortOnValue.Color = RGB(255, 255, 0)

图标
SortOn = xlSortOnIcon 
SortOnValue.Color = RGB(255, 255, 0) 
SortField.SetIcon ActiveWorkbook.IconSets(1).Item(3)
）