- 相關(guān)推薦
關(guān)于excel按篩選顏色的VBA代碼
一、原因所在
您在使用工作并的時(shí)候，大概使用了窗口菜單中的新建命令來(lái)新建你的excel文件后保存，因此，就會(huì)出現(xiàn)這種情況。
也許是中毒了，office可能中毒了。
二、解決的辦法
①解決辦法
找到office的安裝目錄，如C:Program FilesMicrosoft OfficeOFFICE11，里面有個(gè)文件夾，名稱是：XLSTART
把這個(gè)文件夾和里面的所有內(nèi)容全部刪除，這樣就可以避免上述的問(wèn)題的產(chǎn)生了。
萬(wàn)一按照上述的方
在excel中，使用可視化的簡(jiǎn)單操作方法，是很難根據(jù)顏色來(lái)篩選的，因此，我們只能使用VBA代碼來(lái)實(shí)現(xiàn)。
以下代碼的功能是：除首行外，將當(dāng)前單元格所在列數(shù)據(jù)與當(dāng)前單元格不同顏色的行隱藏起來(lái)，數(shù)據(jù)首行為標(biāo)題列。
如果你有其它的需求，請(qǐng)自行修改代碼。
Sub FilterColor()
Dim UseRow, AC
UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row
If ActiveCell.Row > UseRow Then
MsgBox "超出范圍，請(qǐng)選擇有數(shù)據(jù)或有意思的單元格!", vbExclamation, "錯(cuò)誤"
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
法解決之后，打開(kāi)excel文件提示安裝什么之類的，請(qǐng)您使用第②種方法來(lái)解決。
②解決辦法
建議查殺病毒，然后，還在出問(wèn)題，那么，請(qǐng)重新安裝一下OFFICE就行了。
�、劢鉀Q辦法
還有一種可能，就是你的電子表格中了宏病毒了，你到網(wǎng)上下載一個(gè)“宏病毒專殺”軟件安裝并查殺，就可以解決問(wèn)題了，注意，得把360殺毒這些軟件關(guān)閉掉。
【excel按篩選顏色的VBA代碼】相關(guān)文章：
小班數(shù)學(xué)《按顏色分類》教案優(yōu)秀09-26
excel實(shí)訓(xùn)心得03-09
網(wǎng)頁(yè)惡意代碼是什么11-14
寬帶691錯(cuò)誤代碼怎么解決11-27