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

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

4^# 跳轉到 »

發表於 2016-12-16 19:16 | 只看該作者

回復 3# msmplay

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

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

3^#

發表於 2016-12-15 12:47 | 只看該作者

回復 2# GBKEE

G大~~~~感謝熱心幫忙ㄛ！不過小妹試了不行ㄟ，按一下任何一個鍵，都會有在出現篩選的動作，但最後又回復到沒有篩選的樣子！你測試可以成功嗎？

*宅女一枚無誤*

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

2^#

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

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