1

我是 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：地点）。

我想通过此操作添加另一个按钮，例如“搜索”：单击 > 询问唯一 ID > 它搜索输入的数据 > 如果找到某些内容，则使用信息填充文本框（SR 在 A:A 上的行）

在此处输入图像描述

4

1 回答 1

0

我假设您足够熟练地创建一个按钮并编写初始子项？另外，我假设您只有 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

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

于 2013-02-25T09:41:41.210 回答