excel按筛选颜色的VBA代码

2016-02-19 15:07 12 1 收藏

get新技能是需要付出行动的，即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是excel按筛选颜色的VBA代码，一起来学习了解下吧！

【 tulaoshi.com - Excel教程】

在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

End Sub

来源:http://www.tulaoshi.com/n/20160219/1608927.html

上一篇： jquery 屏蔽一个区域内的所有元素禁止输入
下一篇： jQuery 判断元素上是否绑定了事件

看过《excel按筛选颜色的VBA代码》的人还看了以下文章更多>>

让Excel活动单元格所在行和列都着上背景颜色的VBA代码

标签：电脑入门

在Excel中，为了增强活动单元格的对比性，有时候我们常常需要修改其背景颜色、字体、字号等，用来区分和其它单元格的对比! 本教程，让我们一起来学习，如何让Excel活动单元格所在行和列都着上背景颜色，首先看下图。上图中，即C3单元格，被鼠标选中，说明是活动的单元格，如何做才能做到如上图的效果，C3活动单元格所在的行和列，其背景...

excel怎么筛选

标签： excel

excel怎么筛选 excel怎么筛选 Excel办公软件是每个办公人员的必备工具之一， Excel功能是非常强大的。但是，如何让它灵活运用，就得那操作人员对它的了解，今天图老师小编来与大家分享如何使用Excel中的筛选功能。 Excel中筛选功能使用方法/步骤步骤一：首先，我们打开Excel文档，如下图片。步骤二：选择...

VBA代码编写技巧

标签：电脑入门

方法1：尽量使用VBA原有的属性、方法和Worksheet函数由于Excel对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说可能对它们不全部了解，这就产生了编程者经常编写与Excel对象的属性、方法相同功能的VBA代码段，而这些代码段的运行效率显然与Excel对象的属性、方法完成任务的速度相差甚大。例如用Range的属性CurrentRegion来返...

Excel vba返回的路径

标签：电脑入门

①返回应用程序完整路径 Application.Path 比如：D:SoftWareOffice2003OFFICE11 ②返回当前工作薄的路径 ThisWorkbook.Path 比如：D: ③返回当前默认文件路径 Application.DefaultFilePath 比如：C:Documents and SettingsAdministratorMy Documents ④只返回路径 Application.ActiveWorkbook.Path 比如：D: ⑤返回路径及工作簿文...

Excel Vba读取XML

标签：电脑入门

如下代码示例的功能是，在Excel中，通过VBA代码，读取XML文件中的内容。 Dim rst As ADODB.Recordset Dim stCon As String, stFile As String Dim i As Long, j As Long Set rst = New ADODB.Recordset stFile = "C:dzwebs.xml" stCon = "Provider=MSPersist;" With rst .CursorLocation = adUseClient .Open stF...

查看更多精彩>>