- 帖子
- 192
- 主題
- 15
- 精華
- 0
- 積分
- 194
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2016-9-22
- 最後登錄
- 2020-8-28
 
|
2#
發表於 2016-9-28 16:07
| 只看該作者
Sub 排序()
'
' 多重篩選排序
'
'
ActiveWorkbook.Worksheets("WIP").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("WIP").AutoFilter.Sort.SortFields.Add Key:=Range( _
"E2:E2009"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("WIP").AutoFilter.Sort.SortFields.Add Key:=Range( _
"G2:G2009"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("WIP").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F2:F2009"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("WIP").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub
這是我篩好的~
但我不知道怎麼建立一個按鈕按下去可以出現在清單方塊
然後只想列出幾個想要的重點 |
|
