excel vba 在所有工作表中对 RGB 进行排序

恩里克

我使用以下代码在所有工作表中按升序/降序排序,我需要一些帮助来编辑此代码以使用 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] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

在VBA Excel中对组合框进行排序

VBA - 对 Excel 中的数据进行排序

如何通过 VBA 在所有 Excel 工作表中运行特定命令?

Excel VBA:按字母数字顺序对工作表进行排序

对具有特定条件的Excel工作表进行排序(VBA)

Excel VBA在不同的工作簿中选择范围以进行排序

按动态数组 VBA 的值对 Excel 表进行排序

使用VBA在Excel中对表格进行排序?

使用Excel VBA按列值对工作表数据进行排序

VBA Excel循环所有工作表

excel vba 数字排序表

打开并更改选项卡时,Excel VBA在所有工作表上重新计算

在Excel VBA中对向量排序

在Excel中进行VBA排序会使表内容保持选中状态

Excel VBA - 对多个表中的行进行所有修改的时间戳

在Excel中对列进行排序

使用Excel VBA宏对单列中的单元格范围进行排序

使用VBA对Excel表进行排序时,如何在列中引用当前星期单元格?

所有工作表与索引的VBA EXCEL vlookups

Excel VBA总和动态范围所有工作表

Excel VBA-创建具有多个组合框的动态用户窗体并将所有组合框的值存储在一个数组中并对其进行排序

对数据进行排序以匹配列表列的顺序-Excel VBA

合并整个工作表中的所有重复单元格-Excel VBA

将模块中的Excel VBA代码应用于所有工作表

如何在Excel VBA中为所有工作表选择相同的范围?

枚举Excel VBA中的所有当前工作表名称

如何使用 VBA 删除 Excel 工作表中除表格之外的所有内容?

Excel VBA-将所有工作表从特定工作簿复制到活动工作簿中

在Excel VBA中按列排序