我使用以下代码在所有工作表中按升序/降序排序,我需要一些帮助来编辑此代码以使用 RGB 颜色进行排序
Sub SortAllSheets()
Dim WS As Worksheet
ActiveSheet.Range("a1:f1").Select
Selection.Copy
On Error Resume Next
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Columns("A:F").Sort Key1:=WS.Columns("B"), Order1:=xlDescending
Next WS
ActiveSheet.Range("G1").PasteSpecial Paste:=xlPasteAll
Application.ScreenUpdating = True
End Sub
问题:
如何编辑上面的代码以使用 RGB 进行排序?
Value.Color = RGB(255, _199, 206) instead of normal asc /des order
我已经做了你想要的宏记录 - filter by color
。这是代码
Sub ColorSort()
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add(Range( _
"D3:D9"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(255, 0, 0)
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
看看你是否可以在你的代码中使用它并带来所需的效果。
更多信息:
这是我的电子表格在排序之前的样子。
选择需要排序的区域 Sort by Color
在“Order
排序”对话框的列中,只需选择RED
,然后,结果将如下所示。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句