如何使用Excel VBA驗證與一組值匹配的列中的值

Question

請參見下面的兩個圖片Sheet 1和Sheet 2

工作表1

工作表2

我正在嘗試驗證工作表1“顏色”列中的值，也就是說，如果工作表1“類型”是汽車，那么顏色只能是黑白。工作表2具有有關哪種類型（哪些顏色可以有效）的規則。 如果工作表1中的汽車類型還有其他顏色，則相鄰列應顯示“顏色不匹配”。

    for each cell in (sheet 1 - column color) 
     get type from (sheet 1 - column Type)
    check if (Sheet 1 - column Type) is in (sheet 2 column Type), 
if not give error in adjacent cell "No type"
    if (Sheet 1 - column Type) is in (sheet 2 column Type) then 
Check if (Sheet 1 - column color) has the valid color
 if not give error "color not matching"

誰能告訴我如何做到這一點在excel VB中。

附言，我知道如何使用countifs做到這一點，但只想知道如何在Excel VB中完成此操作

謝謝。

Answer 1

您不需要VBA。 您可以在sheet1單元格E2中使用簡單公式（並向下拖動）：

=IF(COUNTIFS(Sheet2!$A$1:$A$1000,Sheet1!D2,Sheet2!$C$1:$C$1000,Sheet1!A2)=0,"color not matching","color OK")