標題: [發問] EXCEL跨資料檔篩選條件問題請教 [打印本頁]

---

作者: bqwangs    時間: 2014-11-14 17:29     標題: EXCEL跨資料檔篩選條件問題請教

本帖最後由 bqwangs 於 2014-11-14 17:32 編輯

我檔案裡有2個檔案

水果出貨表有5項選項
開始日期        結束日期        產品        出貨方式        出貨代號
上述的5個欄位 可用選的 下拉式的 或 輸入式 或 按鈕式的方式去設定篩選條件皆可

要如何去篩選水果資料的EXCEL檔

把結果於水果出貨表中顯示出來
流水號　        產品        出貨方式        日期        星期        時間        出貨代號        單價        公斤數        總價        備註

如果可以的話
可否提供範例檔

[attach]19549[/attach]

---

作者: bqwangs    時間: 2014-12-13 20:21

本帖最後由 bqwangs 於 2014-12-13 20:23 編輯

1. Sub crMain1()
   
2. Dim sWB As Workbook
   
3. Dim Sht As Worksheet
   
4. Dim bgDate As Date, endDate As Date
   
5.     'Worksheets(1).Cells.ClearContents
   
6.     bgDate = Application.InputBox("格式:yyyy/mm/dd", "開始日期", Type:=2)
   
7.     endDate = Application.InputBox("格式:yyyy/mm/dd", "結束日期", Type:=2)
   
8.     Set sWB = Workbooks.Open(ThisWorkbook.Path & "\水果資料.xlsx")
   
9.     Set Sht = sWB.Worksheets(1)
   
10.     With Sht
    
11.         .Rows(1).AutoFilter
    
12.         .UsedRange.AutoFilter Field:=3, Criteria1:="0"
    
13.         .UsedRange.AutoFilter Field:=2, Criteria1:= _
    
14.             ">=" & bgDate, Operator:=xlAnd, Criteria2:="<=" & endDate & " 23:59"
    
15.         .UsedRange.Copy ThisWorkbook.Worksheets("水果出貨表").Range("A4")
    
16.     End With
    
17.     sWB.Close False
    
18. End Sub

複製代碼

上面的語法
只有開始日期 結束日期 與 出貨代號 的篩選
但現在要多增加 產品 與 出貨方式的篩選
該如何改??
請不吝指導

---

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