VBA Excel代码需要搜索打开的工作表并通过用户窗体将结果打印到新工作表中

Question

我是VBA的新手，但我渴望学习！ 我一直在不懈地寻找这个问题的答案，但收效甚微。

当前，我已经创建了一个命令按钮来播放具有针对大型数据库的多个搜索条件的用户窗体。 用户窗体搜索打开的工作表，并根据用户输入的信息（姓名，类型，电子邮件，来源，捐助者信息，最后联系人等）填充其余字段。 这基本上是用户友好的高级查找。

我需要能够搜索任何条件，通常会产生多个结果，并将这些多个结果打印/粘贴到新的工作表中。 理想情况下，我想在当前用户窗体上包括一个用于“搜索和查看结果”的命令按钮，因为我是为一些对技术不太友好的人创建的。

如果您有任何可以输入到新命令按钮的代码，我将放置在当前用户窗体上以完成此任务，我将非常感谢！

如果您还有其他建议，我也完全同意。 我什至考虑过在打开的工作簿上有一个用于查找的按钮以及一个用于搜索和查看结果的按钮，但是我仍然需要所有的搜索条件。

非常感谢！

目前，我在用户表单中有以下代码：

 Private Sub CommandButton1_Click()
 row_number = 0
 Do
 DoEvents
 row_number = row_number + 1
 item_in_review = Sheets("ULEC-Master-Consolidated.csv").Range("F" & row_number)
If item_in_review = TextBox1.Text Then
    TextBox2.Text = Sheets("ULEC-Master-Consolidated.csv").Range("H" & row_number)
    TextBox3.Text = Sheets("ULEC-Master-Consolidated.csv").Range("J" & row_number)
    TextBox4.Text = Sheets("ULEC-Master-Consolidated.csv").Range("N" & row_number)
    TextBox5.Text = Sheets("ULEC-Master-Consolidated.csv").Range("P" & row_number)
    TextBox6.Text = Sheets("ULEC-Master-Consolidated.csv").Range("Q" & row_number)
    TextBox7.Text = Sheets("ULEC-Master-Consolidated.csv").Range("R" & row_number)
    TextBox8.Text = Sheets("ULEC-Master-Consolidated.csv").Range("S" & row_number)
    ComboBox1.Text = Sheets("ULEC-Master-Consolidated.csv").Range("A" & row_number)
    ComboBox2.Text = Sheets("ULEC-Master-Consolidated.csv").Range("B" & row_number)
    ComboBox3.Text = Sheets("ULEC-Master-Consolidated.csv").Range("C" & row_number)
    TextBox9.Text = Sheets("ULEC-Master-Consolidated.csv").Range("D" & row_number)
    TextBox10.Text = Sheets("ULEC-Master-Consolidated.csv").Range("Y" & row_number)
    TextBox11.Text = Sheets("ULEC-Master-Consolidated.csv").Range("T" & row_number)
    TextBox12.Text = Sheets("ULEC-Master-Consolidated.csv").Range("U" & row_number)
    TextBox13.Text = Sheets("ULEC-Master-Consolidated.csv").Range("V" & row_number)
    TextBox14.Text = Sheets("ULEC-Master-Consolidated.csv").Range("W" & row_number)
    TextBox15.Text = Sheets("ULEC-Master-Consolidated.csv").Range("X" & row_number)
    End If

 Loop Until item_in_review = ""

 End Sub

*我为包含的每个文本框和组合框重复此代码。 此外，我有一个“清除表单”按钮。

Answer 1

对于您要内置的搜索功能，您可以使用我在Ozgrid上找到的搜索功能，并每天在自己的编码中使用。 由于此功能是从原始帖子更新的，因此我已标记了帖子的第2页。 希望这可以帮助：

http://www.ozgrid.com/forum/showthread.php?t=27240&page=2