MS VBA | InputBox

InputBox:

 

InputBox "Текст InputBox(a)","Заголовок InputBox(a)","значение по умолчанию"

 

 

Введенное в InputBox значение положить в переменную:

 

Sub OrderReady()

 

Dim orderdate As Date

orderdate = InputBox("Введите дату заказа", "Стол заказов", Date)

MsgBox "Ваш заказ будет готов " & orderdate + 10, vbInformation, "Стол заказов"

 

End Sub

 

Обработка введенного значения в InputBox:

 

'от указанной даты ближайшее воскресенье

Sub NextSunday()

 

Dim MyDate

Dim Button As Integer 'нужно объявлять только есть в модуле указан Option Explicit

lbl:

MyDate = InputBox("Введите дату", "Определить ближайшее воскресенье", Date)

If IsDate(MyDate) Then

 'пользователь ввел дату

         MyDate = CDate(MyDate)

 Do While Weekday(MyDate) <> 1

                 MyDate = MyDate + 1

 Loop

 MsgBox "Следующее воскресенье наступит " & MyDate, vbInformation

Else

 Button = MsgBox("Вы ввели не дату, повторите еще раз?", vbYesNo + vbCritical + vbDefaultButton1, "Ошибка!")

         If Button = vbYes Then

             GoTo lbl

         End If

End If

End Sub

 

 

См. также: MsgBox

 



© 2018 | Анна Петросян | pashelp@yandex.ru