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

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

1^# 跳轉到 »

發表於 2016-12-15 08:27 | 顯示全部帖子

回復 1# msmplay

2003 可用圖示前10 項錄製你所需的看看

複製代碼

試試看

Sub 篩選測試()
With Sheets("工作完成率統計")
If .FilterMode Then
.ShowAllData
Else
.Range("$B$3:$DB$222").AutoFilter
End If
.Range("$B$3:$DB$222").AutoFilter Field:=102, Criteria1:="5", Operator:=xlTop10Items
'測試前5項紀錄但會差一項,因資料的最後是工作數總計列也計算進去了
' 所以 Criteria1:="6" ,才會顯示測試前5項紀錄
.ShowAllData
.Range("$B$3:$DB$222").AutoFilter Field:=103, Criteria1:="5", Operator:=xlTop10Items
.ShowAllData
.Range("$B$3:$DB$222").AutoFilter Field:=104, Criteria1:="<90%"
' 工作數總計列也有計算進去但 >90%,會顯示
.AutoFilterMode = False
End With
End Sub

複製代碼

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

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

2^#

發表於 2016-12-16 19:16 | 顯示全部帖子

回復 3# msmplay

將你3個按鈕的程式放在一起了,你可拆開成你要的3個巨集,

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

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

3^#

發表於 2016-12-17 05:49 | 顯示全部帖子

回復 5# msmplay
193列時際上是9.5,因你格式上採用數值小數點0位,所以顯示為10
可修改公式=IF(SUM(G193:CX193)=0,"-",ROUND(AVERAGE(G193:CX193),0))

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

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

4^#

發表於 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元的贊助,人人有能力.

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