---

Sub auto_open( UserForml.Show
End Sub
€
Чтобы список фамилий и курсов сразу был отображен необходимо записать
следующий код:
Private Sub UserForm Initialize( ListBox2.RowSource = "Курсыlаl:a4"
ListBox1. RowSource = "студенты!2:30"
End Sub
Чтобы при нажатии на фамилию в окне ListBox] в окнах TextBox1, TextBox2,
TextBox3, ListBox2 отображались соответствующие значения необходимо набрать код:
Private Sub ListBoxl
_ClickO
Sheets("имя листа"). select
ind = UserForm1.ListBox1.Listindex
UserForm I.TextBox1.Text = Cells(2 + ind, 1)
UserForml. TextBox2. Text = Cells(2 + ind, 2)
UserForm1.TextBox3.Text = Cells(2 + ind, 3)
UserForml.ListBox2.Text = Cells(2 + ind, 4)
ListBox1.RowSource = "имя листа!диалозон"
End Sub