다른 워크 시트에서 일치하는 데이터를 찾고 Excel의 특정 셀에서 부울 값을 반환하려면 어떻게해야합니까?

Question

2 개의 워크 시트가있는 Excel 통합 문서가 있습니다. "청구서"및 "제품".

"인보이스"에는 제품 시트 및 C("QTE") ...에서 여러 개의 열 A("ID"), B("DESIGN")이 선택되어 있습니다. 그것은 다음과 같다 : "제품"에서

A B C D ... 
--------------------- 
100 AR 
110 BR 
120 CR 
130 DR 

내가 다른 컬럼, A("ID") 및 B("DESIGN"), C("NAME"), D("TYPE") 있습니다. 그것은 다음과 같습니다

A B  C  D  
---------------------- 
10 AR NAME1 TY1 
20 BR NAME2 TY2 
30 CR NAME3 TY2 
40 DR NAME4 TY1 

을 그래서, "송장"시트 (B 열)에서 DESIGN를 선택할 때, 내가 선택한 DESIGN의 유형 TY1 여부를 확인하고 특정 셀에 참/거짓 반환해야

예 : 송장 시트는

• : 제가 DESIGNAR 원하는대로 선택하면 참 (AR 때문에 특정 셀 복귀,546,321이며 0) 송장 시트에서

• : 내가 DESIGN로 BR 선택하면 내가

이 할 수있는 방법이있다) TYPE!=TY1입니다 특정 셀이 거짓 (때문에 BR의 반환 싶어?

Answer 1

이것은 작동 할 수 있습니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

     Dim sWhatToLook As String 
     Dim rng1 As Range 
     Dim strSearch As String 

     If Target.Column = 2 Then 'for the code to execute clicking on column B only 
      sWhatToLook = Target.Value 
      Set rng1 = Worksheets("Products").Range("A2:D1000").Find(sWhatToLook, , xlValues, xlWhole) 'Set range (A2:D1000) as needed 
      If Not rng1 Is Nothing Then 
       If (rng1.Offset(0, 2).Value = "TY1") Then 
        Worksheets("Invoice").Cells(Target.Row, 5) = True 
       Else 
        Worksheets("Invoice").Cells(Target.Row, 5) = False 
       End If 
      Else 
       MsgBox sWhatToLook & " not found" 
      End If 
     End If 

    End Sub