Создание пользовательских форм в Visual Basic for Applications. Любин А.Н. - 52 стр.

Private Sub CommandButton4_Click() 'УДАЛЕНИЕ ИЗ СПИСКА
Open "D:\Grup3" For Output As #1
dgr = ComboBox1.Text
MsgBox "          Группа -" & dgr & "." & _
vbLf & " Будет удалена из списка.", , _
" Программа: удалить       "
ku = k - 1
For i = 0 To ku
If dgr = Gr(i) Then
N=i
Gr(i) = ""
Exit For
End If
Next i
For i = N To ku - 1                         'СЖАТИЕ МАССИВА
Gr(i) = Gr(i + 1)
Next i
For i = 0 To ku - 1
Print #1, Gr(i)
Next i
Close #1
k=0
ComboBox1.Clear
Call UserForm_Initialize
End Sub


    Для удобства запуска программы можно организовать еѐ запуск
с рабочего листа Excel. Для этого надо на рабочем листе Excel соз-
дать кнопку, при нажатии которой происходило бы событие, свя-
занное с запуском процедур первой пользовательской формы User-
Form6. Процесс создание такой кнопки подробно рассмотрен в пре-
дыдущих примерах. В данном случае сама кнопка и процедура к
ней будут выглядеть следующим образом, смотри соответственно
рис. 55 и рис. 56. В процедуре сделано обращение к первой пользо-
вательской форме, имя которой UserForm4.

                                52