返回列表 上一主題 發帖

[發問] 多條件進階篩選快速方法

home1913

帖子
22 
主題
5 
精華
0 
積分
36 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2011-2-15 
最後登錄
2014-6-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-6-17 18:36 | 只看該作者

[發問] 多條件進階篩選快速方法

進階篩選.rar (21.8 KB)

付檔中有2頁面，一為庫存頁面，另一為進階篩選條件及結果，
目前想使用巨集跑出結果，偏偏卡在第一步條件sku裡，每次sku皆會不同格數，
也無法將第二步條件一併使用，所以就分了二段，請教是否有方法可以克服第一步條件，
及直接加入第二步條件
感謝！
收藏 分享

home1913

帖子
22 
主題
5 
精華
0 
積分
36 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2011-2-15 
最後登錄
2014-6-28 
2#
發表於 2013-6-19 09:19 | 只看該作者
麻煩各位前輩教教我這題該如何解~

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2013-6-19 13:07 | 只看該作者
回復 2# home1913
這是不是你想要的答案：
  1. Sub Ex()
  2.     Range("A:D").Select
  3.     Sheets("庫存").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
  4.         Range("I1:J2"), CopyToRange:=Range("L1"), Unique:=False
  5. End Sub
複製代碼

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
4#
發表於 2013-6-19 16:33 | 只看該作者
回復 2# home1913

你看看 我把你準則下的sku 都要滿足loc 包含1 和 Avail 大於0這兩個條件 我是直接用進階篩選
123.gif
50 字節以內
不支持自定義 Discuz! 代碼

TOP

home1913

帖子
22 
主題
5 
精華
0 
積分
36 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2011-2-15 
最後登錄
2014-6-28 
5#
發表於 2013-6-19 18:33 | 只看該作者
那我想問說下面紅字部份要如何修改選取格子內有東西的範圍嗎?
因為每次Sku條件皆不同

Range("E1:H1").Select
Sheets("庫存").Columns("A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:A39"), CopyToRange:=Range("E1:H1"), Unique:= _

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
6#
發表於 2013-6-20 09:33 | 只看該作者
回復 5# home1913

進階篩選.rar (27.7 KB)
繞了一圈...應該有更精簡的方式
  1. Private Sub CommandButton1_Click()
  2.     Range("L:O").Clear
  3.     Range("G2:H2").Copy
  4.     Range([G3], [F65535].End(xlUp).Offset(, 2)).Select
  5.     ActiveSheet.Paste
  6.         Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  7.         [F1], [H65535].End(xlUp)), CopytoRange:=Range("L1:O1"), Unique:=False
  8.     Range([G3], [F65535].End(xlUp).Offset(, 2)).Clear
  9. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題