Forms 通过搜索唯一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,并用信息填充所有其他单元格 如果我应该提供更

我是VBA新手。我刚刚创建了我的表单并填充了excel。 我想知道是否有一种方法可以创建一个新的按钮,如果它找到唯一的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更正,谢谢!对不起,标签错了;这是我在这里的第一篇文章。看来我没有很好地阅读规则:)顺便说一句,欢迎光临。如上所述,尝试包含一小段代码,说明您正在尝试什么,以及它在哪里不起作用。人们(我)倾向于在阅读长段代码时感到无聊或困惑,然后转向其他内容。