Visual Basic for Applications. Практика. Нагина Е.К - 63 стр.

      .Cells(НомерСтроки,       4).Value   =   ""
      .Cells(НомерСтроки,       5).Value   =   ""
      .Cells(НомерСтроки,       6).Value   =   ""
      .Cells(НомерСтроки,       7).Value   =   ""
      .Cells(НомерСтроки,       8).Value   =   ""
   End With
End Sub

7. В процедуру обработки события Click кнопки «Завершить работу»
   введите следующий код:

Private Sub QuitButton_Click()
   Sheets("Кредиты").Activate
   End
End Sub

8. В окне проекта редактора VB выберите лист «ЭтаКнига» («ThisWork-
   book») и введите следующую процедуру:

Private Sub Workbook_WindowActivate(ByVal Wn _
      As Window)
   Dim СтрокаМеню As CommandBar
   Dim Форма As CommandBarPopup
   Dim Вывод As CommandBarButton
   'Создаем строку меню
   Set СтрокаМеню = Application.CommandBars.Add _
        ("ФОРМА", msoBarTop, True, True)
   СтрокаМеню.Visible = True
   'Создаем подменю
   Set Форма = СтрокаМеню.Controls.Add _
        (msoControlPopup)
   With Форма
      .Caption = "&Вывести форму"
   End With
   Set Вывод = Форма.Controls.Add _
        (msoControlButton)
   With Вывод
      .Caption = "Вывести форму"
      'Назначаем действие команде подменю – запуск
      макроса Меню
      .OnAction = "Меню"
   End With
End Sub

                                63