Vlookup与用户窗体

Question

我正在尝试通过3个文本框配置Userform研究，但我无法使其正常工作，也不知道为什么。

这是我的代码：

Private Sub TextBox1_AfterUpdate()
On Error GoTo 1
If WorksheetFunction.CountIf(Sheets("Feuil1").Range("A:A"), Me.TextBox1.Value) = 0 Then

 MsgBox "introuvable"
End If
With Me
 .TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Feuil1.Range("A:E"), 2, 0)
End With
1
End Sub

希望获得您的帮助

谢谢

Answer 1

丢弃 PXSelectJoin<SOShipmentAddress, InnerJoin<SOInvoice, On<SOInvoice.refNbr, Equal<Current<ARInvoice.refNbr>>>>, Where<SOShipmentAddress.addressID, Equal<SOInvoice.shipAddressID>>> ShipToAddress; ，如果没有匹配项，则不会出现运行时错误：

WorksheetFunction