4.5. Создание накопителей с помощью макросов

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

Пример 4.2

Полученный после выполнения лабораторной работы № 2 файл имеет вид, представленный на рис. 3.2. Необходимо создать кнопку Копирование такую, чтобы при ее нажатии каждый раз в новый столбец была скопирована информация столбца В:

1. Записываем макрос копирования.

2. Записываем в ячейку A1 номер столбца, с которого мы желаем начать вставлять данные - 3.

3. В ячейку B1 записываем функцию Адрес, в диалоге указываем номер строки - 17, номер столбца - A1.

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

Sub копирование() Range("B17:B26").Select Selection.Copy Range("A1") = Range("A1") + 1 Range(Range("B1")).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False Application.CutCopyMode = False End Sub

Жирным шрифтом выделены две строки, дописываемые в макрос.

5. Создаем кнопку Копирование, заходим в исходный текст кнопки и записываем туда строку:

Application.Run "копирование"

6. Записываем макрос Очистить, удаляющий все накопленные значения.

7. Входим в текст записанного макроса, в Visual Basic выбираем пункт меню Insert - Procedure, вводим новый текст:

Sub AUTO_OPEN() Range("A1") = 2 Application.Run "очистить" End Sub

При открытии файла автоматически будет выполняться макрос Очистить и значение ячейки А1 устанавливаться равным 2.

Результат работы накопителя приведен на рис. 4.8.

Рисунок 4.8 - Результат работы накопителя

4.6. Задание к выполнению лабораторной работы

1. Открыть выполненный вариант лабораторной работы № 2.

2. Создать макрос для автоматического форматирования таблицы, выполнить его:

- скопировать лист СМЕТА;

- записать макрос, залив ячейки со словом «закрашенных» цветом, выделив слова «более 5» жирным шрифтом, а перечень статей расходов курсивом;

- запустить макрос на продублированном листе СМЕТА(2).

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

4. Создать кнопки для перехода в скрытый лист, для возвращения в исходный лист со скрытием предыдущего.

5. Создать интерфейс с накоплением, как это показано в примере 4.2.

4.7. Контрольные вопросы

1. Что такое макросы?

2. Как создать макрос?

3. Как назначить макросу сочетание клавиш?

4. Как назначить рисунку выполнение макроса?

5. Приведите пример использования макросов для автоматизации управленческих функций

6. Для чего служит интерфейс с накоплением?

7. Как организуется изменение области копирования?

8. Как создать макрос, автоматически выполняющийся при открытии книги?