Генератор уведомлений на Excel

04 января 2016, понедельник | просмотров: 2824

Здравствуйте! На предприятии, чья деятельность направлена на социальные услуги, нередко требуется уведомить большое количество людей. Чаще всего такие уведомления составляются на основе определенного шаблона, в который позже вставляются некоторые реквизиты. Например, срок сдачи отчетности. Именно такую задачу мне нужно было решить чтобы помочь своему отделу ускорить отправку писем.
Ранее для того чтобы отправить работодателям письма печаталось множество пустых бланков с уведомлениями, затем распечатывались списки в которых содержаться наименование и срок сдачи отчетности, далее списки делились на всех работающих в отделе, потом каждый согласно своему списку вписывал в уведомление нужные реквизиты. Это долгая и кропотливая работа. Приходилось заниматься этим вне рабочее время, привлекая еще к тому же детей, мужей и других близких. Совершенно очевидно, что вероятность ошибок здесь была очень большой.

Мной написан Генератор уведомлений, который позволяет сократить временные затраты на изготовление бланков уведомлений, облегчить труд целого отдела и избавиться от многих ошибок.

Суть его в следующем:
1. За основу я взял список со всеми реквизитами, которые должны быть внесены в бланки уведомлений.



Генератор уведомлений на Excel



2. Создал Excel-шаблон уведомления.



Генератор уведомлений на Excel



3. Написал макрос, который для каждого элемента в списке создает бланк из шаблона и вставляет в него реквизиты.



Генератор уведомлений на Excel




Sub sdgsdgsdg()
For y = 1 To 126
Workbooks.Open ("d:Шаблон.xls")
Workbooks("Шаблон.xls").Sheets(1).Cells(2, 3) = Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 2)
Workbooks("Шаблон.xls").Sheets(1).Cells(3, 3) = Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 1)
Workbooks("Шаблон.xls").Sheets(1).Cells(5, 1) = Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 2) & " (Рег. номер в ПФР: " & Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 1) & ")"
Workbooks("Шаблон.xls").Sheets(1).Cells(7, 4) = Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 3)
Workbooks("Шаблон.xls").SaveAs ("d:" & Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 1) & ".xls")
Workbooks(Workbooks("Генератор_уведомлений.xls").Sheets(1).Cells(y, 1) & ".xls").Close
Next y
End Sub


При запуске макроса процесс можно наблюдать наглядно:



Генератор уведомлений на Excel



В результате получаются следующие документы:



Генератор уведомлений на Excel




Генератор уведомлений на Excel




Генератор уведомлений на Excel



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




Скачать


Понравилась публикация? Поддержи сайт, поделись записью внизу страницы !


Комментариев нет.




Только подтвержденные пользователи могут оставлять комментарии.

Поделиться страницей в социальных сетях



Поделиться ВКонтакте Поделиться Facebook Поделиться Одноклассники Поделиться Twitter Поделиться Google+
Просмотр изображения