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

Question

您好，我想制作一個具有2個或3個文本框的表單，可以在其中輸入文本值，如果它們在1個單元格中匹配，則vba會搜索該值，例如，如果我在第一個文本框中輸入“ hello”，然后輸入在另一個文本框中，“世界”會在大廳列中搜索一個包含“世界你好”的范圍，然后將其復制粘貼到另一張紙上，也許有多個具有相同值的單元格，直到現在我都能做到這一點僅提供一個值，然后我嘗試將其更改為與我需要的wat匹配，但我無法在這里輸入wat：

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

實際上，這僅適用於查找僅包含我正在搜索的單詞的單元格（例如，如果我正在搜索“ Java”），並且有一個具有.net和java的單元格，則在復制過程中不考慮它，而我希望它找到我給它tyvm的搜索值的任何單元格

Answer 1

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

上面的IF語句看起來像這樣（尚未對其進行測試，但應該可以工作）

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

希望能幫助到你。