Работа с операторами условного перехода

Подготовка:

1. Создайте новую книгу Excel и сохраните ее как C:\LabCondConstructions.xls.

2. Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль.

3. Введите в этом модуле следующий код:

Public Sub IfThenSubO

Dim nResult As Integer

nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")

ThisWorkbook.Worksheets(l).Range("Al").Value = _

"Вы нажали кнопку: " & nResult

ThisWorkbook.Worksheets(l).Range("Al").Columns.AutoFit

End Sub

4. Запустите этот код на выполнение и убедитесь, что он выполняется без ошибок. Этот код должен вставлять в ячейку А1 первого листа вашей книги текстовое значение вида "Вы нажали кнопку: 6", в зависимости оттого, какая кнопка была нажата в окне сообщения.

Получить информацию о том, какие значения при нажатии какой кнопки возвращаются из окна сообщения, можно при помощи справки по функции MsgBox().

ЗАДАНИЕ 3.2, А:

Измените код этой процедуры таким образом, чтобы вместо чисел в ячейку вписывалось строковое значение нажатой кнопки (например, "Вы нажали кнопку: Да"). Используйте при этом синтаксическую конструкцию

If...Then...Else.

Ответ к заданию 3.2, А:

Итоговый код для вашей процедуры может быть таким:

Public Sub IfThenSubAnswer()

Dim nResult As Integer

nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")

If nResult = vbYes Then

sResult = "Да"

Elself nResult = vbNo Then

sResult = "Нет"

Else

sResult = "Неизвестная кнопка"

End If

ThisWorkbook.Worksheets(1).Range("Al").Value = "Вы нажали кнопку: " _

& sResult

ThisWorkbook.Worksheets(1).Range("Al").Columns.AutoFit

End Sub

ЗАДАНИЕ 3.2, Б:

Замените в вашей процедуре строку:

nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")

на:

nResult = MsgBox{"Нажмите кнопку", vbAbortRetrylgnore, "Окно сообщения")

Измените вашу процедуру таким образом, чтобы она вставляла в ячейку А1 значения"Прервать", "Повторить" или"Пропустить", Взависимости от того,какая кнопка в окне сообщения была нажата. Используйте при этом синтаксическую конструкцию Select Case.

Ответ к заданию 3.2, Б:

Итоговый код для вашей процедуры может быть таким:

Private Sub SelectCaseAnswer()

nResult = MsgBox("Нажмите кнопку", vbAbortRetrylgnore, "Окно сообщения")

Select Case nResult

Case vbAbort

sResult = "Отменить"

Case vbRetry

sResult = "Повторить"

Case vblgnore

sResult = "Пропустить"

Case Else

sResult = "Неизвестная кнопка"

End Select

ThisWorkbook.Worksheets(1).Range("Al").Value = "Вы нажали кнопку: "_

& sResult

ThisWorkbook.Worksheets(1).Range("Al").Columns.AutoFit

End Sub