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

Html 我需要从外部更新的文本框触发Application.WorksheetFunction.VLookup,html,vba,excel,Html,Vba,Excel,我有一个表格,可以从一个网页上更新。 其中一个条目丢失了,因此我使用文本框中的一个值来执行vlookup以获取丢失的信息并更新空的文本框。 没有一个事件方法会自动触发 Private Sub envelope_afterupdate() On Error Resume Next MsgBox ("test") name_env.text = Application.WorksheetFunction.VLookup(envelope.text, Worksheets("DATA_name

我有一个表格,可以从一个网页上更新。 其中一个条目丢失了,因此我使用文本框中的一个值来执行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
Private子信封\u afterupdate()
出错时继续下一步
MsgBox(“测试”)
name_env.text=Application.WorksheetFunction.VLookup(envelope.text,工作表(“数据名称”)。范围(“a1:b334”),2,False)
如果错误号为0,则
'MsgBox“currName not found”''可选,无需执行任何操作
如果结束
端接头

有什么建议吗

我只是把vlookup放在我的数据提取代码中

Form1.name_env=Application.WorksheetFunction.VLookup(Form1.envelope,工作表(“数据名称”)。范围(“a1:b334”),2,False)


Pete

你确定你的vlookup确实返回了一个值吗?是的,文本框工作得很好,但是我找到了一个简单的方法,通过将更新vlookup放在用于首先提取数据的代码中来实现。我不得不改变我对他们的称呼。