---

' 7. Кнопка Выход
Private Sub Выход_Click()
    Unload Me
End Sub

' 8. Отображение данных при выборе фамилии в ListBox1
Private Sub ListBox1_Change()
    Dim i As Long
    i = ListBox1.ListIndex + 2 ' +2, так как данные начинаются со 2-й строки
    
    If i > 1 Then
        TextBox1.Text = Sheets("Список").Cells(i, 1).Value
        TextBox2.Text = Sheets("Список").Cells(i, 2).Value
        TextBox3.Text = Sheets("Список").Cells(i, 3).Value
        ListBox2.Value = Sheets("Список").Cells(i, 4).Value
    End If
End Sub

' 9. Кнопка Удалить
Private Sub Удалить_Click()
    Dim i As Long
    i = ListBox1.ListIndex + 2
    If i > 1 Then
        Rows(i).Delete
        ListBox1.RowSource = "Список!A2:A100" ' Обновляем список
    End If
End Sub

' 10. Сортировка по возрастанию
Private Sub СортировкаПоВозрастанию_Click()
    Sheets("Список").Range("A1:D100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

' 11. Сортировка по убыванию
Private Sub СортировкаПоУбыванию_Click()
    Sheets("Список").Range("A1:D100").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
End Sub