На этом шаге мы рассмотрим алгоритм создания первого макроса.
Макросы ввода формул записываются уже после ввода вышеописанных формул в ячейки. Задача макроса Курс заключается в следующем:
- открыть файл Курс;
- вернуться в файл ДенежныеПотоки;
- ввести в столбце L формулу определения курса указанной валюты на указанную дату и заменить формулы на определенные с помощью формул значения;
- закрыть файл Курс;
- ввести в диапазон ячеек I10:J5000 формулу расчета эквивалента денежных средств по определенному курсу.
Рис.1. Подпрограмма Курс
Для записи макроса Курс (рисунок 1) выполните следующее:
- с помощью кнопки Открыть или, выполнив команду Файл | Открыть, откройте диалоговое окно Открытие документа;
- откройте файл Курс, дважды щелкнув по его имени левой кнопкой мыши;
- вернитесь в книгу ДенежныеПотоки и выделите область ячеек L10:L5000;
- выделив формулу определения курса валют в строке формул, нажмите комбинацию клавиш Ctrl+Enter для одновременного ввода формул во все ячейки выделенного диапазона;
- не перемещая табличного курсора, скопируйте содержимого выделенного диапазона в буфер обмена и вызовите диалоговое окно Специальная вставка, в котором в области Вставить выделите переключатель Значения;
- переключитесь в окно с файлом Курс и закройте его, выполнив команду Файл | Закрыть, или нажав кнопку закрытия файла;
- введите формулы в диапазон ячеек I10:J5000. Заменять формулы на вычисленные ими значения временно не следует. В предыдущем случае это было необходимо с позиции повышения быстродействия выполнения подпрограммы;
- перейдите в Редактор Visual Basic и отредактируйте текст кода VBA.
На следующем шаге мы рассмотрим создание следующего макроса.
