Задание № 2. Запись макроса в Excel

Запустите Microsoft Office Excel.

Выберите Сервис / Макрос / Начать запись.

Замените предложенное по умолчанию имя макроса (Макрос1), на имя Создание_Рабочего_Бюджета.

В списке Сохранить в выберите Личная книга макросов.

Добавьте следующий текст к началу автоматически созданного описания: Создание проекта рабочего Бюджета.

Нажмите OK, чтобы закрыть диалоговое окно Запись макроса. При этом запустится процесс записи и появится диалоговое окно Остановить запись .

ПРИМЕЧАНИЕ: И начинаем записывать макрос, как музыку на диске: начинаем записывать все выполняемые вами операции с целью дальнейшего запуска. Будьте очень внимательны при записи макроса – не делайте лишних действий и ошибок.

Нажмите кнопку Создать на стандартной панели инструментов, чтобы создать новую книгу.

8. Наберите таблицу, предложенную ниже:

9.Выполните команду Сохранить, чтобы открыть диалоговое окно Сохранить как.

Сохраните книгу под именем Бюджет. xls в папке по вашему усмотрению. Например, используем папку d:\ Общие.

Нажмите кнопку Остановить запись кнопку на индикаторе или на панели инструментов, выбрав Сервис / Макрос / Остановить запись.

10.Протестируйте получившийся макрос. Для этого выберите Сервис / Макрос / Макросыили нажмите Alt+ F8. Затем выберите имя вашего макросе в списке, и нажмите кнопку Выполнить. VBA создаст новую книгу, создаст таблицу, введет в нее соответствующую информацию и сохранит книгу. Заметьте, что Excel покажет вам предупреждение о перезаписи, сохраняемой книга, в то время как Wordделает это молча.

Задание № 3

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

1. В меню Сервис / Макрос и активизируем пункт Начать запись.

2. В окне Запись макроса в качестве имени макроса введём Переход_страниц.

3. Для задания горячей комбинации клавиш нажмём вторую кнопку со словом Клавишам из группы кнопок под именем Назначить макрос.

4. В открывшемся окне Настройка клавиатуры нажимаем комбинацию Ctrl+H, находясь в строке Новое сочетание. Нажмите сначала кнопку Назначить, а затем - кнопку Закрыть. Горячая комбинация для вызова макроса назначена, и запись макроса началась.

5. В меню Правка нажмите Перейти.

6. В раскрывшемся окне Найти и заменить в списке Объект перехода выставляем значение Страница. Проверяем, что строка под названием Введите номер страницы пуста. Нажимаем кнопку Далее. Затем нажмите кнопку Закрыть. Диалог Найти и заменить закрывается, курсор оказывается на следующей странице в тексте документа.

7. В меню Сервис / Макрос активизируем пункт Остановить запись.

8. Протестируйте получившейся макрос. Теперь в любой момент мы можем нажать комбинацию Ctrl+H, и курсор тут же переместиться к следующей странице. Таким образом, быстро можно просмотреть любой объемный документ.

9. Создайте аналогичный макрос для перехода к предыдущей странице. С его помощью можно быстро перемещаться по тексту и в обратном направлении. Для этого горячей комбинацией этого макроса необходимо назначить комбинацию Ctrl+ Shift+H. А в строке Введите номер страницы окна Найти и заменить поставить знак минус.

Задание № 4

1.Запустите Microsoft Office Excel.

2.Откройте Лист Excel и в ячейке А1 вставьте цифру 7.

3.Выберите Сервис / Макрос / Начать запись.

4.В появившемся окне Запись макроса в поле Имя макроса указать ПРОБА.

5. Задайте комбинацию клавиш для его запуска (например, Ctrl + q) и нажмите кнопку ОК.

6. Выполнить следующие операции:

ПРИМЕЧАНИЕ: Будьте очень внимательны при записи макроса – не делайте лишних действий и ошибок.

- сначала выделите ячейку А1, нажав на неё, затем копируйте её содержание и вставляйте в ячейку С1 (простая операция копирования).

7.Нажмите кнопку Остановить запись кнопку на индикаторе или на панели инструментов, выбрав Сервис / Макрос / Остановить запись.

8. Удалите данные с листа, а затем  в ячейку А1, поставьте любое значение и нажмите Ctrl + q. Если вы всё сделали правильно, в ячейку С1 должны автоматически копироваться значения А1.

9. Перейдем к редактору Visual Basic. Для этого через меню Сервис / Макрос / Макросы нажмите кнопку Изменить – откроется окно редактора Visual Basic.

10. Рассмотрите более подробно автоматически созданный программный код. Вот как выглядит макрос или процедура (программный код) задачи копирования ячейки А1 в ячейку С1.

ПРИМЕЧАНИЕ: Процедура - это общее название всех самостоятельных частей кода. Процедура - участок кода, выделенный ключевыми словами Sub (в начале процедуры: за ним следует ее имя) и End Sub (окончание процедуры: помещается на отдельной строке). Обычно процедура выполняет одно или несколько действий.

11. Выделите строки программного кода от « Range…» до «… Paste» и копируйте их либо через меню Edit / Copy, либо с помощью правой кнопки мыши.

12. Сместите строку « End Sub»  на одну строку ниже и в пустую строку вставьте скопированный программный код.

13. Во вставленном программном коде измените «А1» на «С1» и «С1» на «Е1».

14. Через панель задач перейти в Microsoft Office Excel и очистите все ячейки, а затем наберите любое значение в ячейке А1.

15. Запустите на выполнение измененный макрос либо нажатием комбинации клавиш Ctrl + q, либо через меню Сервис / Макрос / Макросы / Выполнить.

Задание № 5

 Запустите Microsoft Office Excel.

 Откройте Лист Excel.

 Выберите Вид / Панели инструментов/ Visual Basic.

 На открывшейся панели редактора Visual Basic нажмите кнопку Панель элементов управления и перенестиэлемент «Кнопка» на рабочее поле.

 На Панели элементов управления нажмите кнопку Окно свойства и в появившемся окне Properties в графе Caption переименуйте название кнопки CommandButton1 на Создание Овала.

6. Выберите Сервис / Макрос / Начать запись.

7. В появившемся окне Записи Макроса укажите Имя макроса и комбинацию клавиш для его запуска ( Ctrl +а) и нажмите ОК.

8. С панели Рисование перенесите на рабочее поле Овал, а затем выделите этот объект и зайдите в Формат Автофигуры, а затем зайдите Цвет Заливки – Красный, Цвет линии – черный, Толщина линии – 3 пт.

9. В меню Сервис / Макрос активизируйте пункт «Остановить запись».

10 . Зайдите в MicrosoftVisual Basic в меню Редактор Visual Basic в модулях найти наш Макрос, скопируйте код макроса и вставьте в процедуру: