返回列表 上一主題 發帖

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

bqwangs

帖子
38 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
win xp 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2013-5-22 
最後登錄
2020-3-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-14 17:29 | 只看該作者

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

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

我檔案裡有2個檔案

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

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

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

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

水果出貨表.rar (19.54 KB)
收藏 分享

bqwangs

帖子
38 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
win xp 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2013-5-22 
最後登錄
2020-3-9 
2#
發表於 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
複製代碼
上面的語法
只有開始日期 結束日期 與 出貨代號 的篩選
但現在要多增加 產品 與 出貨方式的篩選
該如何改??
請不吝指導

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題