Перенос данных из листа Ввод в лист Реквизиты
Следующая задача - перенести введенные данные диапазона ячеек I16:I47 листа Ввод в лист Реквизиты. Эту задачу выполняет макрос ПоместитьДанныеРеквизиты (рис. 7.19.).
Макрос выполняет следующие действия:
копирование диапазона ячеек I16:I47 на листе Ввод;
переходит на лист Реквизиты;
производит поиск первой пустой строки, выделяет в ней ячейку в столбце В и производит транспонированную вставку значений;
переходит на одну ячейку влево, определяет максимальный порядковый номер в столбце А, добавляет к нему единицу и вводит это значение в ячейку;
возвращается на лист Ввод.
Для записи этого макроса последовательно проделайте эти действия, после чего в режиме редактирования удалите лишние операторы и введите строки с кодом VBA поиска первой пустой строки и определением порядкового номера. Наиболее эффективный метод - копирование этих строк из предыдущих подпрограмм, вставка и последующее редактирование.
Рис. 7.19. Макрос переноса данных из листа Ввод в лист Реквизиты
Перенос данных из листа Ввод в лист Текст
Макрос ПереносДанныхТекст производит копирование диапазона ячеек I16:I47 на листе Ввод, переходит на лист Текст и производит вставку скопированного в диапазон ВВ1:ВВ32.
Рис. 7.20. Макрос переноса данных из листа Ввод в лист Текст
Рабочий лист Текст
Рабочий лист Текст предназначен для формирования текста доверенности.
Модули преобразования дат в текстовый формат
В столбцах АА:АD с первой строки по 19-ю расположены созданные ранее модули формирования текстовых форматов дат (рис. 7.21.). В ячейки входов этих модулей введены имена ячеек, в которых находятся даты, фигурирующие в тексте доверенности. Например, как видно на рис. 7.21. в ячейку АА1 введено имя П_02, которое присвоено ячейке ВВ2 (дата выдачи доверенности).
Рис. 7.21. Фрагмент рабочего листа Текст с модулями формирования текстовых форматов дат
Присвоение имен ячейкам рабочего листа
До этой главы при ссылках на ячейки (диапазоны) указывались их адреса (или место расположения их на рабочем листе). Это не совсем удобно. Иногда желательно, чтобы вместо загадочного адреса в формулах присутствовала информация о том, что же находится в этой ячейке. Excel позволяет присваивать имена отдельным ячейкам и диапазонам ячеек.
Присвойте имена ячейкам диапазона ВВ1:ВВ32, в которую производится вставка данных из рабочего листа Ввод,. Наиболее простой и эффективный способ присвоения имен каждой ячейке диапазона заключается в следующем:
в ячейки диапазона ВА1:ВА31 введите текст имен от П 01 до П 32;
выделите диапазон ячеек ВА1:ВВ32 и нажмите комбинацию клавиш [Ctrl+ Enter+F3];
в появившемся диалоговом окне Создать имена Excel (рис. 7.22.), пытаясь "угадать" в какой области ячеек введен текст имен, отмечает опции В строке выше и В столбце слева в области По тексту. Флажок в опции В строке выше снимите, иначе ячейке ВВ1 не будет присвоено никакого имени, а диапазону ВА2:ВВ32 будет присвоено два имени - П_01 и текста, находящегося в ячейке ВВ1.
Рис. 7.22. Фрагмент рабочего листа Текст с присвоением имен ячейкам диапазона с данными и диалоговым окном Создать имена
Ячейкам ВВ1:ВВ32 будут последовательно присвоены имена от П_01 до П_32. Для того чтобы просмотреть имена и адреса ячеек, которым это имя присвоено, выполните команду Вставка/Имя/Присвоить в результате чего появится диалоговое окно Присвоение имени (рис. 7.23.). При выделении строки в области Имя в поле Формула будет указан адрес ячейки (или адрес диапазона), которой принадлежит это имя. Двух одинаковых имен на рабочем листе быть не может.