返回列表 上一主題 發帖

[發問] 資料篩選

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-10 11:36 | 顯示全部帖子

[發問] 資料篩選

使用VB程式Copy Excel(A)的資料到Excel(B)
但需先篩選Excel(A)的資料,目前只能在程式裡寫入預篩選的日期
請問要如何將Criteria1:=">=2012/11/27"的日期改成執行時先詢問預篩選的日期,或在其他位置先填入日期
然後程式會將日期帶入篩選條件

Source = Application.GetOpenFilename

With Workbooks.Open(Source)
  .Sheets(1).Select
  Rows("1:1").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=1, Criteria1:=">=2012/11/27", Operator:=xlAnd
  .Sheets(1).Range("A:M").Copy ThisWorkbook.Sheets(2).Range("A1")
  
  .Close

End With
收藏 分享

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2013-1-10 12:42 | 顯示全部帖子
感謝指導,問題已解決,謝謝

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題