返回列表 上一主題 發帖

[發問] 請教多項目比對，篩選

lusyfatw

帖子
3 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
office2016 
閱讀權限
10 
註冊時間
2017-2-22 
最後登錄
2019-6-1 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-11-4 11:16 | 顯示全部帖子

[發問] 請教多項目比對，篩選

各位前輩好，請教多項目比對，篩選

平時操作皆利用函數較多，vba之運用僅略懂皮毛
皆利用討論版內各主題資料(基礎部份)，自己在反覆測試來達到需求。
但搜尋討論版許久，實在無頭緒，故發帖向前輩們請教，感謝各位。

附件工作表data的檢測項目需小於工作表spc各規格的檢測項目，
符合便將data內該列資料複製到符合規格之工作表


test.zip (22.12 KB)
收藏 分享

lusyfatw

帖子
3 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
office2016 
閱讀權限
10 
註冊時間
2017-2-22 
最後登錄
2019-6-1 

論壇贊助勳章
2#
發表於 2018-11-4 23:37 | 顯示全部帖子
回復 2# faye59

DATA資料讀取檢測項目1-13?   是的
讀取完比對spc項目1-13?         有檢測值的項目
依序由上到下比對符合的參數?        是的
符合的填入該A欄位名稱對應的活頁簿?       是的
填入後該筆DATA中的資料是否移除?保留?     保留
如果保留，當重覆執行第二次對應的貨頁簿中已存在檔案是否覆蓋?往下貼入?   往下貼入
如果spc A欄位中有未建立的活頁簿是否跳過?新增A欄名稱活頁簿?    這部份會先建好，就沒有此想法

TOP

lusyfatw

帖子
3 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
office2016 
閱讀權限
10 
註冊時間
2017-2-22 
最後登錄
2019-6-1 

論壇贊助勳章
3#
發表於 2018-11-5 01:23 | 顯示全部帖子
本帖最後由 lusyfatw 於 2018-11-5 01:24 編輯

回復 2# faye59

小弟只會皮毛，利用一個一個比對，還請網兄賜教，謝謝您。

t1.zip (72.29 KB)


Sub test()

Dim a, b, c, d, e, f, g

Set s1 = Worksheets("spc")
Set d1 = Worksheets("DATA")
Set d2 = Worksheets("OEM-7IMP-2Y-01")

a = s1.Range("B2")
b = s1.Range("C2")
c = s1.Range("D2")
d = s1.Range("E2")
e = s1.Range("F2")
f = s1.Range("G2")
g = s1.Range("H2")

For i = 2 To 150
If (d1.Range("N" & i) <= a) * (d1.Range("O" & i) <= b) * (d1.Range("P" & i) <= c) * (d1.Range("Q" & i) <= d) * (d1.Range("R" & i) <= e) * (d1.Range("S" & i) <= f) * (d1.Range("T" & i) <= g) Then
d1.Range("b" & i & ":Z" & i).Copy
Worksheets("OEM-7IMP-2Y-01").Activate
d2.Range("B1048576").Select
Selection.End(xlUp).Select
d2.Range("b" & ActiveCell.Row + 1).PasteSpecial Paste:=xlPasteValues
End If
Next

End Sub

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題