q1a2z5

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-3-18 14:41 | 只看該作者

[發問] 二個欄位資料搜尋?

請問：
在左邊資料區只要有符合尺寸欄或者顏色欄條件者，都一一列出來。
謝謝！

2個欄位條件查詢.zip (9.65 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

12^#

發表於 2023-6-1 14:37 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, V, i&, j%, T$, R&
T = "/" & [J2] & "/" & [K2] & "/" & [L2] & "/" & [M2] & "/"
Brr = Range([G1], [A65536].End(xlUp))
For i = 2 To UBound(Brr)
V = InStr(T, "/" & Brr(i, 5) & "/") + InStr(T, "/" & Brr(i, 6) & "/")
If V > 0 Then R = R + 1: For j = 1 To 7: Brr(R, j) = Brr(i, j): Next
Next
[J6].Resize(R, 7) = Brr
Erase Brr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cypd

中學生 Rank: 2

帖子: 248
主題: 42
精華: 0
積分: 322
點名: 11
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2026-9-15

11^#

發表於 2020-5-27 19:49 | 只看該作者

好深奧的公式
值得好好研究...

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

10^#

發表於 2020-3-19 13:52 | 只看該作者

J6/陣列公式:
=IFERROR(INDEX(A:A,SMALL(IF(MMULT(COUNTIF($J$2:$M$2,$E$2:$F$11),{1;1}),ROW($2:$11)),ROW(A1))),"")

向右選擇性貼入公式, 再下拉

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

9^#

發表於 2020-3-19 13:28 | 只看該作者

回復 4# rouber590324

若回復內容有代碼或公式,
在確定回復前, 將下方[禁用表情]取消打勾, 再重新打勾,
這樣即可避免部份文字被識別為表情符號

TOP

hcm19522

博士班 Rank: 6 Rank: 6

帖子: 1808
主題: 190
精華: 0
積分: 2003
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-19

熱烈參與勳章

8^#

發表於 2020-3-19 09:53 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/588987680

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

7^#

發表於 2020-3-19 09:43 | 只看該作者

DEAR SIR
更正如下

Sub AAA()
Sheet1.[J665536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
Y = Y + 1
End If
Next
End Sub

羅

TOP

q1a2z5

中學生 Rank: 2

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

6^#

發表於 2020-3-19 08:55 | 只看該作者

我按下執行鍵時，出現＂執行階段錯誤'424' 此處需要物件"的訊息，我電腦excel版本是２０１６的。
謝謝！

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2020-3-19 08:52 | 只看該作者

DEAR SIR
更正如下

Sub AAA()
Sheet1.[J6

65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
Y = Y + 1
End If
Next
End Sub

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2020-3-19 08:40 | 只看該作者

我於公司電腦執行無問題
但我公司電腦.無法上傳檔案予網站.
你需看不能執行之錯誤點於何處.方可看如何解決(版本問題 OR......)

羅

TOP