返回列表下一主題上一主題發帖

資料篩選問題

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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
在表單中二層資料篩選為何篩選值速度變很慢，不知何處出了問題，大大是否幫解答？

未命名.jpg (39.63 KB)