VBA в приложении к Excel, Word и Power Point

Функция для создания окна сообщений записывается так:

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

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

Этот аргумент является целым числом и для достижения желаемого результата может быть представлен как сумма двух слагаемых:

Значение Параметр1 устанавливает число и тип кнопок в окне сообщений.

В таблице приведены возможные значения этого параметра:

Если аргумент Атрибуты не указан, то VBA предполагает, что в диалоговом окне сообщений присутствует только кнопка “ОК”.

Значение Параметр2 определяет вид сообщения и пиктограмму, которая помещается в окно сообщений.

Заголовок — строка в заголовке окна сообщений. Если этот аргумент опущен, то в строке заголовка отображается “Microsoft Excel”.

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

Окно ввода

Окно ввода, как и окно сообщений, может отображаться оператором или функцией.

Функция InputBox применяется для ввода чисел или текста. Эта функция отображает диалоговое окно ввода, содержащее поле ввода и поясняющий текст; ее синтаксис таков:

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

Заголовок — это надпись в строке заголовка окна ввода.

Умолчание — значение, которое будет отображаться в поле ввода по умолчанию, пока пользователь не введет свое значение. Если этот аргумент опустить, то поле ввода отображается пустым.

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

В отличие от MsgBox параметр Атрибуты отсутствует, но появляется параметр Умолчание: в нем задается строка, которая по умолчанию будет находиться в текстовом поле. При нажатии кнопки “ОК” содержимое поля присваивается переменной, а при нажатии на кнопку “Cancel” возвращается строка нулевой длины.

ВНИМАНИЕ! Функция InputBox возвращает строку, а функция MsgBox возвращает значение целого типа.

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

При объединении нескольких текстовых строк в одну используется символ конкатенации “&” (амперсенд) или “+” (плюс). Можно объединять числовые и символьные значения.

Практическая работа № 6–1 “Создание окон сообщений”

3. Присоедините к кнопке программу, в результате которой появятся окна с различными сообщениями. Например:

4. Спроектируйте несколько окон сообщений и оформите их посредством MsgBox.

Практическая работа № 6–2 “Круг”

Используя MsgBox и InputBox для ввода и вывода значений, подсчитайте площадь круга, если известен его радиус.

2. Используя MsgBox и InputBox, подсчитайте площадь круга, если известен его радиус. Для этого:

Практическая работа № 6–3 “Как вас зовут?”

1. На листе Excel с помощью Панели элементов управления спроектируйте кнопку вызова формы и назовите ее “Имя”, Лист1 также переименуйте в лист “Имя”.

2. Выделите кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.

3. Выделите кнопку “Имя”, выберите на панели элементов управления кнопку “Исходный текст” .

7. При запуске программы экран будет выглядеть следующим образом:

8. Спроектируйте аналогичные кнопки. Например, со следующими вопросами: “Сколько Вам лет?”, “Что Вам нравится?” и т.д.

Практическая работа № 6–4 “Моя Вселенная”

1. На листе Excel создайте кнопку, назовите ее “Ответь на вопросы”.

2. Выделите кнопку “Ответь на вопросы”, нажмите на панели элементов управления кнопку “Исходный текст” .

3. Запишите программу таким образом, чтобы после первого вопроса и ответа на него вызывался второй вопрос и т.д.:

4. Не забудьте изменить имя заголовка формы. Оно должно соответствовать вопросу. Например:

Практическая работа № 6–5 “Мне нравится”

Мне нравится в школе то, что…

Мне не нравится в школе то, что…

Я просто в восторге от того, что…

Мне не нравится на уроке то, что…

Вот было бы здорово, если бы на уроке можно было бы…

Подберите вопросы и составьте самостоятельно задание.

Практическая работа № 6–6 “Вычислитель”

Спроектируйте на листе Excel кнопки вызова форм, с помощью которых можно сложить, вычесть, умножить (и т.д.) два числа.

1. На листе Excel с помощью Панели элементов управления спроектируйте кнопку вызова формы и назовите ее “Сложение”; переименуйте Лист1 в “Вычислитель”.

2. Выделите кнопку, вызовите через правую кнопку мыши Свойства и отформатируйте ее на панели Properties.

4. Проверьте работоспособность кнопки “Вычислитель”. У вас должно получиться:

5. Спроектируйте кнопки “Вычитание”, “Умножение”, “Деление”, “Возведение в квадрат”, “Корень квадратный”.

Практическая работа № 6–7 “Пословицы”

Спроектируйте на листе Excel кнопку вызова формы, с помощью которой можно дополнить пословицу “ПУГАНАЯ ВОРОНА и. боится”.

1. С помощью Панели элементов управления спроектируйте кнопку вызова формы и назовите ее “Пословицы”, переименуйте Лист1 в “Пословицы”.

2. Выделите кнопку, вызовите через правую кнопку мыши Свойства и отформатируйте ее на панели Properties.

Ответ = InputBox(«Дополни пословицу: ПУГАНАЯ ВОРОНА и. боится», «Введи ответ»)

MsgBox «Пуганая ворона и» & Ответ & » боится», 1, «Пословица»

4. Дополните программу пословицами таким образом, чтобы после первого вопроса и ответа на него вызывался второй вопрос и т.д.

Практическая работа № 6–7 “Полевой букет”

Эта работа позволит понять, как переносить информацию из диалоговых окон в пользовательскую форму.

Соберем на поляне букет из четырех наименований цветов.

1. После щелчка кнопки “Пуск” должны последовательно появиться диалоговые окна для ввода названий четырех цветов (для мальчиков — автомобилей).

2. Поместите введенные текстовые строки в поля метки пользовательской формы.

4. В первом случае выведите объединенные текстовые строки в поле пользовательской формы в одну строку.

5. Во втором случае расположите объединенные текстовые строки в поле пользовательской формы “столбиком”. Для вывода текстовых строк в столбик надо при объединении между текстовыми строками вставить особый невидимый символ — символ перехода на новую строку. В коде ASCII это 13. Функция CHR(Код) преобразовывает код в один символ. Символ перехода на новую строку — CHR(13).

Rem Ввод текстовых строк через окно ввода

Rem Размещение введенной текстовой строки в поле ПФ

Rem Объединение текстовых строк для вывода в строку

Rem Размещение объединенной текстовой строки в поле ПФ

Rem Подготовка переменной Slova для нового объединения строк

Rem Объединение текстовых строк для вывода в столбик

Slova = slovo1 + » » + Chr(13) + slovo2 + » » + Chr(13) + slovo3 + » » + Chr(13) + slovo4

Rem Размещение объединенной текстовой строки в поле ПФ

Примечание : Использовать только 2 Переключателя на листе не имеет смысла — их функциональность эквивалентна элементу Флажок , а затрат на их создание в 2 раза больше. Флажок возвращает ИСТИНА или ЛОЖЬ, а 2 Переключателя — 1 или 2. Хотя, это, безусловно, дело вкуса.

Диалоговое окно параметров Excel

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