- 帖子
- 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 編輯
- Sub crMain1()
- Dim sWB As Workbook
- Dim Sht As Worksheet
- Dim bgDate As Date, endDate As Date
- 'Worksheets(1).Cells.ClearContents
- bgDate = Application.InputBox("格式:yyyy/mm/dd", "開始日期", Type:=2)
- endDate = Application.InputBox("格式:yyyy/mm/dd", "結束日期", Type:=2)
- Set sWB = Workbooks.Open(ThisWorkbook.Path & "\水果資料.xlsx")
- Set Sht = sWB.Worksheets(1)
- With Sht
- .Rows(1).AutoFilter
- .UsedRange.AutoFilter Field:=3, Criteria1:="0"
- .UsedRange.AutoFilter Field:=2, Criteria1:= _
- ">=" & bgDate, Operator:=xlAnd, Criteria2:="<=" & endDate & " 23:59"
- .UsedRange.Copy ThisWorkbook.Worksheets("水果出貨表").Range("A4")
- End With
- sWB.Close False
- End Sub
複製代碼 上面的語法
只有開始日期 結束日期 與 出貨代號 的篩選
但現在要多增加 產品 與 出貨方式的篩選
該如何改??
請不吝指導 |
|