Б. Excel 97–2003

1. Щёлкнуть по кнопке РедакторVisual Basic, а если эта кнопка не отображается, то выполнить команду Сервис  Макрос  Редактор Visul Basic

2. Выполнить пункты, аналогичные п.п. 2÷6 для Excel 2007–2010

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

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

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

Dim Имя As String

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

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

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

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

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

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

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

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

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

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

MsgBox Сообщение

End Sub

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

6). Ввод данных

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

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

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

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

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

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

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

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

3. Войти в Excel.

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

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

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

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

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

Контрольное упражнение к лабораторной работе №2

Подсчитать площадь S прямоугольника со сторонами a, b, c по формуле Герона:

S=

где p=(a+b+c)/2 , a=3, b=4, c=5.

Ввод данных осуществлять двумя способами:

1. На экран должны выводиться запросы вида ”Введите значение a”, ”Введите значение b”, ”Введите значение d”, “Площадь треугольника равна” <значение S>. Для этого использовать функцию VBA sqr:

S= sqr(p*(p-a)*(p-b)*(p-c))

2. Вводить данные в таблицу Excel

В этом способе данные вводятся в ячейки таблицы Excel непосредственно, без использования VBA. Для использования этих данных в качестве исходных в процедуре VBA можно ссылаться на ячейки с введёнными данными. Например, для присвоения значения переменной R значения ячейки A5 на текущем рабочем листе можно использовать инструкцию R=Cells(5,1) или инструкцию R=Range(“A5”) (Смотри п.4 – Адресация ячеек).