標題: [發問] 清單方塊搜尋 [打印本頁]

---

作者: starbox520    時間: 2016-9-27 00:38     標題: 清單方塊搜尋

請問有大大能教一下
這個清單方塊與我所需要搜尋的方法嗎?
工作表2是理想中的型態
若以表中的DT ->LN-> PE作為篩選的要素 (篩出TOP3)
然後只要取工作表的幾項資訊而已

懇請各位大大教教我><"
小弟剛入門，想從實戰中學習
[attach]25364[/attach]

---

作者: starbox520    時間: 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



這是我篩好的~
但我不知道怎麼建立一個按鈕按下去可以出現在清單方塊
然後只想列出幾個想要的重點

---

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