怎样使用VBA利用列表框查询成绩

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运行窗体，在窗体的文本框中输入要查询的人名，可以只输入姓。如想查“左冷禅”的成绩，可以输入“左”，也可以仅输入“禅”。本实例输入“岳”，表示查询所有姓“岳”的学员的成绩，结果如图