Forms 通过搜索唯一ID提取数据
我是VBA新手。我刚刚创建了我的表单并填充了excel。 我想知道是否有一种方法可以创建一个新的按钮,如果它找到唯一的ID,就会拉信息 例如:Forms 通过搜索唯一ID提取数据,forms,excel,vba,Forms,Excel,Vba,我是VBA新手。我刚刚创建了我的表单并填充了excel。 我想知道是否有一种方法可以创建一个新的按钮,如果它找到唯一的ID,就会拉信息 例如: Unique ID Name Place 1 John Doe X 2 Jane Doe Y 3 Tim Doe Z 例如,在表单中,在“Add”(在工作表中获取数据)旁边,我希望有“Search for:”在这里,我将键入唯一的ID,并用信息填充所有其他单元格 如果我应该提供更
Unique ID Name Place
1 John Doe X
2 Jane Doe Y
3 Tim Doe Z
例如,在表单中,在“Add”(在工作表中获取数据)旁边,我希望有“Search for:”在这里,我将键入唯一的ID,并用信息填充所有其他单元格
如果我应该提供更多信息,我很抱歉。我是VBA新手。如果需要,我可以复制并粘贴代码
如果我添加信息并点击“添加此部分”,它会在excel中自动完成对行的操作(A1:唯一ID;B1:名称;C1:位置)
我想在这个操作中添加另一个类似“搜索”的按钮:单击>询问唯一ID>它搜索键入的数据>如果它找到了什么用信息填充文本框(SR位于A:A上的行)
我假设您能够熟练地创建一个按钮并编写初始子按钮?我还假设只有一列具有唯一id,比如A列
Sub Find_Id()
Dim rng1 As Range
Dim strSearch As String
strSearch = inputbox("Enter a Unique Id", "User Input")
If strSearch = vbNullString then exit sub
Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
'set text box values using rng1.offset(0, column offset).value
TbxAddStep.value = rng1.offset(0, 1).value
Else
'clear texboxes
End if
End Sub
如果您需要更多信息,我可以提供,但这将找到单元格并给您空间更改文本框值。最好显示您的代码,最好是一个简洁的示例,显示您正在尝试执行的操作。您不应该将标签放在标题中(如果它们不是问题的一部分)@Danielamanasco更正,谢谢!对不起,标签错了;这是我在这里的第一篇文章。看来我没有很好地阅读规则:)顺便说一句,欢迎光临。如上所述,尝试包含一小段代码,说明您正在尝试什么,以及它在哪里不起作用。人们(我)倾向于在阅读长段代码时感到无聊或困惑,然后转向其他内容。