AutoFilter

自動篩選是一個十分有用的功能，在數據統計和分類應用中相當方便。

其功能方法為AutoFilter.

適用于Range對象和WorkSheet對象。

總得來說篩選是一個高階應用技術，如果應用熟練，對于數據的統計工作有很大幫助。

由于工作當中應用數據里不是太大，所以在這方面平時應用不多。

這里講一下運用代碼來如何對數據表進行篩選。

篩選說明

下圖為例，對成績表按姓名進行一個分類篩選，相當于一個查詢功能。

實際上可以按成績分數進行篩選，比如按90分篩選，或按60分都可以。

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

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

其實這個篩選工作有點單一，如果是商品類數據表就更有意義。

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

不過，其結果大同小異，只是換一下數據表。

Range.AutoFilter方法

語法

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

參數說明

示例

ActiveSheet.Range("A1").AutoFilter _

Field:=1, _

Criteria1:="嫦娥", _

VisibleDropDown:=False

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

如果篩選已關閉，AutoFilter屬性返回 Nothing。

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

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

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

關閉篩選ActiveSheet.AutoFilterMode = False '取消篩選判斷篩選

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

如果為真（TRUE）則開啟，假（FALSH）關閉。

可以用下面函數進行判斷。

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

篩選功能在數據統計中應用是有獨特的長處，但在數據里不大的情況下，一般的辦公過程中可能應用較少。

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

學會之后會發現有其很獨特的一面，操作方便簡單，高效。

歡迎關注、收藏