12
返回列表 上一主題 發帖

進階篩選的問題

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-12-8 18:32 | 只看該作者

進階篩選的問題

Dear 大大

      有一個小問題想請教大大們,就是我在使用"進階篩選"這個功能時,好像無法跨業執行
      例如在sheet2使用進階篩選後,在"複製到"這個部份選到sheet1確會失敗
      另外在使用vba撰寫時,也會有這樣的問題,程式碼如下  (無法執行)
  Sheet2.Select
   Sheet2.Range("C4").Select
   Sheet2.Range(Selection, Selection.End(xlToRight)).Select
   Sheet2.Range(Selection, Selection.End(xlDown)).Select
   Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
   Sheet1.Select
   Range("A4").Select

          是否有解決的方式呢???
收藏 分享

taihui

帖子
1 
主題
0 
精華
0 
積分
93 
點名
0  
作業系統
xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2010-12-30 
最後登錄
2013-5-14 
13#
發表於 2011-1-1 15:18 | 只看該作者
回復 2# oobird


    只要在目的工作表執行進階篩選,就可以跨工作表執行
太感謝了.

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
12#
發表於 2010-12-14 10:27 | 只看該作者
回復 11# FAlonso


    謝謝提供我寶貴的意見~:D

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
11#
發表於 2010-12-11 14:19 | 只看該作者
我把樓主的code原裝填入模組再運用,啥事也沒有,程式邏輯是絕對正確的
感覺這個Error 1004是望天打卦,喜歡的時候便出現
還有就是那種select完又end又select的,最好用current region
"Excel VBA與資料庫整合大活用"一書有詳細解釋,這書很棒
80 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2010-12-9 11:02 | 只看該作者
回復 8# hugh0620
  1. Private Sub CommandButton1_Click()
  2.    Sheet2.Range("C4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range("A1:A9"), CopyToRange:=Sheet1.Range("C5:j5"), Unique:=True
  3. End Sub
複製代碼
要用計算式準則,計算式準則的欄位名稱須不同於資料庫的欄位名稱
Sheet1.Range("A1:A9") 是準則的範圍 如圖:

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
9#
發表於 2010-12-9 10:12 | 只看該作者
a.gif

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
8#
發表於 2010-12-9 10:10 | 只看該作者
回復 6# GBKEE


    大大~ 很感謝你這樣熱心的回覆~
    很抱歉  我沒有表達的很清楚
    希望透過Sheet1 A2這個欄位~當KEY WORD~ 去篩選出 sheet2 中資料符合sheet1這個欄位
   例: sheet1 A2 = 1
          就篩出 sheet2 資料中符合1 的資料

   這樣說明,希望大大能了解

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-4-23 
7#
發表於 2010-12-9 10:03 | 只看該作者
回復 5# oobird


    等級不夠~ 無法下載~ 我會努力衝的~ 好下載大大提供的檔案

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2010-12-9 09:51 | 只看該作者
本帖最後由 GBKEE 於 2010-12-9 09:58 編輯

回復 4# hugh0620
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A2"), Unique:=True
這裡改為 A4 , A2 的值為1不是 資料的欄位所以會產生錯誤 但如A2 的值=""  程式會自動產生,資料的欄位 可試試看  
修改你的程式碼如下,是否是你的原意.
Private Sub CommandButton1_Click()
   Sheet2.Range("C4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range("A1:A2"), CopyToRange:=Sheet1.Range("A4:H4"), Unique:=True
End Sub
PS: CriteriaRange:=Sheet1.Range("A1:A2"), 的儲存格可全部為空白 ,但不可有資料的欄位中夾雜有空白儲存格及不是資料的欄位

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
5#
發表於 2010-12-9 09:49 | 只看該作者
測試進階篩選.rar (8.2 KB)

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
12
返回列表 上一主題