返回列表 上一主題 發帖

[發問] 資料篩選

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
收藏 分享

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
2#
發表於 2013-1-10 12:33 | 只看該作者
回復 1# jcchiang

試試看


Dim myDate

Do Until IsDate(myDate)

    myDate = Trim(InputBox("請輸入日期", "日期"))

Loop

Source = Application.GetOpenFilename

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

End With

TOP

jcchiang

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

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題