通过搜索唯一ID来提取数据

Question

我是VBA的新手。我只是设法创建我的表单并填充excel。 我想知道是否有办法创建一个新的按钮，如果它找到唯一的ID就会提取信息。

例如：

Unique ID   Name     Place
1         John Doe   X
2         Jane Doe   Y
3         Tim Doe    Z

例如，在表单中，在“添加”旁边（在工作表中获取数据）我希望在此处“搜索：”我会输入唯一ID并将所有其他单元格填充信息

如果我应该提供更多信息，我很抱歉。我是VBA的新手。如果需要，我可以复制+粘贴代码。

如果我添加信息并点击“添加此部分”，则会在行中的Excel中自动完成（A1：唯一ID; B1：名称; C1：地点）。

我想通过此操作添加“搜索”之类的其他按钮：点击＆gt;询问唯一ID＆gt;它搜索输入的数据＆gt;如果它找到一些填充带有信息的文本框（SR在A：A上的行）

Answer 1

我假设你足够精通创建一个按钮并写下初始子？另外，我假设您只有1列具有唯一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

如果您需要我可以提供的更多信息，但这会找到单元格，并为您提供更改文本框值的空间。