返回列表 上一主題 發帖

[發問] 清單方塊搜尋

[發問] 清單方塊搜尋

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

懇請各位大大教教我><"
小弟剛入門,想從實戰中學習
使用清單方塊搜尋.rar (18.98 KB)

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



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

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題