Excel VBA日期篩選編輯問題

知識問題|

Excel VBA日期篩選編輯問題

發問者：	草 ( 初學者 5 級)
發問時間：	2012-06-28 10:56:47
解決時間：	2012-07-04 15:02:19
解答贈點：	20 ( 共有 0 人贊助 )
回答：	1 評論： 0 意見： 18

[ 檢舉 ]

網友正面評價 100%

共有 52 人評價

假設我在sheets1.A欄儲存格為日期從a1.a2.a3.....開始排列..2012/1/1~2012/06/30
B欄為產量,c欄為班別
我想以一個INPUT BOX來篩選特定日期將(日期.產量.班別帶入sheet2.)
例:2012/3/11再"A50"儲存格我要將A50.B50.C50帶入steet2
麻煩大家幫幫我拜托!!
**順便問一下可以篩選多天的方式ㄇ**
例:2012/1/1~2012/3/13
感恩

最佳解答

• 發問者自選

回答者：	冰淇淋 ( 初學者 5 級 )
回答時間：	2012-07-03 13:25:48

[ 檢舉 ]

Sub test()
Dim xR As Range
Dim D1, D2 As Date
Sheets("sheet2").Cells.Delete
D1 = InputBox("輸入日期", "開始日期")
D2 = InputBox("輸入日期", "結束日期")
If D1 > D2 Then
MsgBox ("日期輸入錯誤")
Exit Sub
End If
Set xR = Range("sheet1!A1").CurrentRegion
With xR
.AutoFilter
.AutoFilter Field:=1, Criteria1:=">=" & D1, Operator:=xlAnd, Criteria2:="<=" & D2
Range("sheet1!A1").CurrentRegion.Copy
Range("sheet2!A1").PasteSpecial xlValues
.AutoFilter
End With
End Sub

相關詞：