Search 搜索打开的工作表并通过用户表单将结果打印到新工作表所需的VBA Excel代码
我是VBA新手,但我渴望学习!我不知疲倦地寻找这个问题的答案,但收效甚微 目前,我已经创建了一个命令按钮来播放一个userform,它对一个大型数据库有多个搜索条件。userform搜索打开的工作表,并根据用户输入的信息(姓名、类型、电子邮件、来源、捐赠者信息、上次联系人等)填充其余字段。这基本上是一个用户友好的高级查找 我需要能够搜索任何条件,通常会生成多个结果,并将这些多个结果打印/粘贴到新的工作表中。理想情况下,我希望在当前用户表单中包含一个用于“搜索和查看结果”的命令按钮,因为我是为一些非常不懂技术的人创建这个按钮的 如果你们有一个代码,我可以输入到一个新的命令按钮,我将在当前的用户表单上完成这项任务,我将不胜感激 如果你有其他建议,我也完全愿意接受。我甚至考虑在打开的工作簿上有一个查找按钮和一个搜索和查看结果按钮,但我仍然需要所有搜索条件 非常感谢 目前,我在userform中有以下代码:Search 搜索打开的工作表并通过用户表单将结果打印到新工作表所需的VBA Excel代码,search,excel,userform,vba,Search,Excel,Userform,Vba,我是VBA新手,但我渴望学习!我不知疲倦地寻找这个问题的答案,但收效甚微 目前,我已经创建了一个命令按钮来播放一个userform,它对一个大型数据库有多个搜索条件。userform搜索打开的工作表,并根据用户输入的信息(姓名、类型、电子邮件、来源、捐赠者信息、上次联系人等)填充其余字段。这基本上是一个用户友好的高级查找 我需要能够搜索任何条件,通常会生成多个结果,并将这些多个结果打印/粘贴到新的工作表中。理想情况下,我希望在当前用户表单中包含一个用于“搜索和查看结果”的命令按钮,因为我是为一些
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
*我对包含的每个文本框和组合框重复此代码。此外,我还有一个“清除表单”按钮。对于要内置的搜索功能,您可以利用我在Ozgrid上找到的搜索功能,并在我自己的代码中每天使用。我已经标记了第2页的职位,因为功能是从原来的职位更新。希望这有助于:
您现有的宏是什么样子的?@admdraw我刚刚输入了一些宏代码。让我知道还有什么可能有用!看了这张照片后,我觉得不对劲。我创建了命令按钮并尝试更改语法以匹配我的工作表,但没有成功。也许我不知道足够的代码。还有其他建议吗?这在Excel VBA中是否可行?