Excel的combo box下拉选项如何实现关键字筛选

我做了user form来录入订单内容, 当中有combo box控件, 下拉显示产品列表。 因为产品很多,我希望录入订单时能根据产品全称当中的个别字眼,即关键字,通过在combo box 敲入一个关键字，点击combo box的下拉按钮，就会出现仅包含关键字的候选产品名称，从而使下拉列表大大缩短，便于查找。

combo box自身是可以根据手动输入某名称的首字符来搜索近似的选项名从而自动完成候选项的输入，并且这时按下下拉按钮就能得到以这个字符开头的选项。现在主要就是想使用关键字也能得到同样的效果。

要怎样实现呢？请帮忙哦，谢谢了！

我在http://www.ozgrid.com/forum/showthread.php?t=59306看到有人提问类似的问题，大家可以参考那里的解答

Private Sub CommandButton1_Click()



Dim lCount As Long



Dim rFoundCell As Range



Dim lLoop As Long



Dim wSheet As Worksheet



Dim StrFind As String







Set wSheet = Worksheets("Food_List")



Set rFoundCell = wSheet.Range("A1")



StrFind = TB5.Value



lLoop = WorksheetFunction.CountIf(wSheet.Columns(1), "*" & StrFind & "*")







If lLoop > 0 Then ComboBox1.RowSource = vbNullString







For lCount = 1 To lLoop



Set rFoundCell = wSheet.Columns(1).Find(What:=StrFind, After:=rFoundCell, _



LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _



SearchDirection:=xlNext, MatchCase:=False)



ComboBox1.AddItem rFoundCell



Next lCount



End Sub