Электронные таблицы. Салмин А.А. - 101 стр.

   3) Для задания дальнейших действий после нажатия на
соответствующую кнопку:
   vbOk, vbCancel, vbAbort, vbRetry, vbIgnore, vbYes,
vbNO.

   Пример процедуры 1:
   Private Sub Пример_1()
   y = MsgBox("Закрыть окно", vbQuestion            +
vbYesNoCancel, "Сообщение Windows")
   End Sub

   Код процедуры 1 в VBA и результат выполнения
программы представлен на рис. 6.5.




                Рис. 6.5. Пример процедуры 1

  Пример процедуры 2:
  Sub Привет()
  y = MsgBox("Закрыть окно", vbQuestion +
vbYesNoCancel, "Сообщение Windows")
     If      y    =      vbYes       Then   MsgBox
     ("VVVVVVVVVVVVVVVVVVVV") Else
     If y = vbNo Then ActiveCell = "Привет"
  End Sub

  Код процедуры 2 в VBA и результат выполнения
программы представлен на рис. 6.6.



                                                   101