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