Excel VBA：基於文本框中設置的值在列表框中搜索值

Question

我正在嘗試編寫一個搜索按鈕的代碼，該搜索按鈕用於搜索基於文本框中特定輸入集的列表框。 搜索到的值始終是數字，列表框包含單列中的值。 我寫的代碼可以在下面找到，但我不明白爲什麼它不起作用。

注：

• 搜索按鈕：它一旦點擊被認爲開始搜索
• 搜索盒的Button：其中將包含搜索值
• 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一旦找到匹配:)