返回列表 上一主題 發帖

[發問] 請問 要搜尋 三條件 然後在工作表2 全部列出

mycmyc

帖子
173 
主題
42 
精華
0 
積分
220 
點名
0  
作業系統
win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2010-10-13 
最後登錄
2023-10-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-8 22:15 | 只看該作者

[發問] 請問 要搜尋 三條件 然後在工作表2 全部列出

請問 要搜尋 C欄 2210 AND E欄是  五金 AND  F欄大於500  
然後在工作表2 全部列出  列如  3列 符合 則列出 2345列出全部 ABCDEFGH 於工作表2
並往下搜尋至沒資料
謝謝你們
日誌.rar (7.13 KB)
收藏 分享
HI

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
2#
發表於 2012-11-11 00:39 | 只看該作者
回復 1# mycmyc


日誌.rar (7.39 KB)

用進階篩選的方式....
boyao

TOP

mycmyc

帖子
173 
主題
42 
精華
0 
積分
220 
點名
0  
作業系統
win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2010-10-13 
最後登錄
2023-10-11 
3#
發表於 2012-11-11 16:59 | 只看該作者
用進階篩選的方式....
好像不行
可以說明白一點嗎
謝謝
HI

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
4#
發表於 2012-11-12 15:36 | 只看該作者
回復 3# mycmyc


於sheet1.Range("L1:S1")建立篩選標題
sheet1.Range("L2:S2")建立篩選的條件(幾項都ok)
再執行"進階篩選執行"
如附件..
日誌.rar (14.15 KB)
boyao

TOP

CA199

帖子
7 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
來自
taipei 
註冊時間
2012-11-7 
最後登錄
2013-9-15 
5#
發表於 2012-11-12 15:57 | 只看該作者
矮由寫清楚一點給您看
1.要篩的資料選起來
2.篩選/以儲存格值篩選
3.點您要篩選的欄 ~點C欄文字篩選=2210 點E欄文字篩選-五金 點 F攔 文字篩選>500
就全部給您列出來了~~粉簡單吧~~~
行動是最踏實的幸福

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
282  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-30 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-11-13 15:48 | 只看該作者
回復 1# mycmyc
你要的結果是這樣吧

執行以下代碼
  1.     Sub ex()
  2. Dim Rng As Range, MyRng As Range, A As Range
  3. With 工作表1
  4. Set MyRng = .[C1]
  5. .Range("C:C").Replace 2120, "=1/0", xlWhole
  6. Set Rng = .Range("C:C").SpecialCells(xlCellTypeFormulas, 16)
  7. Rng.Value = 2120
  8. For Each ar In Rng.Areas
  9.     For Each A In ar
  10.       If A.Offset(, 2) = "五金" And A.Offset(, 4) > 500 Then
  11.       ad = .Range(.[A1], A.Offset(, -2)).Address
  12.       k = Evaluate("Lookup(2,1/(" & ad & "),row(" & ad & "))")
  13.          Set MyRng = Union(MyRng, .Range(.Cells(k, 3), A.End(xlDown)))
  14.          Exit For
  15.       End If
  16.     Next
  17. Next
  18. If Not MyRng Is Nothing Then MyRng.EntireRow.Copy 工作表2.[A1]
  19. End With
  20. End Sub
複製代碼
學海無涯_不恥下問

TOP

mycmyc

帖子
173 
主題
42 
精華
0 
積分
220 
點名
0  
作業系統
win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2010-10-13 
最後登錄
2023-10-11 
7#
發表於 2012-11-16 18:39 | 只看該作者
謝謝大家
我吸收看看
不好意思
HI

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題