怎样使用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 With
End Sub

5、使用快捷键F5运行窗体，在窗体的文本框中输入要查询的人名，可以只输入姓。如想查“左冷禅”的成绩，可以输入“左”，也可以仅输入“禅”。本实例输入“岳”，表示查询所有姓“岳”的学员的成绩，结果如图