VBA for excel問題：如何讓VBA搜索範圍內的多個文本？

Question

你好我想做一個有2或3個文本框，我可以在其中輸入文本值的表單，如果他們在1單元格匹配，如果我在第一個文本框中輸入「你好」，vba搜索這個值，然後我在另一個文本框中輸入「世界」，它在大廳列表中搜索範圍內有「hello world」的範圍，然後將其粘貼到另一個表單中，並且可能有多個單元格具有相同的值，直到現在我能夠這樣做的一個值而已，然後我試圖改變它笏我需要匹配，但我不能在這裏是笏我在：

Private Sub CommandButton1_Click() 

Dim rng As range 

For Each rng In Worksheets("sheet1").range("a:a") 
If rng.Value = TextBox1 Then 
rng.EntireRow.Select 
Selection.Copy Destination:=Worksheets("Sheet2").range("A" & Worksheets("Sheet2").range("A65536").End(xlUp).Row + 1) 
End If 
Next rng 
End Sub 

和actualy這個只適用於尋找細胞，只有有一句話我我正在搜索每個例子，如果我搜索「Java」，並有一個單元格.net和Java它不con con sider它在複製過程中，我希望它找到任何單元格與我給它的搜索值 tyvm

Answer 1

我不知道我是否完全得到您的問題。但是如果你想知道一個值是否在一個單元格中而另一個值。你需要使用InStr。

上述if語句看起來像這樣（沒有測試，但應該工作）

If InStr(rng.Value, TextBox1) > 0 and InStr(rng.Value, TextBox2) > 0 then 

希望它能幫助。