将数据导入列表框1.1创建一个表单的列表框

按Excel中的Alt+F11进入VBA接口，右键单击空白空间以插入表单。

1.2在工具箱中选择列表框控件，然后将大小拖到新创建的表单中的适当位置。

1.3在工具箱中选择命令按钮，然后将其拖入表单中的查询按钮中。

1.4将数据源（Sheet2）的数据添加到列表框。

1.4.1双击“查询”按钮，然后在按钮下输入以下代码：（下面的红色字体是代码注释）

私有sub commandbutton2_click（）

（获取数据源工作表数据的行数）

如果textbox1=\’\’，则sheet2.range（\’b1\’）=\’\’

listBox1.clear（清除列表框的内容）

ListBox1.columnWidths=\’120; 90; 150; 50; 50; 90; 50; 70; 70; 80\’（列表框的每一列的宽度）

ListBox1.ColumnCount=9（列表框中的列数）

ListBox1.Additem Sheet22.Cells（2，1）。值

listBox1.list（ListBox1.listCount -1，1）=Sheet2.Cells（2，2）.Value

ListBox1.list（ListBox1.listCount -1，2）=Sheet2.Cells（2，3）。值

listBox1.list（ListBox1.listCount -1，3）=Sheet2.Cells（2，4）。值

listBox1.list（ListBox1.listCount -1，4）=Sheet2.Cells（2，5）.Text

listBox1.list（ListBox1.listCount -1，5）=Sheet2。

listBox1.list（ListBox1.listCount -1，6）=Sheet2.Cells（2，7）。

listBox1.list（ListBox1.listCount -1，7）=Sheet2。

listBox1.list（ListBox1.listCount -1，8）=Sheet2。

（以上代码是将数据源的第二行添加到列表框的第二行）

对于i=3至a

如果sheet2.cells（i，10）=1

ListBox1.additem Sheet22.Cells（i，1）。值

listBox1.list（ListBox1.listCount -1，1）=Sheet2.Cells（i，2）。

ListBox1.list（ListBox1.listCount -1，2）=Sheet2.Cells（i，3）。

ListBox1.list（ListBox1.listCount -1，3）=Sheet2.Cells（i，4）。

ListBox1.list（ListBox1.listCount -1，4）=Sheet2.Cells（i，5）.Text

listBox1.list（ListBox1.listCount -1，5）=Sheet2.Cells（i，6）。

listBox1.list（ListBox1.listCount -1，6）=Sheet2.Cells（i，7）。

ListBox1.list（ListBox1.listCount -1，7）=Sheet2.Cells（i，8）。

ListBox1.list（ListBox1.listCount -1，8）=Sheet2.Cells（i，9）。

下一个

（以上代码分别将数据源的第三行添加到列表框的最后一行数据。）

1.5模糊查询：模糊查询主要确定材料编码是否包含通过搜索功能包含输入字符。如下所示，函数“=ifError的一般含义（if（search（$ b $ 1，[@材料编码））0,1,0），0），“在查询的辅助列中，是为了确定在查询框中输入内容后，材料编码列中的输入内容返回的位置。

1.6 sheet2。代码中的cells（i，10）=1确定材料编码中的输入字符是否存在。

1.7效果如下图所示，并自动显示包含“ 33”的材料。