На рабочем листе Лист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.