返回列表 上一主題 發帖

[發問] 清單方塊搜尋

starbox520

帖子
192 
主題
15 
精華
0 
積分
194 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
女 
註冊時間
2016-9-22 
最後登錄
2020-8-28 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-27 00:38 | 只看該作者

[發問] 清單方塊搜尋

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

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

starbox520

帖子
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



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

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題