VBA依條件自動篩選 - Excel程式區

[發問] VBA依條件自動篩選

11^# 跳轉到 »

發表於 2016-12-17 22:25 | 只看該作者

回復 10# 准提部林

謝謝准大~~~~~~~~~~~~~~~~

*宅女一枚無誤*

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2016-12-18 08:09 | 只看該作者

本帖最後由 GBKEE 於 2016-12-18 08:11 編輯

回復 11# msmplay

Option Explicit
Sub Ex_作業天數()
Ex_篩選 "作業天數", 10, 3 'xlTop10Items=3 請看圖示
End Sub
Sub Ex_完成率()
Ex_篩選 "完成率", "<0.9", 0
End Sub
Sub Ex_逾期數()
Ex_篩選 "逾期數", 10, 3
End Sub
Sub Ex_篩選(篩選 As String, 篩選準則 As String, xl_Operator As Integer)
Dim Rng As Range
With Sheets("工作完成率統計")
Set Rng = .Rows("1:3").Find(篩選, lookat:=xlWhole)
If Rng Is Nothing Then MsgBox "找不到 " & 篩選: Exit Sub
Set Rng = Range(Rng.Range("A3"), Rng.Range("A4").End(xlDown).Offset(-1))
If .FilterMode Or .AutoFilterMode Then .AutoFilterMode = False ' 取消 [自動篩選]
If xl_Operator > 0 Then
Rng.AutoFilter Field:=1, Criteria1:=篩選準則, Operator:=xl_Operator ', VisibleDropDown:=False
Else
Rng.AutoFilter Field:=1, Criteria1:=篩選準則 ', VisibleDropDown:=False
End If
'** VisibleDropDown:=False :不在工作表上顯示有 [自動篩選] 下拉箭號
Rng(1).Select
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

13^#

發表於 2016-12-18 23:29 | 只看該作者

回復 12# GBKEE

謝謝G大熱心幫忙ㄟ~~~~~~~~~~

*宅女一枚無誤*

靜思自在 : 小事不做、大事難成。