AutoFilter

自動篩選是一個十分有用的功能，在數(shù)據(jù)統(tǒng)計和分類應(yīng)用中相當(dāng)方便。

其功能方法為AutoFilter.

適用于Range對象和WorkSheet對象。

總得來說篩選是一個高階應(yīng)用技術(shù)，如果應(yīng)用熟練，對于數(shù)據(jù)的統(tǒng)計工作有很大幫助。

由于工作當(dāng)中應(yīng)用數(shù)據(jù)里不是太大，所以在這方面平時應(yīng)用不多。

這里講一下運(yùn)用代碼來如何對數(shù)據(jù)表進(jìn)行篩選。

篩選說明

下圖為例，對成績表按姓名進(jìn)行一個分類篩選，相當(dāng)于一個查詢功能。

實際上可以按成績分?jǐn)?shù)進(jìn)行篩選，比如按90分篩選，或按60分都可以。

本例中可以自定義數(shù)據(jù)范圍，也就是說可以選定要篩選哪些數(shù)據(jù)，這個都是很隨意的。

然后就把姓名自動添加到左側(cè)列表框內(nèi)，選擇列表框姓名就是可以顯示出這個人的成績。

其實這個篩選工作有點(diǎn)單一，如果是商品類數(shù)據(jù)表就更有意義。

比如要篩選出某一個商品，如手機(jī)的價格，那么就達(dá)到篩選目的了。

不過，其結(jié)果大同小異，只是換一下數(shù)據(jù)表。

Range.AutoFilter方法

語法

expression.AutoFilter (Field, Criteria1, Operator, Criteria2, SubField, VisibleDropDown)

參數(shù)說明

示例

ActiveSheet.Range("A1").AutoFilter _

Field:=1, _

Criteria1:="嫦娥", _

VisibleDropDown:=False

上面例子說明，篩選當(dāng)前活動工作表，從單元格 A1 開始的列表，僅顯示字段 1 的值等于“嫦娥” 的條目。 并且隱藏字段 1 的下拉箭頭。

如果篩選已關(guān)閉，AutoFilter屬性返回 Nothing。

若要為工作表創(chuàng)建自動篩選對象, 必須手動或使用Range對象的**自動篩選** 方法對工作表上的區(qū)域啟用自動篩選。

設(shè)置篩選Dim SR As RangeSet SR = ActiveSheet.range("A1:D10")SR.AutoFilter _field:=1, _Criteria1:=“中國”, _VisibleDropDown:=True '隱藏下拉箭頭'篩選內(nèi)容'篩選字段1

交當(dāng)前工作表單元格，A1:D10區(qū)域設(shè)置為篩選區(qū)域，以第1字段為篩選條件，篩選出值為“中國”的條目來。

關(guān)閉篩選ActiveSheet.AutoFilterMode = False '取消篩選判斷篩選

判斷篩選功能是否開啟，使用WorkSheet.FilterMode屬性。

如果為真（TRUE）則開啟，假（FALSH）關(guān)閉。

可以用下面函數(shù)進(jìn)行判斷。

Function getWorksheetFilterMode() As Boolean'判斷表格是否開啟自動篩選功能 Dim onoff As Boolean If ActiveSheet.FilterMode Then onoff = True Else onoff = False End If getWorksheetFilterMode = onoffEnd Function總結(jié)

篩選功能在數(shù)據(jù)統(tǒng)計中應(yīng)用是有獨(dú)特的長處，但在數(shù)據(jù)里不大的情況下，一般的辦公過程中可能應(yīng)用較少。

不過也不能就不說就不用不去掌握這個功能。

學(xué)會之后會發(fā)現(xiàn)有其很獨(dú)特的一面，操作方便簡單，高效。

歡迎關(guān)注、收藏