1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub CommandButton1_Click() With ListBox1 .MatchEntry=fmMatchEntryComplete .ListStyle=fmListStyleOption '添加前缀选择框 Dim cell As Range .Clear For Each cell In Range(Range("A1:A11"), Range("C1:C11")) If Me.TextBox1.Text <> "" Then If cell Like "*" & Me.TextBox1.Text & "*" Then .AddItem cell & "---" & cell.Offset(0, 1) End If Else MsgBox "未输入查询号码！", 64, "警告" Exit Sub End If Next End WithEnd Sub
5、使用快捷键F5运行窗体，在窗体的文本框中输入要查询的人名，可以只输入姓。如想查“左冷禅”的成绩，可以输入“左”，也可以仅输入“禅”。本实例输入“岳”，表示查询所有姓“岳”的学员的成绩，结果如图
