Excel VBA：根据在文本框中设置的值在列表框中search值

我正在尝试编写一个searchbutton的代码，该searchbutton用于search基于文本框中特定input集的列表框。 search到的值始终是数字，列表框包含来自单个列的值。 我写的代码可以在下面find，但我不明白为什么它不起作用。

传说：

• SearchButton：一个button，点击应该启动search
• SearchBox：将包含search值的文本框
• AvailableNumberList：包含数据的列表框

谢谢你的帮助 ：）

Private Sub SearchButton_Click() Dim SearchCriteria, i, n As Double SearchCriteria = Me.SearchBox.Value n = AvailableNumberList.ListCount For i = 0 To n - 1 If SearchCriteria = i Then AvailableNumberList.ListIndex = i End If Next i End Sub 

Answer 1

这是你正在尝试？

 'If SearchCriteria = i Then If AvailableNumberList.List(i) = SearchCriteria Then 

也使用Exit For一旦find一个匹配:)