Excel2003中按颜色进行排序

Excel2003中按颜色进行排序,标签：Excel学习,excel视频教程,http://www.qz26.com
张阿生

14

南希仁

15

刘处玄

16

王处一

17

韩小萤

18

郝大通

    1.按Alt+F11，打开VBA编辑器。单击菜单“插入→模块”，Excel插入名称为“模块1”的模块。在右侧的代码窗口中输入下面的VBA代码：

    Function GetCellColor(TheCell As Range)
      GetCellColor = TheCell.Interior.ColorIndex
    End Function
    Function GetFontColor(TheCell As Range)
      GetFontColor = TheCell.Font.ColorIndex
    End Function

    2.按Alt+F11返回Excel界面。在C2单元格中输入公式：

    =getcellcolor(B2)

    如果需要按单元格字体颜色排序，则输入下面的公式：

    =getfontcolor(B2)

     回车后C2单元格中将显示B2单元格中填充色的颜色索引值。将C2单元格中的公式用填充柄填充到C3:C19区域中，然后选择该区域中的某个单元格，单击工具栏中的A→Z排序按钮，即可得到按单元格颜色排序后的结果。

   

上一页  [1] [2] [3]