AutoFilter

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

其功能方法為AutoFilter.

適用于Range對(duì)象和WorkSheet對(duì)象。

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

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

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

篩選說(shuō)明

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

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

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

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

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

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

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

Range.AutoFilter方法

語(yǔ)法

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

參數(shù)說(shuō)明

示例

ActiveSheet.Range("A1").AutoFilter _

Field:=1, _

Criteria1:="嫦娥", _

VisibleDropDown:=False

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

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

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

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

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

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

判斷篩選功能是否開(kāi)啟，使用WorkSheet.FilterMode屬性。

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

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

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

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

不過(guò)也不能就不說(shuō)就不用不去掌握這個(gè)功能。

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

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