На этом шаге мы рассмотрим создание еще одного макроса.

Макрос РасчетСумм производит ввод формул:

суммирования оборотов по поступлению рассчитанных денежных средств по курсу в ячейку I6 и вставке ее в ячейки J6 и O6:Q6. Для одновременной вставки формул в диапазон ячеек J6, O6:Q6 после ввода формулы в ячейку I6 и копирования ее содержимого, выделите ячейку I6 и, нажав и удерживая клавишу Ctrl, выделите мышью диапазон ячеек O6:Q6, произведите вставку скопированного;
суммирования по принципу "если" по наименованию валюты в ячейке М5 и последующего копирования и вставки содержимого этой ячейки в диапазон M5:N6.

Далее для замены всех формул на вычисленные ими значения на рабочем листе ИсхДанные нажатием на кнопку Выделить весь лист произведите выделение всего рабочего листа (Cells) и через диалоговое окно Специальная вставка замените формулы на значения. Отредактируйте текст подпрограммы.

Немаловажная деталь при редактировании, на которую хотелось бы обратить внимание. Посмотрите на строки ввода формул, например, фрагмент: Range("I6,J6,O6:Q6").Formula. Во-первых, при вводе формул макрос не выделяет ячейки, в которые вводятся формулы, потому что при редактировании удален этот оператор (Select). Во-вторых, формулы одновременно вводятся в различные ячейки. Этим значительно увеличивается быстродействие выполнения макроса.

Рис.1. Подпрограмма РасчетСумм

Соберем все макросы вместе.

Выполнение всех записанных макросов можно производить отдельно, но будет очень удобно, если они будут выполняться в записанной последовательности. Для этого запишите подпрограмму ПолныйРасчетИсхДанные, которая последовательно перечисляет имена выполняемых процедур.

Рис.2. Подпрограмма ПолныйРасчетИсхДанные

На следующем шаге мы рассмотрим создание макроса ввода текста наименования валют.

Предыдущий шаг Содержание Следующий шаг