Информационное сообщение с возможностью ввода данных

Недавно мы с вами рассмотрели какие информационные сообщения существуют в Excel на базе Visual Basic, слава Богу существует множество таких сообщений, которые можно впихивать куда угодно.

Теперь я покажу такое сообщение, которое можно не только смотреть и выбирать кнопочку для необходимого нам ответа, а сообщение, в которое можно вводить необходимую нам информацию, которая в последствии может сыграть какую-то значительную роль в нашей программе.

Сообщение ввода возможно описать следующим образом.

        Private Sub CommandButton1_Click()

            InputBox "Введите значение от 0 до 1000", "Пример"

        End Sub

Но данная запись нам только покажет это сообщение как оно есть, и считать с него вводимые данные очень сложно. Для того чтобы распознать вводимые данные и передать их дальше для обработки данное сообщение лучше записывать следующим образом.

        Private Sub CommandButton1_Click()

        R = InputBox("Введите значение от 0 до 1000", "Пример")

            If R > 0 Then

                Cells(1, 1) = R

            End If

        End Sub

При такой записи наша переменная R принимает то значение, которое мы ввели. И теперь его можно обрабатывать так как нам угодно.

Если у нас есть какое-то число, или какие-то данные, по умолчанию, и необходимо сделать так, чтобы эти данные автоматически прописывались в сообщении то макрос необходимо записать так:

        Private Sub CommandButton1_Click()

        R = InputBox("Введите значение от 0 до 1000", "Пример", "500")

            If R > 0 Then

                Cells(1, 1) = R

            End If

        End Sub

Сообщение примет следующий образ: