[分享]按颜色筛选(不用宏表,那太慢)

andysky

---

百宝箱6.0：http://andysky.5uasp.cn/

[此贴子已经被作者于2008-5-26 11:15:43编辑过]

andysky

Sub 按颜色筛选() '思路就是:其它背景色之行全部隐藏
Dim UseRow, AC, i '首先选择一个有颜色之单元格，然后动行宏，其它颜色所在行隐藏
UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row 'SpecialCells(xlCellTypeLastCell)表示已用区域最后一个单元格
If ActiveCell.Row > UseRow Then
 MsgBox "请在要筛选的区域选择一个有颜色之单元格！", vbExclamation, "错误"
Else
 AC = ActiveCell.Column
 Cells.EntireRow.Hidden = False '显示所有行
 
 For i = 2 To UseRow
 If Cells(i, AC).Interior.ColorIndex <> ActiveCell.Interior.ColorIndex Then
 Cells(i, AC).EntireRow.Hidden = True '如果2至已用行之单元格的有列之颜色不等于当前单元格颜色则隐藏整行
 End If
 Next
End If
End Sub

cdyh2

楼主的作品还真不少，可否集中在一个帖子

版主给精华、加分

个人建议，仅供参考

yvhf

这个菜单不错，共享出来如何

andysky

学了近1年,作品不多(其中有几个是别人做的).

待我整理一下.再加上本月的一些作品和自定义函数,使之更完善.

若以分享,有些需要改(因为部分仅适合我个人用,别人可能永远用不到)

[此贴子已经被作者于2006-12-28 11:36:35编辑过]

yuna_5689

楼主，假如说相同的颜色不在同一行呢，这个筛选是不是不能全部显示了!？

见附件

AcLdyZkC.rar (1.67 KB, 下载次数: 99)

2006-12-28 11:33 上传

点击文件名下载附件

[此贴子已经被作者于2006-12-28 11:34:04编辑过]

andysky

这种不行,只按选中列中颜色进行筛选.

zz5151353

不錯思路
收藏學習
謝謝 ANDYSKY 兄提供分享 !!!

 

[em23][em23][em23][em24][em24][em24][em27][em27][em27]

andysky

If Cells(i, AC).Interior.ColorIndex <> ActiveCell.Interior.ColorIndex Then

将这一句改一改就可以按字体颜色排序了.

bgphse

谢谢，学习了。支持