Excel中用VBA函數(shù)進(jìn)行顏色篩選的操作方法
在excel中,使用可視化的簡(jiǎn)單操作方法,是很難根據(jù)顏色來(lái)篩選的,因此,我們只能使用VBA代碼來(lái)實(shí)現(xiàn)。今天,學(xué)習(xí)啦小編就教大家在Excel中用VBA函數(shù)進(jìn)行顏色篩選的操作技巧。
Excel中用VBA函數(shù)進(jì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
Excel中用VBA函數(shù)進(jìn)行顏色篩選的操作方法相關(guān)文章:
3.Excel2007中進(jìn)行顏色篩選排序的操作方法