返回列表 上一主題 發帖

[發問] 資料篩選

[發問] 資料篩選

使用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

回復 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

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

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題