六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

excel按筛选颜色的VBA代码

Admin | 2011-9-8 0:14:24 | ReadNums | 5075 | 标签 六合开奖结果现场直播 | 打印本页
     

  在excel中,使用可视化的简单操作方法,是很难根据颜色来筛选的,因此,我们只能使用VBA代码来实现。

  以下代码的功能是:除首行外,将当前单元格所在列数据与当前单元格不同颜色的行隐藏起来,数据首行为标题列。

  如果你有其它的需求,请自行修改代码。

  Sub FilterColor()

  Dim UseRow, AC

  UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row

  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

  End If

  Next

  End If

  End Sub


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日