- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2016-12-15 08:27
| 只看該作者
回復 1# msmplay
2003 可用圖示 前10 項 錄製你所需的看看- Operator 選擇性的 XlAutoFilterOperator 資料類型。
- XlAutoFilterOperator 可以是這些 XlAutoFilterOperator 常數之一。
- xlAnd default
- xlBottom10Items '後面(項目)
- xlBottom10Percent '後面(百分比)
- xlOr
- xlTop10Items '前面(項目)
- xlTop10Percent '前面(百分比)
- 可使用 xlAnd 和 xlOr 將 Criteria1 和 Criteria2 建構複合準則。
- 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
|
|
發表於 2016-12-15 12:47
| 
