vba를 사용하여 Excel에서 다른 항목 검색하기

Question

"2"를 입력하면 어떤 열을 찾고 내 첫 번째 항목 열은 포도를 표시해야하고 두 번째 항목 열은 바나나를 표시해야합니다.

Private Sub CommandButton1_Click() 
row_number = 0 
Do 
DoEvents 
row_number = row_number + 1 
item_in_review = Sheets("SHEET1").Range("A" & row_number) 
If item_in_review = TextBox1.Text Then 
    TextBox2.Text = Sheets("SHEET1").Range("B" & row_number) 
    'want to know which code I want to use in textbox3.text to find next repetation 
    TextBox3.Text = Sheets("SHEET1").Range("B" & row_number) 

    End If 
Loop Until item_in_review = "" 
End Sub 

Answer 1

이

는 Range.Find Range.FindNext 및 방법을 사용하여 달성 될 수있다.

Private Sub CommandButton1_Click() 
    Dim rSearch As Range 
    Dim rFound As Range 

    With Sheets("SHEET1") 
     Set rSearch = .Range("A1", .Range("A" & Rows.Count).End(xlUp)) 

     Set rFound = rSearch.Find(What:=TextBox1.Text, LookIn:=xlValues) 

     If rFound Is Nothing Then 
      TextBox2.Value = "" 
     Else 
      TextBox2.Value = rFound.Offset(0, 1).Value 

      Set rFound = rSearch.FindNext(rFound) 

      If rFound Is Nothing Then 
       TextBox3.Value = "" 
      Else 
       TextBox3.Value = rFound.Offset(0, 1).Value 
      End If 

     End If 
    End With 

End Sub 

코드도 약간 리팩터링 할 수 있습니다.

Private Sub CommandButton1_Click() 
    Dim row_number As Long 
    TextBox2.Value = "" 
    TextBox3.Value = "" 

    With Sheets("SHEET1") 
     Do 
      row_number = row_number + 1 
      item_in_review = .Range("A" & row_number) 

      If item_in_review = TextBox1.Text Then 
       If TextBox2.Text = "" Then 
        TextBox2.Text = .Range("B" & row_number) 
       Else 
        TextBox3.Text = .Range("B" & row_number) 
        Exit Do 
       End If 

      End If 
     Loop Until item_in_review = "" 
    End With 
End Sub