excel按筛选颜色的VBA代码

关于excel按筛选颜色的VBA代码

　　一、原因所在

　　您在使用工作并的时候，大概使用了窗口菜单中的新建命令来新建你的excel文件后保存，因此，就会出现这种情况。

　　也许是中毒了，office可能中毒了。

　　二、解决的办法

　　①解决办法

　　找到office的安装目录，如C:Program FilesMicrosoft OfficeOFFICE11，里面有个文件夹，名称是：XLSTART

　　把这个文件夹和里面的所有内容全部删除，这样就可以避免上述的问题的产生了。

　　万一按照上述的方

　　在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

　　法解决之后，打开excel文件提示安装什么之类的，请您使用第②种方法来解决。

　　②解决办法

　　建议查杀病毒，然后，还在出问题，那么，请重新安装一下OFFICE就行了。

　　③解决办法

　　还有一种可能，就是你的电子表格中了宏病毒了，你到网上下载一个“宏病毒专杀”软件安装并查杀，就可以解决问题了，注意，得把360杀毒这些软件关闭掉。