標題: [發問] 資料篩選 [打印本頁]

---

作者: jcchiang    時間: 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    時間: 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

---

作者: jcchiang    時間: 2013-1-10 12:42

感謝指導,問題已解決,謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)