在“文本框”中输入文本的每个字符时，如何更新“列表框”？

问题描述

我有一个由文本框驱动的列表框。目前，如果我输入“设施编号”；例如“ 3”，然后是“ 0”，我希望列表包含所有以“ 3 ?????”开头的功能，然后输入第二个字符“ 30 ???？”
我不想看到设施编号；例如4305，其中包含字符串“ 30”，这是当前情况。
以下是我准备的效果很好的“格式化代码”；除了上面的para2。请原谅我没有弄清楚如何正确插入代码；我单击Ctrl-K，然后从vba编辑器复制并粘贴我的代码-但它永远不会像在编辑器中那样显示。

私人Sub txb_EnterFacNum_Change（）用户在文本框中输入设施编号
```
sFacility = txb_EnterFacNum.Text     

PopulateListBox       'main list Box for user facility selection
```
结束子

Private Sub PopulateListBox（）'设施的主列表框昏暗的借款人尽可能长作为工作表昏暗

 Set ws = Sheets("CFOA_CURRENT")
 lrow = ws.Range("C" & Rows.Count).End(xlUp).row
 
 With lsb_ShowFacRecords
      .ColumnCount = 4
      .ColumnWidths = "40pt;70pt;50pt,100pt"
      .Clear
      
      For l = 8 To lrow        'data begins at row 8 in source table
           
           If Not InStr(1,ws.Range("B" & l),sCategory,vbTextCompare) = 0 Then        'column is TYPE
                If Not InStr(1,ws.Range("C" & l),sFacility,vbTextCompare) = 0 Then       'column is FAC_NUM
                     .AddItem
                     .List(.ListCount - 1,0) = ws.Range("A" & l)      'ID
                     .List(.ListCount - 1,1) = ws.Range("C" & l)      'Facility Number
                     .List(.ListCount - 1,2) = ws.Range("E" & l)      'RPUID
                     .List(.ListCount - 1,3) = ws.Range("DK" & l)   'Main Usage Type (RPA Predominant Design Use CATCODE)
                End If
           End If
           
      Next
      
 End With

结束子

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

listbox textbox textbox