Excel VBA：將評估匹配與“ OR”一起使用

Question

我已經設置了代碼，以返回包含A列中的“ Car”，B列中的“ Fiat”和G列中的“ Yellow”的行的行號。

Set ws1 = Sheets("Database")
Set ws2 = Sheets("Insert")
Set ws3 = Sheets("Sheet1")


1_cell = "Car"
2_cell = "Fiat"
3_cell = "Yellow"

row_num2 = Evaluate("MATCH(1,('" & ws1.Name & "'!A:A=""" & 1_cell & """)*('" & ws1.Name & "'!B:B=""" & 2_cell & """)*('" & ws1.Name & "'!G:G=""" & 3_cell & """),0)")

但是我試圖弄清楚如何做到這一點，以便它查找包含“汽車”，“菲亞特”的行，並在G列中顯示“黃色”或“綠色”。

我不希望它僅生成包含“黃色”的匹配項，我希望它能夠在同一列中包含“綠色”的情況下進行匹配。

有任何想法嗎？ 謝謝您的幫助！

Answer 1

未經測試 。 但是應該假設您的代碼正在工作

1_cell = "Car"
2_cell = "Fiat"
3_cell = "Yellow"
4_cell = "Green"

row_num_1 = Evaluate("MATCH(1,('" & ws1.Name & "'!A:A=""" & 1_cell & """)*('" & ws1.Name & "'!B:B=""" & 2_cell & """)*('" & ws1.Name & "'!G:G=""" & 3_cell & """),0)")
row_num_2 = Evaluate("MATCH(1,('" & ws1.Name & "'!A:A=""" & 1_cell & """)*('" & ws1.Name & "'!B:B=""" & 2_cell & """)*('" & ws1.Name & "'!G:G=""" & 4_cell & """),0)")

row_num2 = WorksheetFunction.Min(row_num_1, row_num_2)