欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


EOMONTH函数的作用及用法
win7电脑中快速切换程序窗口
excel RTD函数实际例子及语法
Excel累加、叠加的计算方法
正弦函数sin在Excel中的使用方法
Excel的info函数
360安全卫士如何清理插件?
360安全卫士为什么要清理插件?
排位函数PERCENTRANK如何使用
在Excel中以班级号为参照求所有同学各科成绩的总和
excel按筛选颜色的VBA代码
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

  在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

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站