關于excel按篩選顏色的VBA代碼

　　一、原因所在

　　您在使用工作并的時候，大概使用了窗口菜單中的新建命令來新建你的excel文件后保存，因此，就會出現(xiàn)這種情況。

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

　　二、解決的辦法

　　①解決辦法

　　找到office的安裝目錄，如C:Program FilesMicrosoft OfficeOFFICE11，里面有個文件夾，名稱是：XLSTART

　　把這個文件夾和里面的所有內(nèi)容全部刪除，這樣就可以避免上述的問題的產(chǎn)生了。

　　萬一按照上述的方

　　在excel中，使用可視化的簡單操作方法，是很難根據(jù)顏色來篩選的，因此，我們只能使用VBA代碼來實現(xiàn)。

　　以下代碼的功能是：除首行外，將當前單元格所在列數(shù)據(jù)與當前單元格不同顏色的行隱藏起來，數(shù)據(jù)首行為標題列。

　　如果你有其它的需求，請自行修改代碼。

　　Sub FilterColor()

　　Dim UseRow, AC

　　UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row

　　If ActiveCell.Row > UseRow Then

　　MsgBox "超出范圍，請選擇有數(shù)據(jù)或有意思的單元格!", 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文件提示安裝什么之類的，請您使用第②種方法來解決。

　�、诮鉀Q辦法

　　建議查殺病毒，然后，還在出問題，那么，請重新安裝一下OFFICE就行了。

　�、劢鉀Q辦法

　　還有一種可能，就是你的電子表格中了宏病毒了，你到網(wǎng)上下載一個“宏病毒專殺”軟件安裝并查殺，就可以解決問題了，注意，得把360殺毒這些軟件關閉掉。

【excel按篩選顏色的VBA代碼】相關文章：

小班數(shù)學按物體的顏色分類教案06-20

小班數(shù)學教案《按顏色分類》03-02

小班數(shù)學《按顏色分類》教案優(yōu)秀09-26

按顏色特征排序小班科學教案（通用8篇）08-13

excel實訓心得03-09

網(wǎng)頁惡意代碼是什么11-14

寬帶691錯誤代碼怎么解決11-27

關于Excel的Hour函數(shù)介紹09-22

Excel日期和時間函數(shù)11-27

關于Excel工程函數(shù)大全11-27