excel 열을 통해 검색 ID를 검색

Question

나는 목록 상자에서 ID를 얻고 그 ID가 있는지 없는지 알아 내기 위해 엑셀 시트 (ID)를 스캔합니다. 그렇지 않으면 결국 추가해야합니다. 그렇다면 ID가있는 행을 찾아야합니다.

나는이 방법

count = 1 
count1=1 

While (Worksheets("ID").Cells(Count, 1) <> "") 
    If StrComp(Worksheets("ID").Cells(Count, 2), list1.Value, vbTextCompare = 1) Then 
     count1=count 
count = count +1 

를 반복하고

Answer 1

당신은 전체 문자열에서 하나의 소문자 insenstive 일치 열 B를보고 찾기를 사용하여 즉

업데이트 시도 할 수 있습니다 : 당신이를 실행중인 경우 활성 X 컨트롤에서 직접 찾으십시오.

Private Sub List1_Click() 
Dim rng1 As Range 
    Set rng1 = Sheets("ID").Columns("B").Find(List1.Value, , xlValues, xlWhole, , False) 
    If Not rng1 Is Nothing Then 
     MsgBox List1.Value & " found at " & rng1.Row 
    Else 
     MsgBox List1.Value & " not found" 
    End If 
End Sub