Board logo

標題: 請問 大大 [打印本頁]
作者: gn00487767    時間: 2011-2-14 13:34     標題: 請問 大大

本帖最後由 GBKEE 於 2011-3-27 09:20 編輯

如您所說的篩選

01.Sub Ex()

02.    Sheets("Sheet3").[A1].CurrentRegion = ""

03.    Sheets("資料表").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("表格").[K1:L2], CopyToRange:=Sheets("Sheet3").[A1]

04.End Sub

如果要修改成
名字為 資料庫 的EXCEL檔案裡面的 資料表 工作表 篩選結果到 名字為 結果 的 EXCEL檔案裡面的篩選後 工作表
要怎麼修改呢
補充一下 檔案全都放在F: 槽裡面
麻煩 GBKEE 大大了
作者: GBKEE    時間: 2011-3-2 14:37     標題: RE: 請問

回復 1# gn00487767
有關vba的問題到 請到[Excel程式區]發問
   
  1. Sub Ex()
  2.     Dim Sh(1 To 2) As Worksheet
  3.     Set Sh(1) = Workbooks("資料庫").Sheets("資料表")
  4.     Set Sh(2) = Workbooks("結果").Sheets("篩選後")
  5.     Sh(1).Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh(1).[K1:L2], CopyToRange:=Sh(2).[A1]
  6. End Sub
複製代碼




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