返回列表 上一主題 發帖

請問 大大

gn00487767

帖子
58 
主題
8 
精華
0 
積分
94 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-12-6 
最後登錄
2014-2-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題