使用vba制作学生管理系统，功能 增删改查，使用按钮

您好！VBA是一种编程语言，可以在Excel、Access、Word等Microsoft Office软件中使用。下面是一个简单的学生管理系统示例，包括增删改查功能，使用按钮实现。

首先，在Excel中创建一个新工作簿，按下Alt + F11打开VBA编辑器。

在VBA编辑器中，插入一个用户窗体。在菜单栏中点击【插入】-【用户窗体】，选择需要的窗体类型。

在用户窗体中添加需要的控件，例如文本框、列表框、按钮等。这里我们添加4个文本框（用于输入学生信息）、4个标签（用于显示学生信息）、1个列表框（用于显示所有学生信息）、4个按钮（用于实现增删改查功能）。

接下来，我们需要编写VBA代码来实现学生管理系统的功能。在VBA编辑器中，双击窗体中的每个控件，添加相应的事件处理程序。

在窗体加载时，我们需要从Excel表格中读取所有学生的信息，并将其显示在列表框中。在窗体的【加载】事件中添加以下代码：

Private Sub UserForm_Initialize()
    '读取学生信息
    Dim i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
        ListBox1.AddItem Range("A" & i).Value
    Next i
End Sub

在添加学生信息时，我们需要将学生信息添加到Excel表格中，并更新列表框的显示。在【添加】按钮的【单击】事件中添加以下代码：

Private Sub CommandButton1_Click()
    '添加学生信息
    Dim i As Integer
    i = Range("A65536").End(xlUp).Row + 1
    Range("A" & i).Value = TextBox1.Value
    Range("B" & i).Value = TextBox2.Value
    Range("C" & i).Value = TextBox3.Value
    Range("D" & i).Value = TextBox4.Value
    
    '更新列表框
    ListBox1.AddItem Range("A" & i).Value
End Sub

在删除学生信息时，我们需要从Excel表格中删除该学生信息，并更新列表框的显示。在【删除】按钮的【单击】事件中添加以下代码：

Private Sub CommandButton2_Click()
    '删除学生信息
    Dim i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
        If Range("A" & i).Value = ListBox1.Value Then
            Range("A" & i).EntireRow.Delete
            Exit For
        End If
    Next i
    
    '更新列表框
    ListBox1.Clear
    For i = 2 To Range("A65536").End(xlUp).Row
        ListBox1.AddItem Range("A" & i).Value
    Next i
End Sub

在修改学生信息时，我们需要将修改后的学生信息更新到Excel表格中，并更新列表框的显示。在【修改】按钮的【单击】事件中添加以下代码：

Private Sub CommandButton3_Click()
    '修改学生信息
    Dim i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
        If Range("A" & i).Value = ListBox1.Value Then
            Range("B" & i).Value = TextBox2.Value
            Range("C" & i).Value = TextBox3.Value
            Range("D" & i).Value = TextBox4.Value
            Exit For
        End If
    Next i
    
    '更新列表框
    ListBox1.Clear
    For i = 2 To Range("A65536").End(xlUp).Row
        ListBox1.AddItem Range("A" & i).Value
    Next i
End Sub

在查询学生信息时，我们需要根据学生姓名在Excel表格中查找该学生信息，并将其显示在标签中。在【查询】按钮的【单击】事件中添加以下代码：

Private Sub CommandButton4_Click()
    '查询学生信息
    Dim i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
        If Range("A" & i).Value = TextBox1.Value Then
            Label2.Caption = Range("B" & i).Value
            Label3.Caption = Range("C" & i).Value
            Label4.Caption = Range("D" & i).Value
            Exit For
        End If
    Next i
End Sub

最后，在菜单栏中点击【文件】-【保存】，保存VBA代码和Excel表格。

这样，一个简单的学生管理系统就完成了。您可以根据需要修改控件的样式和布局，以及完善系统的功能和界面。