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

andysky · 发表于 2006-12-28 11:19

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

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

andysky · 发表于 2006-12-28 11:21

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 · 发表于 2006-12-28 11:23

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

版主给精华、加分

个人建议，仅供参考

yvhf · 发表于 2006-12-28 11:24

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

andysky · 发表于 2006-12-28 11:26

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

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

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

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

yuna_5689 · 发表于 2006-12-28 11:32

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

见附件

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

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

andysky · 发表于 2006-12-28 11:37

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

zz5151353 · 发表于 2006-12-28 13:11

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

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

andysky · 发表于 2006-12-31 08:47

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

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

bgphse · 发表于 2008-1-19 03:39

谢谢，学习了。支持

		自动登录	找回密码
密码			免费注册