是否可以创建一个可以使用多个变量来运行搜索Excel工作表中的行的用户窗体

Question

我正在为我的团队创建一个Userform界面，我们想让我们的数据捕获更加统一和简单，我们希望通过运行搜索来消除重复条目之一，目前我只搜索发票编号，这是有效的，但是我们要求我们包含乘法变量，我的代码如下所以我的界面看起来像：

我的发票查询代码是

Public Sub Search1()
row_Number = 0
Do
DoEvents
row_Number = row_Number + 1
Item_in_Review1 = Sheets("Source").Range("E" & row_Number)
If Item_in_Review = Userform1.TextBox1.Text Then

> /*send relevant data to Userform3*/

UserForm3.TextBox5 = Sheets("Source").Range("B" & row_Number)
UserForm3.TextBox1 = Sheets("Source").Range("C" & row_Number)
UserForm3.TextBox2 = Sheets("Source").Range("D" & row_Number)
UserForm3.TextBox3 = Sheets("Source").Range("E" & row_Number)
UserForm3.TextBox6 = Sheets("Source").Range("F" & row_Number)
UserForm3.TextBox7 = Sheets("Source").Range("G" & row_Number)
UserForm3.TextBox8 = Sheets("Source").Range("H" & row_Number)
UserForm3.TextBox9 = Sheets("Source").Range("I" & row_Number)
UserForm3.TextBox4 = Sheets("Source").Range("J" & row_Number)
End If

Loop Until Item_in_Review = "" 

End Sub

这样可行，所以我决定尝试添加其他参数，如下所示：

Public Sub Search1()
row_Number = 0
Do
DoEvents
row_Number = row_Number + 1
Item_in_Review1 = Sheets("Source").Range("E" & row_Number)
Item_in_Review2 = Sheets("Source").Range("B" & row_Number)
Item_in_Review3 = Sheets("Source").Range("I" & row_Number)
If Item_in_Review = Userform1.TextBox1.Text And Item_in_Review2 = Userform1.ComboBox1.Text And Item_in_Review3 = Userform1.ComboBox2.Text Then

UserForm3.TextBox5 = Sheets("Source").Range("B" & row_Number)
UserForm3.TextBox1 = Sheets("Source").Range("C" & row_Number)
UserForm3.TextBox2 = Sheets("Source").Range("D" & row_Number)
UserForm3.TextBox3 = Sheets("Source").Range("E" & row_Number)
UserForm3.TextBox6 = Sheets("Source").Range("F" & row_Number)
UserForm3.TextBox7 = Sheets("Source").Range("G" & row_Number)
UserForm3.TextBox8 = Sheets("Source").Range("H" & row_Number)
UserForm3.TextBox9 = Sheets("Source").Range("I" & row_Number)
UserForm3.TextBox4 = Sheets("Source").Range("J" & row_Number)
End If

Loop Until Item_in_Review = "" And Item_in_Review2 = "" And Item_in_Review3 = ""

End Sub

但现在我得到了一个不匹配的错误，我哪里错了？ 想法是，如果Userform1.TextBox1.Text + Userform1.ComboBox1.Text + Userform1.ComboBox2.Text =范围B，E，我分别表示它将使用所有相关数据填充下一个userform。 有人可以帮忙吗？