通过search唯一的ID拉数据

我是VBA新手。 我只是设法创build我的表单并填充excel。 我想知道是否有一种方法来创build一个新的button，如果它find唯一的ID会拉动信息。

例如：

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

因此，例如，在窗体中，“添加”（它获取工作表中的数据）旁边，我想要在这里“search：”我会input唯一ID和所有其他单元格填充信息。

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

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

我想添加另一个button，如“search”与此操作：单击>要求唯一ID>它search数据types>如果它发现东西填充信息的文本框（SR是在A：A行）

Answer 1

我假设你足够精通创build一个button，并写入最初的子？ 另外，我假设你只有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 

如果你需要更多的信息，我可以提供，但是这会find单元格，并给你空间来改变你的文本框的值。