Запрос

Private Sub CommandButton1_Click()
Sheets(2).Range("A1:L20").Clear
KPIT2 = ListBox1.Text
If KPIT2 = "" Then
Label4.Visible = True
GoTo 12
End If
Label4.Visible = False
i = 2: k = 0
Sheets("Лист2").Activate
Cells(1, 1) = "№"
 Cells(1, 2) = "ФИО"
  Cells(1, 3) = "Стипендия"
   Cells(1, 4) = "Размер"
Sheets("Лист1").Activate
Do While Cells(i, 1) > 0
     Ном = Cells(i, 1)
    ФИО = Cells(i, 2)
   Стип = Cells(i, 9)
  Разм = Cells(i, 10)
If Стип = KPIT2 Then
Sheets("Лист2").Activate
k = k + 1: Cells(k + 1, 1) = Ном
Cells(k + 1, 2) = ФИО
 Cells(k + 1, 3) = Стип
  Cells(k + 1, 4) = Разм
End If
i = i + 1
Sheets("Лист1").Activate
Loop
Sheets("Лист2").Activate
  Cells(k + 3, 1) = "kоличество"
   Cells(k + 3, 2) = k
12:
End Sub
 
Private Sub CommandButton2_Click()
ListBox1.Clear
i = 2
If TextBox2 = "" Then
Label5.Visible = True
GoTo 12
End If
Label5.Visible = False
Bsr = CSng(TextBox2)
Sheets("Лист1").Activate
Do While Cells(i, 1) > 0
If ((Cells(i, 6) + Cells(i, 7) + Cells(i, 8)) / 3) >= Bsr Then
Cells(i, 9) = "A"
Else: Cells(i, 9) = ""
End If: i = i + 1: Loop
i = 2
Do While Cells(i, 1) > 0
Prizn = 0
For j = 2 To i - 1
If Cells(i, 9) = Cells(j, 9) Then Prizn = 1
Next j
If Prizn = 0 Then ListBox1.AddItem Cells(i, 9)
i = i + 1: Loop
12:
End Sub
 
Private Sub CommandButton3_Click()
End
End Sub
 
Private Sub Label1_Click()
 
End Sub