1 Sub Вітання()

2 Dim Hello 'змінна для MsgBox

3 Hello = "Привіт!"

4 MsgBox Hello, , "Вікно вітання"

5 End Sub

У рядку 2 оператор Dim оголошує змінну Hello. У цьому ж рядку записаний коментар. У рядку 3 змінною привласнюється значення "Привіт!". У рядку 4 змінна Hello використовується як один з аргументів оператора MsgBox.

Часто при оголошенні змінних (явним і неявним способом) доцільно указувати тип змінної або говорять оголосити типізовані змінні.

В цьому випадку оператора Dim має наступний синтаксис:

Dim name1 [As type1] [,name2 [As type2]

Наприклад:

Dim Ціна As Currency

Dim Кількість As Integer

Після оголошення типізованої змінної, незалежно від того, чи оголошується ця змінна явно або неявно, і як задається тип, ця змінна зберігає той же самий тип стільки часу, скільки вона існує. Не можна переоголосити змінну або перевизначити її тип.

При неявному оголошенні можна задавати тип змінної, додаючи спеціальний символ, що називається символом визначення типу, в кінець імені змінної

Символ Тип

! Single

@ Currency

$ String

% Integer

& Long

Наприклад: Запишемо процедуру для виведення вікна повідомлення вітання, використовуючи для цього різні способи оголошення змінних і вказівки їх типів.

Sub Привіт()

Dim Hello As String

Hello = "Привіт!"

Titles$ = "Вікно вітання"

MsgBox Hello,, Titles$

End Sub

ПОРЯДОК ВИКОНАННЯ РОБОТИ

Створення макросів в текстовому процесорі ms Word

І. Завантажте програму Word і збережіть файл із своїм ім'ям і надалі усе зберігати тільки у своєму документі.

ІІ. Створення макросу з іменем Макрос1, що буде встановлювати вид шрифту Arial, розмір шрифту 12, колір тексту синій, заливка жовта і підкреслення для виділеного тексту.

1. Наберіть текст: "Макрос - це програма, яка складається зі списку команд, що повинні бути виконані додатком".

2. Вкладка Вид  Макросы  Запись макроса.

3. У діалоговому вікні Запись макроса в поле Имя макроса: увести своє ім'я або залишити Макрос1, а в поле Макрос доступен для: відкрити список, вибрати ім'я вашого файлу. У полі Назначить макрос клацнути по кнопці клавишам. У діалоговому вікні Настройка клавиатуры в полі Сочетание клавиш: натиснути CTRL+A ( A - англ.) і клацнути по кнопці Назначить. В полі Сохранить изменения в: вибрати ім'я вашого файлу і закрити вікно. Після цього усі ваші дії будуть записуватися.

4. Після виконання всіх дій, які повинні бути записані макросом, відкрити список Макросы і вибрати Остановить запись.

2. Запуск макросу на виконання.

1. Виділити текст, для якого потрібно застосувати макрос.

2. Вкладка Вид  група Макросы Макросы. Виділити ім’я потрібного макросу і клацнути по кнопці Выполнить (або використати "гарячі клавіші", тобто натиснути комбінацію клавіш, що Ви призначили для свого макросу).

ІІІ. Створення макросу з іменем Макрос2 по створенню таблиці.

1. Створити макрос по створенню таблиці, що складається з 5 колонок і 3 рядків.

2. Видалити створену таблицю і запустити Макрос2.

3. Заповнити шапку таблиці, виділити її і запустити раніше створений Макрос1.

4. Додавання кнопки макросів в Панель быстрого доступа.

1. Розкрити список Панель быстрого доступа та вибрати Другие команды.

2. В діалоговому вікні, що з’явилося, розкрити список Часто используемые команды і вибрати з нього Макросы. Виділити потрібний макрос і кнопка Добавить.

3. Виділити доданий Макрос, відкрити список Для всех документов (по умолчанию) і вибрати свій файл.

4. Клацнути по кнопці Изменить і вибрати будь-який символ для своєї кнопки і ОК.

5. Перевірити роботу кнопки

V. Закрити вікно редактора Word із зберіганням змін.