標題: 資料篩選問題 [打印本頁]

---

作者: sillykin    時間: 2016-5-5 14:21     標題: 資料篩選問題

Private Sub CommandButton1_Click()
'清除表單顏色
    Range("A5:Q200").Select
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-18
    Selection.Interior.ColorIndex = xlNone
   
    '篩選表單
Sheets("彙總表").Range("A2:H3600").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("篩選區").Range( _
        "A1:B2"), CopyToRange:=Range("A4:H3600"), Unique:=False
    ActiveWindow.SmallScroll Down:=-12
   
'排序
Range("A4:H3600").Select
    ActiveWindow.SmallScroll Down:=-60
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("F2").Select
End Sub

Private Sub CommandButton4_Click()
'清除表單顏色
    Range("A5:Q200").Select
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-18
    Selection.Interior.ColorIndex = xlNone
   
    '篩選表單
Sheets("彙總表").Range("A2:H3600").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("篩選區").Range( _
        "A1:D2"), CopyToRange:=Range("A4:H3600"), Unique:=False
    ActiveWindow.SmallScroll Down:=-12
   
'排序
Range("A4:H3600").Select
    ActiveWindow.SmallScroll Down:=-60
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("F2").Select
End Sub
在表單中二層資料篩選為何篩選值速度變很慢，不知何處出了問題，大大是否幫解答？

---

作者: chaoyiho    時間: 2016-5-6 13:44

有檔案才知道喔~

通常是你的資料太大才會造成處理速度上的問題

---

作者: sillykin    時間: 2016-5-7 20:55

回復 2# chaoyiho


     謝謝大大的回覆；但還是不解
資料才３４００筆．．篩選約10秒...如果資料30,000筆..不是篩選更久．．是否有更快的方式嗎

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)