Excel用戶窗體VBA VLOOKUP

Question

我正在創建一個用戶窗體，其中基於一個名為“ ContractsList”的項目的下拉列表，我希望使用Vlookup公式在“ TextBox 1”中返回文本數據。

我收到一條錯誤消息，提示“運行時錯誤'1004'：無法獲取worksheetfunction類的Vlookup屬性。

不知道我在做什么錯，如果有人可以發現錯誤，這是我的代碼。

Private Sub ContractsList_AfterUpdate()

If WorksheetFunction.CountIf(Sheet2.Range("A:A"),Me.ContractsList.Value) = 0 Then
MsgBox "This contract is not on the list"
Me.ContractsList.Value = ""
Exit Sub

End If
'Lookup values based on first control
With Me

.TextBox1 = Application.WorksheetFunction.VLookup(Me.TextBox1, ("B5:B72"), 2, 0)

End With
End Sub

Answer 1

終於讓它工作如下：

Private Sub ContractsList_AfterUpdate()

If WorksheetFunction.CountIf(Sheet2.Range("A:A"), Me.ContractsList.Value) = 0 Then
MsgBox "This contract is not on the list"
Me.ContractsList.Value = ""
Exit Sub

End If
'Lookup values based on first control
With Me

.TextBox1 = Application.WorksheetFunction.VLookup(Me.ContractsList, Sheet2.Range("A5:E72"), 2, 0)

End With
End Sub

我只需要添加“ Sheet2.Range（“ A5：E75”）

謝謝大家的幫助。