Объединение текстовых строк

Если надо объединить несколько текстовых строк в одну, используется символ конкатенации &. Его применение, а также применение других символьных констант, используемых при выводе сообщений, на экран показано в приведённой ниже процедуре ОбъединениеСтрок.

Sub ОбъединениеСтрок()

Dim Имя As String

Dim Сообщение As String

Имя = InputBox("Введите ваше имя: ")

'Следующая строка для окна сообщения объединяет

'слово "Привет" со значением переменной Имя

MsgBox "Привет, " & Имя & "!"

Сообщение = "Это пример объединения нескольких"

Сообщение = Сообщение & " строк в одну большую"

Сообщение = Сообщение & " строку." & vbNewLine

Сообщение = Сообщение & "vbNewLine - константа, позволяющая"

Сообщение = Сообщение & " начинать новую строку"

MsgBox Сообщение

End Sub

Скопируйте процедуру ОбъединениеСтрок в модуль VBA, заменив в ней имя пользователя на своё, введите произвольные данные для переменной Сообщение и запустите процедуру на выполнение.

Ввод данных

Ввод данных в MS Excel возможен тремя способами:

- в диалоге с клавиатуры,

- записью данных в таблицу Excel,

- используя внешние файлы.

Ввод данных в диалоге с клавиатуры

Функцию MsgBox целесообразно использовать в случае, если от пользователя надо получить ответ типа Да–Нет или ОК–Отмена. Если необходимо ввести число или текст, то применяется функция InputBox. Функция MsgBox отображает запрос в диалоговом окне ввода, ожидает ввода пользователем строки (или щелчка по кнопке окна) и возвращает строку из поля ввода окна.

1. Изучить Функцию InputBox.

2. Скопировать текст процедуры ФункцияInputBox.

3. Войти в Excel.

4. Вызвать на экран окно проектов.

5. Вставить в модуль Module1 процедуру ФункцияInputBox.

6. Выполнить процедуру ФункцияInputBox:

-команда Run | Run Sub/UserForm.

7. Проанализировать результаты выполнения процедуры, сравнив их с кодом процедуры ФункцияInputBox.