ОК изнутри


ОК изнутри – приложение Отдел кадров. В Excel. Объем, в архиве 95 кБ. Один файл. И папки – цифры года, 4 цифры. Все. Работает быстро. Легкое. Надежное, Безотказное. Простое. Выполнено на одном! макросе. В трех модификациях – Прием, Отпуск и Увольнение.

схема папок

Зачем больше, если этого достаточно. Поехали? Разбор полета. Сам макрос:

Sub Yvolen()
‘ Макрос записан 18.08.2011 (Березуцкий В.И. bvi@mail.ru)
god = Range(“S10”)
nomer = Range(“S11”)
Data = Range(“S12”)
kto = Range(“S13”)

‘ ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Sheets(“реестр”).Select
a = Range(“a6”) + 9 + Range(“C6”)
Rows(a).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(a, 3) = nomer
Cells(a, 3).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=”C:\ОК\” & god & “\Уволеные\” & nomer & “увол.xls”
Cells(a, 4) = kto
Cells(a, 10) = Data

‘запись нового файла с его текущим номером в указанную папку
ActiveWorkbook.SaveAs Filename:=”C:\ОК\” & god & “\Уволеные\” & nomer & “увол.xls”, Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False, CreateBackup:=False
‘закрытие нового файла
ActiveWindow.Close (True)

End Sub

отпуск

Yvolen – название макроса. Увольнение в данном случае. Макрос немолодой, написан в 11 году. Знак апостроф ‘ в начале строки обозначает комментарий к программе. Строка за ним не выполняется. Служит для объяснения кода. Считываем значение года – в переменную god. Текущий номер приказа, дата и на кого приказ. Переменные nomer, Data, kto.

Следующая строка – печать – первой страницы в одном экземпляре.Она закомментирована апострофом вначале. Следовательно будет работать макрос без печати, в режиме “Сохранить”. Надо печатать на текущем принтере по умолчанию? Уберите апостроф в начале строки и при выполнении макроса он распечатает этот приказ.

Collate – делаем выборку. Русским языком переходим на лист – Реестр. Находим последнюю пустую строку в реестр. И в первый столбец А записываем текущий номер приказа из переменной nomer. Следующими тремя строками мы ставим гиперссылку на этот номер, чтобы он открывал данный приказ записанный в строго определенное ему место Папка ОК на диске С, внутри ее в папку с текущим годом из четырех цифр. ОК – имя папки русскими буквами.

Следующими двумя строками оператором Cells записываем в эту строку ФИО на кого приказ и дату приказа. Три следующие строки – открытие нужного места для сохранения приказа. Комментарий. И три строки сохранение нашего приказа в указанное ему место.

И финал – закрытие файла Excel, чтобы Вы не утруждали себя лишним щелчком в верхнем правом углу.

Прекрасно, не правда ли.

реестр прикахов

Не забываем, что это чудесный шаблон. По образу и подобию которого Вы можете сами писать ВСЕ ЧТО УГОДНО. Автоматизировать любую рутинную работу которую вы выполняете ежедневно. Достаточно лишь слегка подредактировать макрос под ваши нужды!

Чуть не забыл. По умолчанию в Excel макросы выключены. Посмотреть, как они включаются вы можете по следующей ссылке – Включение макросов в Excel.

Документы могут быть любыми. Я делал ручками в Excel копию оригинального документа. Можете сделать все, что вам угодно. Количество вкладок – это количество разных документов по которым вам нужна автоматизация в одном реестре. Реестры могут быть разными. Сохраняемые ваши документы в разные папки. Правим макрос :). Сами. Или с нашей помощью :).

Обратите внимание. На каждом листе скрыт столбец S В нем необходимая информация для работы макроса. Показать, правим или пишем новое, – Скрыть. И дело в шляпе.

КОМПЬЮТЕРЫ – 2020 года cможет принять любую посещаемость благодаря кешированию WP Super Cache