我需要从外部更新的文本框中触发Application.WorksheetFunction.VLookup

Question

我有一个从网页报废中更新的表单。 其中一个条目丢失，因此我使用文本框中的值来执行vlookup以获取缺少的信息并更新空文本框。 没有任何事件方法自动触发！

Private Sub envelope_afterupdate()
On Error Resume Next

MsgBox ("test")
name_env.text = Application.WorksheetFunction.VLookup(envelope.text,    Worksheets("DATA_name").Range("a1:b334"), 2, False)
If Err.Number <> 0 Then

  '  MsgBox "currName not found" ''optional, no need to do anything
End If

End Sub

有什么建议吗？

Answer 1

我只是将vlookup放入我的数据提取代码中！

Form1.name_env = Application.WorksheetFunction.VLookup（form1.envelope，Worksheets（“DATA_name”）。Range（“a1：b334”），2，False）

皮特