返回列表 上一主題 發帖

[發問] EXCEL跨資料檔篩選條件問題請教

[發問] EXCEL跨資料檔篩選條件問題請教

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

我檔案裡有2個檔案

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

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

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

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

水果出貨表.rar (19.54 KB)

本帖最後由 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
複製代碼
上面的語法
只有開始日期 結束日期 與 出貨代號 的篩選
但現在要多增加 產品 與 出貨方式的篩選
該如何改??
請不吝指導

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題