Этап 4. Написание процедуры

1 2 3 4 5 6 7

На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).

Private Sub CommandButton1_Click()

‘Декларация переменных

Dim Nd As Integer

Dim Dn As String

'Ввод данных

Nd = InputBox("Введите номер дня недели: ", "Ввод данных")

‘Проверка корректности ввода даных

If Nd <= 0 Or Nd > 7 Then

MsgBox "Ошибка ввода данных", vbOKOnly+vbCritical, "Не корректный ввод даных!"

GoTo 1

End If

'Вычисления

Select Case Nd

Case 1

Dn = "Начало рабочей недели!"

Case 2 To 4

Dn = "Середина рабочей недели!"

Case 5

Dn = "Окончание рабочей недели!"

Case Is <= 7

Dn = "Выходной!"

End Select

'Вывод результата

MsgBox Dn, vbOKOnly + vbInformation, "Результат"

1: End Sub

Этап 5. Выполнение.

Перейти на рабочий лист (View®Microsoft Excel или Alt+F11). Выйти из режима Конструктора, левой клавишей мыши (ЛКМ) нажать Кнопку. Ввод данных показан на рис.18. Вывод данных на рис.19.