實(shí)例128 篩選大于60分之成績(jī)

【技巧說明】 篩選當(dāng)前列大于60分之成績(jī)。

【案例介紹】 如圖5.1所示，成績(jī)表中成績(jī)分布于50分至98分之間，現(xiàn)需要顯示大于60分的成績(jī)，其他數(shù)據(jù)自動(dòng)隱藏。

【案例實(shí)現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub篩選大于60分之成績(jī)()
    ActiveCell.CurrentRegion.AutoFilter Field:=2, Criteria1:=">60",
    Operator:=xlAnd
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 選中當(dāng)前區(qū)域中任意單元格，用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，當(dāng)前區(qū)域中大于60分的數(shù)據(jù)已篩選出來，結(jié)果如圖5.2所示。

圖5.1 待篩選的原始數(shù)據(jù)

圖5.2 篩選后的成績(jī)表

【相關(guān)知識(shí)說明】

AutoFilter：使用“自動(dòng)篩選”方式篩選一個(gè)列表。其參數(shù)列表見表5.1。

表5.1 AutoFilter參數(shù)列表

實(shí)例129 篩選小于等于60分之?dāng)?shù)據(jù)

【技巧說明】 篩選小于等于60分之?dāng)?shù)據(jù)。

【案例實(shí)現(xiàn)】 參見以下步驟：

【案例介紹】 以實(shí)例128數(shù)據(jù)為例，篩選出小于等于60分之?dāng)?shù)據(jù)。

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub篩選小于等于60分之成績(jī)()
    ActiveCell.CurrentRegion.AutoFilter Field:=2, Criteria1:="<=60",Operator:=xlAnd
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 選中當(dāng)前區(qū)域中任意單元格，用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，當(dāng)前區(qū)域中小于等于60分的數(shù)據(jù)都已篩選出來。

實(shí)例130 篩選高于平均值之?dāng)?shù)據(jù)

【技巧說明】 篩選高于平均值之?dāng)?shù)據(jù)。

【案例介紹】 以實(shí)例128數(shù)據(jù)為例，篩選出高于平均值之?dāng)?shù)據(jù)。

【案例實(shí)現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

S Sub篩選高于平均分之成績(jī)()
ActiveCell.CurrentRegion.AutoFilter Field:=2, _
Criteria1:=xlFilterAboveAverage, Operator:=xlFilterDynamic
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 選中當(dāng)前區(qū)域中任意單元格，用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，當(dāng)前區(qū)域中高于平均值之?dāng)?shù)據(jù)已篩選出來，結(jié)果如圖5.3所示。

圖5.3 篩選出高于平均值的數(shù)據(jù)

【相關(guān)知識(shí)說明】

（1）xlFilterAboveAverage：表示篩選條件為“高于平均值”。數(shù)據(jù)篩選的條件列表見表5.2。

表5.2 數(shù)據(jù)篩選的條件列表

（2）Operator：指定用于關(guān)聯(lián)兩個(gè)篩選條件的操作符。本實(shí)例中使用xlFilterDynamic表示動(dòng)態(tài)篩選。可選項(xiàng)見表5.3。

表5.3 篩選條件間的可選操作符列表

實(shí)例131 篩選前五個(gè)最大值

【技巧說明】 篩選前五個(gè)最大值。

【案例介紹】 以實(shí)例128數(shù)據(jù)為例，篩選出前五個(gè)最大值。

【案例實(shí)現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub篩選前五個(gè)最大值()
    ActiveCell.CurrentRegion.AutoFilter Field:=2, Criteria1:="5", Operator:=xlTop10Items
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 選中當(dāng)前區(qū)域中任意單元格，用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，當(dāng)前區(qū)域中前五個(gè)最大值已篩選出來，結(jié)果如圖5.4所示。

圖5.4 篩選出的前五個(gè)最大值

實(shí)例132 篩選不包含指定字符之?dāng)?shù)據(jù)

【技巧說明】 篩選不包含“差”之?dāng)?shù)據(jù)。

【案例介紹】 以實(shí)例128數(shù)據(jù)為例，篩選出評(píng)語不為“差”的數(shù)據(jù)。

【案例實(shí)現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub篩選不包含“差”之?dāng)?shù)據(jù)()
  ActiveCell.CurrentRegion.AutoFilter Field:=3, Criteria1:="<>差"
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 選中當(dāng)前區(qū)域中任意單元格，用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，當(dāng)前區(qū)域中評(píng)語不為“差”的數(shù)據(jù)已篩選出來，結(jié)果如圖5.5所示。

圖5.5 篩選出的評(píng)語不為“差”的數(shù)據(jù)

【相關(guān)知識(shí)說明】

（1）AutoFilter：使用“自動(dòng)篩選”方式篩選一個(gè)列表。其參數(shù)列表見表5.1。

（2）Criteria1:="<>差"：篩選條件為“<>差”。可以使用通配符，例如，評(píng)語中包含“極差”和“特別差”等，條件可以改用“<>*差”，表示排除最后一個(gè)字符為“差”的數(shù)據(jù)。

通配符有兩個(gè)：*和？，前者代表任意字符，后者代表單個(gè)字符。

實(shí)例133 按顏色篩選數(shù)據(jù)

【技巧說明】 按顏色篩選數(shù)據(jù)。

【案例介紹】 如圖5.6所示，部分?jǐn)?shù)據(jù)已用顏色標(biāo)示，部分無背景色，現(xiàn)需篩選出有黃色背景色的數(shù)據(jù)。

【案例實(shí)現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub按顏色篩選數(shù)據(jù)()
  ActiveCell.CurrentRegion.AutoFilter Field:=3,
      Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 選中當(dāng)前區(qū)域中任意單元格，用快捷鍵Alt+F8調(diào)出運(yùn)行宏窗口，然后單擊“執(zhí)行”按鈕，當(dāng)前區(qū)域中評(píng)語為黃色背景的數(shù)據(jù)已篩選出來，結(jié)果如圖5.7所示。

圖5.6 以顏色標(biāo)示評(píng)語的成績(jī)表

圖5.7 僅篩選出黃色背景的數(shù)據(jù)

【相關(guān)知識(shí)說明】

Criteria1:=RGB(255, 255, 0 )：表示篩選條件為黃色。