小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索

QQ空間 QQ好友新浪微博微信

Excel VBA日期篩選編輯問題

udnb 2012-12-25

展開全文

知識問題|

Excel VBA日期篩選編輯問題

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

[ 檢舉 ]

網(wǎng)友正面評價 100%

共有 52 人評價

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

最佳解答

發(fā)問者自選

回答者：	冰淇淋 ( 初學(xué)者 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("輸入日期", "結(jié)束日期")
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