在用户输入上从一张纸到另一张纸上获取数据答案

【问题标题】：Getting data from one sheet to another on the user input在用户输入上从一张纸到另一张纸上获取数据
【发布时间】：2017-08-29 19:33:26
【问题描述】：

我有一个 Excel 工作簿，在那个工作簿中我有许多工作表。
一个名为main，另一张名为data，其中包含所有信息。
data 表在同一单元格中包含人员姓名和分配的编号。

例如：A2 将具有：123 Chris Smith

我想要实现的是让用户开始在主表中的任何位置输入数字，它会扫描数据表并完成其余数据。
因此，用户将键入 123，然后宏将填写其余的 123 Chris Smith。

【问题讨论】：

这是可行的，只要触发 WorkSheet_Change 事件就进行搜索。但是，我怀疑这方面的表现可能很差......
您是否考虑过使用 AutoComplete 数据验证？ here 是一个可能有帮助的链接。不确定它是否是您想要的，因为它允许“完成”单个单元格，并且不允许将其他值放入其他单元格中，但是您可以使用 Lookup 函数来做到这一点。

标签： vba excel

【解决方案1】：

如前所述，您可以使用Worksheet_Change() 事件。为了向您展示它是如何工作的，请将此代码放在编辑器的main 表中。现在键入任何与您的数据列表匹配的数字，然后单击单元格外，它现在将完成。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sht As Worksheet
Dim rng As Range
Dim val As Variant: val = Target.Value

Set sht = Worksheets("Data")

If Not IsError(val) And Not IsArray(val) Then
    If val <> "" Then
        Set rng = sht.Range("A:A").Find(val & "*", LookAt:=xlWhole)
        If Not rng Is Nothing Then
            Application.EnableEvents = False
            Target.Value = rng.Value
            Application.EnableEvents = True
        End If
    End If
End If
End Sub

【讨论】：

对不起，当我删除单元格时很痛苦我在其中输入了数字出现以下错误“运行时错误13：类型不匹配”它突出显示这部分代码@987654324 @
试试这个版本 :)
它仍然抛出同样的错误，但只有当我使用删除而不是退格时。感谢您的帮助。
我现在能够重新创建错误。谢谢你发现它。发生类型不匹配是因为它返回了一个数组，而不是它应该可以正常工作，并且还可以防止一次复制和粘贴多个数据。不过可以对其进行编辑以处理数组。
你可以说Set rng = sht.Range("A:A").Find(val & "*", LookAt:=xlWhole)，它会匹配整个字符串，所以你的输入0123只会匹配一个以0123 *开头的字符串。但是您需要将单元格设置为文本格式，否则它将删除 0 并且不会匹配。