Ведение журналов в excel

Об обязательности регистрации документов однозначно высказываются Методические рекомендации к ГОСТу Р 6.30-2003¹:

Создадим файл в Excel и назовем его «Журнал регистрации распорядительных документов». Для этого можно использовать круглую кнопку «Office» в верхнем левом углу экрана (на Рисунке 1 отмечена цифрой 1), при нажатии на которую открывается меню, в нем выбираем первую команду – «Создать». Чтобы не потерять результаты своих дальнейших настроек, лучше сразу сохранить созданный файл; для этого подойдут команды «Сохранить» или «Сохранить как» того же меню.

Хитрости »

1 Май 2011              273536 просмотров

Ведение журнала сделанных в книге изменений

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

• Отслеживание изменений при помощи встроенных средств — Общий доступ к книге
• Отслеживание изменений и ведение журнала при помощи кода

Отслеживание изменений при помощи встроенных средств — Общий доступ к книге
Есть относительно простой способ отслеживать изменения(если это можно так назвать): дать книге общий доступ
Excel 2007 и выше: вкладка Рецензирование(Review) —Доступ к книге(Share workbook).
В более новых версиях(таких как Excel 2021 и выше, а так же Office 365) на вкладке Рецензирование(Review) нет команды Доступ к книге(Share workbook). Она спрятана, т.к. считается устаревшей и вместо неё Microsoft принуждает использовать общий доступ через OneDrive. Достать устаревшую возможность общего доступа можно через меню:
Файл(File) -Параметры(Options) -либо Панель быстрого доступа(Quick Access Toolbar) либо Настроить ленту(Customize ribbon) -в списке Выбрать команды из(Choose commands from) выбираем Все команды(All commands) и находим там пункт: Общий доступ к книге(старые версии)(Share workbook(Legacy) и Выделить исправления(Highlight changes). Перемещаем их либо на панель быстрого доступа(если она была выбрана изначально), либо на ту же вкладку Рецензирование(Review), если команда выбиралась в Настроить ленту(Customize ribbon).
После этого выбираем команду Общий доступ к книге(старые версии)(Share workbook(Legacy)
В появившемся окне поставить галочку разрешить изменять файл нескольким пользователям одновременно(Allow changes by more then one user at the same time):

Далее можно настроить срок хранения лога изменений, конфликты и пр — вкладка Подробнее(Advanced):

Регистрация изменений(Track changes)

• Хранить журнал в течение(keep change history for): — если необходимо вести журнал изменений(а нам необходимо!) то оставляем этот пункт включенным и устанавливаем количество дней, в течение которых необходимо сохранять историю. По умолчанию это 30 дней. Здесь имеются ввиду последние 30 дней от текущей даты. Т.е. по истечению этих 30 дней более ранние данные истории будут затерты
• Не хранить журнал изменений(don’t keep change history): после выбора этого пункта и подтверждения журнал будет удален(если он был создан) и история вестись не будет

Обновлять изменения

• При сохранении файла(When file is saved) — это самый оптимальный вариант. Данные об изменениях в файле будут обновляться только тогда, когда мы сами сохраним файл.
• Каждые(Automatically every): указывается промежуток времени в минутах, через который книга сама автоматически будет сохраняться и регистрировать изменения. Не очень удобен данный пункт если в файле одновременно работает несколько человек. При этом необходимо будет обязательно выбрать какое действие будет производится по умолчанию:
  • сохранить мои изменения и просмотреть чужие(save my changes and see others’ changes)
  • только просмотреть чужие изменения(just see other users’ changes)

  Пункты говорят сами за себя, можно отметить лишь один нюанс: принимать решение о сохранении тех или иных изменениях будет тот пользователь, который первым открыл файл.

Для противоречивых изменений(Conflicting changes between users)

данный пункт управляет разрешением конфликтов, если при одновременном пользовании файлом несколькими пользователями два и более пользователя сделали изменения в одной и той же ячейке листа.
• запрашивать чьи изменения имеют преимущество(ask me which changes win) — самый оптимальный вариант. Первый, открывший файл пользователь определяет какие изменения надо принять, а какие отклонить
• ранее сохраненные имеют преимущество(the changes being saving win) — не очень правильный вариант, но все зависит от ситуации. По логике при данном пункте при возникновении конфликта автоматически будут приняты лишь те изменения, которые были сделаны ранее. Может сыграть нехорошую шутку, поэтому надо быть острожным с этим пунктом

Включить в личное представление(Include in personal view)

Данный пункт управляет настройками печати и фильтра общей книги для нескольких пользователей.
• параметры печати(Print settings) — Обычно, в одном файле когда мы настраиваем параметры печати, они сохраняются внутри файла и при следующем открытии их не надо уже заново настраивать. Здесь тоже самое, но хранится для каждого пользователя отдельно. Т.е. даже если в этом файле один пользователь настроил одни параметры печати, а другой – иные, то для каждого пользователя эти параметры сохраняться. В обычной книге применились бы те параметры, которые были назначены перед последним сохранением книги.
• фильтры(Filter settings) — если один пользователь отфильтровал данные по «Юго-Восточный округ», а другой тот же столбец по «Северный округ», то при установленном данном пункте у каждого пользователя файл откроется с отфильтрованными строками именно по установленным ими параметрам — для каждого свой

Но оба эти пункта имеют большой недостаток: в зависимости от количества пользователей и их действий они могут сильно «раздувать» файл и приводить к значительным его «тормозам». Поэтому без необходимости лучше их не использовать

Теперь самое главное: как увидеть все сделанные изменения
После того, как пользователи поработали с файлом и стало необходимо увидеть сделанные изменения необходимо перейти на вкладке Рецензирование(Review) —Исправления(Track changes) —Выделить исправления(Highlight changes)

Здесь можно выбрать какие изменения показывать

• по времени(When) — если хотите увидеть только какие-то конкретные изменения, то надо установить галочку на этом пункте и выбрать нужное. Доступно выбрать: Со времени последнего сохранения, Все, Еще не просмотрено, С даты. Пункты достаточно красноречивы и понятны, расписывать каждый не вижу смысла. Если хотите просмотреть все изменения — галочку с этого пункта надо снять
• пользователем(Who) можно показать изменения, сделанные конкретным пользователем, всеми пользователями, или всеми пользователями, кроме того, кто запросил отчет об изменениях(т.е. кроме себя любимого)
• в диапазоне(Where) можно указать конкретный диапазон на листе и отчет об изменения будет выведен только для ячеек этого диапазона.

Выделять исправления на экране(Highlight changes on screen): если установить эту галочку, то изменения будут созданы в виде примечаний к ячейкам, изменения в которых были сделаны. В левом верхнем углу ячейки в этом случае появится черный треугольник, а при наведении на эту ячейку появится примечание с информацией о том кто изменил, когда и на что:

Вносить изменения на отдельный лист(List changes on a new sheet): в этом случае будет создан новый лист с именем «Журнал», в котором будут перечислены ячейки, в которые были внесены изменения с указанием даты и времени изменения, пользователя сделавшего изменение, старое и новое значение измененной ячейки:

Примечание: После того, как книге дан общий доступ книгу одновременно могут менять несколько пользователей. Однако я не рекомендую делать это без крайней необходимости, т.к. одновременный доступ к файлам Excel реализован очень плохо и работает это нестабильно. В какой-то момент файл может просто отказаться работать и все данные будут утеряны. Так же неизбежно будут возникать спорные ситуации, когда изменения внесли два человека одновременно и не сохранилось в результате ни одно из внесенных.

Но самый главный недостаток: книги в общем доступе имеют ряд ограничений, среди которых такие как:

• невозможно удалять листы
• невозможно создавать диаграммы, можно лишь просматривать созданные ранее
• невозможно создавать сводные таблицы, можно лишь просматривать созданные ранее
• невозможно создавать или изменять группировку данных, можно использовать ранее созданную
• невозможно изменять параметры защиты листов и книги
• невозможно использовать расширенный фильтр
• невозможно использовать Текст по столбцам
• невозможно создавать новые проверки данных, а так же изменять существующие. Допускается лишь обвести или удалить обводку с неверных данных
• невозможно добавлять или изменять ранее созданные формулы массива
• и т.д.

Плюс невозможно не только использовать умные таблицы, но и сделать книгу общей, если в ней есть хоть одна умная таблица. Если будет попытка сделать общий доступ к книге с умной таблицей Excel покажет предупреждение, что этого делать нельзя и проинструктирует как преобразовать такую таблицу в диапазон для возможности использовать общий доступ.
Так же хочу отметить, что есть распространенное заблуждение о невозможности использования макросов в книгах с общим доступом. Это не так, коды Visual Basic for Applications разрешается применять и в большинстве случаев они будут работать корректно и как задумывались, если они только не пытаются произвести действия, перечисленные как запрещенные для книг с общим доступом. Плюс невозможно просматривать и изменять коды в книгах с общим доступом.

• Имя пользователя(учетная запись пользователя на компьютере), сделавшего изменения
• адрес ячейки, в которую были внесены изменения
• дата и время внесения изменений
• имя листа, в котором были сделаны изменения
• значение ячейки до изменения(старое значение)
• значение ячейки после изменения(новое значение).

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

Option Explicit
Public sValue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim sLastValue As String
    Dim lLastRow As Long
 
    With Sheets("LOG")
        lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1
        If lLastRow = Rows.Count Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
        .Cells(lLastRow, 2) = Target.Address(0, 0)
        .Cells(lLastRow, 3) = Format(Now, "dd.mm.yyyy HH:MM:SS")
        .Cells(lLastRow, 4) = Sh.Name
        .Cells(lLastRow, 5).NumberFormat = "@"
        .Cells(lLastRow, 5) = sValue
        If Target.Count > 1 Then
            Dim rCell As Range, rRng As Range
            On Error Resume Next
            Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
            If Not rRng Is Nothing Then
                For Each rCell In rRng
                    If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err"
                Next rCell
                sLastValue = Mid(sLastValue, 2)
            Else
                sLastValue = ""
            End If
        Else
            If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"
        End If
        .Cells(lLastRow, 6).NumberFormat = "@"
        .Cells(lLastRow, 6) = sLastValue
    End With
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    If Target.Count > 1 Then
        Dim rCell As Range, rRng As Range
        On Error Resume Next
        Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
        If rRng Is Nothing Then Exit Sub
        For Each rCell In rRng
            If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
        Next rCell
        sValue = Mid(sValue, 2)
    Else
        If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
    End If
End Sub

Что такое модуль книги и как туда вставить код подробно описано в этой статье. Если кратко: открываем редактор VBA(Alt+F11) -находим в списке объектов ЭтаКнига(ThisWorkbook) -двойной щелчок по ней и в окно редактора справа вставляется этот код.

Лист «LOG» рекомендую сделать скрытым, иначе смысла в отслеживании действий мало, т.к. любой сможет перейти на этот лист и стереть историю своих изменений. Надежно скрыть лист поможет эта статья: Как сделать лист очень скрытым.

Для того, чтобы хранить историю изменений в отдельном текстовом файле или отдельной книге Excel можно применить такой код:

Option Explicit
Public sValue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim sLastValue As String
    Dim lLastRow As Long, wbLOG As Workbook
    Dim sPath as String
    Const sLOGName As String = "LOG.txt" '"LOG.xls"
    sPath = Application.DefaultFilePath
    Application.ScreenUpdating = False
    '==============   только для записи в текстовый файл   ======================
    If Dir(sPath & sLOGName, vbDirectory) = "" Then
        Open sPath & sLOGName For Output As #1: Close #1
    End If
    '==============   только для записи в отдельный файл Excel ======================
'    If Dir(sPath & sLOGName, vbDirectory) = "" Then
'        Set wbLOG = Workbooks.Add
'        wbLOG.SaveAs sPath & sLOGName, xlNormal
'    End If
    Set wbLOG = Workbooks.Open(sPath & sLOGName)
    '============================================================================
    With wbLOG.Sheets(1)
        lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1
        If lLastRow = .Rows.Count Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
        .Cells(lLastRow, 2) = Target.Address(0, 0)
        .Cells(lLastRow, 3) = Format(Now, "dd.mm.yyyy HH:MM:SS")
        .Cells(lLastRow, 4) = Sh.Name
        .Cells(lLastRow, 5).NumberFormat = "@"
        .Cells(lLastRow, 5) = sValue
        If Target.Count > 1 Then
            Dim rCell As Range, rRng As Range
            On Error Resume Next
            Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
            If Not rRng Is Nothing Then
                For Each rCell In rRng
                    If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err"
                Next rCell
                sLastValue = Mid(sLastValue, 2)
            Else
                sLastValue = ""
            End If
        Else
            If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"
        End If
        .Cells(lLastRow, 6).NumberFormat = "@"
        .Cells(lLastRow, 6) = sLastValue
    End With
    wbLOG.Close 1
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    If Target.Count > 1 Then
        Dim rCell As Range, rRng As Range
        On Error Resume Next
        Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
        If rRng Is Nothing Then Exit Sub
        For Each rCell In rRng
            If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
        Next rCell
        sValue = Mid(sValue, 2)
    Else
        If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
    End If
End Sub

Файл хранится в папке «Мои документы» пользователя. Имя файла — LOG.txt задается посредством константыConst sLOGName As String = «LOG.txt»

Чтобы вести изменения в отдельной книге Excel надо будет всего лишь закомментировать строки под «только для записи в текстовый файл» и раскомментировать строки под «только для записи в отдельный файл Excel» и поменять значение для константыConst sLOGName As String = «LOG.xls»
Не следует оставлять оба этих блока — они противоречат друг другу и если оставить оба, то будет создан текстовый файл, но изменения все равно будут заноситься в отдельную книгу Excel.
Если хотите, чтобы файл с историей изменений хранился в папке, отличной от Мои документы, то необходимо
Application.DefaultFilePath заменить на нужный путь, к примеру такой:sPath = «C:UsersThe_PristРабочий стол»

При изменении данного параметра необходимо учитывать, что не у всех пользователей может быть доступ к конкретной папке.

Все чаще стали появляться вопросы типа «А как отследить изменения только в конкретном диапазоне?». На самом деле не очень сложно. Надо добавить пару строк, которые будут определять в каких ячейках были изменения и какие отслеживать. Только добавить строки надо будет в обеих процедурах: Workbook_SheetChange и Workbook_SheetSelectionChange.
Например, код ниже будет отслеживать только те ячейки, для которых значение изменили только в диапазоне B:F:

Option Explicit
Public sValue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim rCells As Range
    'если изменения произошли не в диапазоне "B:F" - ничего не делаем
    On Error Resume Next
    Set rCells = Intersect(Target, Range("B:F"))
    If rCells Is Nothing Then Exit Sub
    On Error GoTo 0
 
    Dim sLastValue As String
    Dim lLastRow As Long, wbLOG As Workbook
    Dim sPath as String
    Const sLOGName As String = "LOG.txt" '"LOG.xls"
    sPath = Application.DefaultFilePath
    Application.ScreenUpdating = False
    '==============   только для записи в текстовый файл   ======================
    If Dir(sPath & sLOGName, vbDirectory) = "" Then
        Open sPath & sLOGName For Output As #1: Close #1
    End If
    '==============   только для записи в отдельный файл Excel ======================
'    If Dir(sPath & sLOGName, vbDirectory) = "" Then
'        Set wbLOG = Workbooks.Add
'        wbLOG.SaveAs sPath & sLOGName, xlNormal
'    End If
    Set wbLOG = Workbooks.Open(sPath & sLOGName)
    '============================================================================
    With wbLOG.Sheets(1)
        lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1
        If lLastRow = .Rows.Count Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName
        .Cells(lLastRow, 2) = Target.Address(0, 0)
        .Cells(lLastRow, 3) = Format(Now, "dd.mm.yyyy HH:MM:SS")
        .Cells(lLastRow, 4) = Sh.Name
        .Cells(lLastRow, 5).NumberFormat = "@"
        .Cells(lLastRow, 5) = sValue
        If rCells.Count > 1 Then
            Dim rCell As Range, rRng As Range
            On Error Resume Next
            Set rRng = Intersect(rCells, Sh.UsedRange): On Error GoTo 0
            If Not rRng Is Nothing Then
                For Each rCell In rRng
                    If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err"
                Next rCell
                sLastValue = Mid(sLastValue, 2)
            Else
                sLastValue = ""
            End If
        Else
            If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"
        End If
        .Cells(lLastRow, 6).NumberFormat = "@"
        .Cells(lLastRow, 6) = sLastValue
    End With
    wbLOG.Close 1
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
    Dim rCells As Range
    'если изменения произошли не в диапазоне "B:F" - ничего не делаем
    On Error Resume Next
    Set rCells = Intersect(Target, Range("B:F"))
    If rCells Is Nothing Then Exit Sub
    On Error GoTo 0
 
    If rCells.Count > 1 Then
        Dim rCell As Range, rRng As Range
        On Error Resume Next
        Set rRng = Intersect(rCells, Sh.UsedRange): On Error GoTo 0
        If rRng Is Nothing Then Exit Sub
        For Each rCell In rRng
            If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
        Next rCell
        sValue = Mid(sValue, 2)
    Else
        If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
    End If
End Sub

Скачать пример

  Tips_Macro_LOG.xls (50,0 KiB, 8 023 скачиваний)

Так же см.:
Выделение сделанных изменений
Запись изменений на листе в примечания

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Журнал учета заявок Excel

Если театр начинается с вешалки, то бизнес в сфере предоставления услуг начинается с регистрации заявок. Журнал учета заявок excel — автоматизированная табличная форма регистрации и ведения заявок на предоставление услуг, созданная в среде Microsoft Excel. Удобный инструмент учета входящего потока клиентов, обеспечивающий сопровождение заказа от этапа поступления заявки до момента его завершения и получения обратной связи. Применение данного инструмента позволит отойти от устаревшей бумажной формы журнала, что позволит увеличить эффективность работы: отслеживание статуса заявки, назначение исполнителей, ведение единой клиентской базы. Также электронная версия журнала учета заявок обладает всеми возможностями стандартного документа Excel, такими как форматирование данных, фильтрация, сортировка, что существенно повышает скорость обработки заказов.

Ссылка для скачивания:

— Скачать журнал учета заявок Excel (архив 410 КБ)

Как начать работу с журналом учета заявок в excel:

1. Скачайте архив с файлом по ссылке выше и разархивируйте с помощью программы 7zip или WinRar.

2. При появлении баннера предупреждения закройте программу, кликните правой кнопкой мыши на файле, выберите «Свойства», далее установите галочку в разделе «Разблокировать».

3. Если в Вашем Microsoft Office запуск макросов по умолчанию выключен, то в данном предупреждении необходимо кликнуть «Включить содержимое».

4. Для полноценной работы с программой также необходимо нажать кнопку «Разрешить редактирование» при появлении сообщения, как на рисунке ниже.

Инструкция по настройке журнала учета заявок

Журнал учета заявок представляет из себя стандартную рабочую книгу Excel в формате поддержки макросов xlsm. При открытии файла по умолчанию вам будут доступны три листа:

• Инструкция — перечень действий для первого запуска и настройки программы;
• Настройки — справочники для автозаполнения полей со списком на листе журнала учета заявок;
• Январь гггг — непосредственно сам журнал учета заявок, построенный на основе тестовых данных для ознакомления с функционалом и возможностями программы.

Перейдем к более детальному рассмотрению листа с настройками.

Данный лист состоит из следующих основных элементов:

• Справочник исполнителей — список сотрудников в формате [ФИО | Должность], ответственных за выполнение заявки;
• Справочник статусов заявок — перечень статусов/состояний заявки. Можно отредактировать на свое усмотрение;
• Справочник диспетчеров — сотрудники, которые отвечают за прием и регистрацию входящего потока клиентов.
• Кнопка «Создать журнал» — запуск процедуры построения чистого шаблона журнала за определенный месяц и год (выбираются во всплывающем диалоговом окне).

Для построения журнала учета заявок заполните справочные таблицы своими данными и нажмите кнопку «Создать журнал». Далее выберите месяц и год построения.

Ведение журнала учета заявок

После того как журнал учета заявок будет сформирован, в Вашем распоряжении окажется пустой лист — шаблон документа. Каждый новый лист имеет наименование [месяц_год], для того чтобы упорядочить учет по периодам. Рассмотрим основные правила заполнения таблицы на основе заполненного тестового примера.

Первая часть таблицы представлена на рисунке ниже:

Вторая часть таблицы:

Дата поступления заявки заполняется с помощью встроенного календаря. Вызовите его кликнув правой кнопкой мыши на ячейке с датой. Время поступления заявки заполняется вручную. Далее идет блок данных заявителя: ФИО, телефон, адрес. Также заполняется вручную диспетчером (менеджером) при поступлении заявки. Блок №6 «Описание заявки» — краткий перечень основных работ. Следом идет колонка «Назначенный исполнитель» — выберите сотрудника из выпадающего списка (подтягивается с листа Настройки), который ответственен за выполнение работ по заявке. Статус заявки аналогично заполняется с помощью выбора одного из предложенных вариантов. По умолчанию на листе настроек указаны следующие статусы: В работе, Ожидание, Выполнена, Не выполнена, Отменена, Перенесена. При смене статуса, для наглядности, строка заявки окрашивается в соответствующий цвет посредством условного форматирования. Замените или удалите статусы на листе настроек при необходимости. В блоке №9 «Комментарий по заявке» можно оставлять актуальные заметки о ходе выполнения заказа.

Формат таблицы имеет рекомендательных характер и может быть изменен / доработан в соответствии с потребностями Вашего бизнеса. Контакты для связи со мной приведены ниже.

Заказать разработку или доработку программы

Доброго времени суток, дорогие читатели!

Надеюсь, Вам понравилась моя статья и данное ПО окажется полезным для Вашего дела. Более 10 лет работаю в сфере автоматизации бизнес процессов на ежедневной основе. За эти годы накоплен огромный опыт решения рутинных задач, на которые менеджеры тратят часы, а порой и дни! Готов взяться за реализацию любого продукта, дать совет по автоматизации Ваших бизнес потребностей. Занимаюсь индивидуальной разработкой программ учета для организаций и предприятий, а также настройкой и доработкой представленных продуктов. Среди моих клиентов как крупные российские компании, так и огромное количество представителей малого бизнеса. Гарантирую качество и индивидуальный подход к любой задаче. Ну, и приятное общение, само собой разумеется!) Для связи со мной можно использовать WatsApp +79507094770, сайт excellab.ru или написать мне на почту: goryaninov@bk.ru, профиль вк.

Ссылка для скачивания:

— Скачать журнал учета заявок Excel (архив 410 КБ)

Другие популярные программы и продукты Excellab.ru

Здесь можно ознакомиться с другими программами автоматизации, которые представлены на моем сайте:

— Дневной табель учета рабочего времени в excel
— Почасовой табель учета рабочего времени в excel
— Табель учета рабочего времени в днях по форме Т-13
— Табель расчет и планирование вахты
— Табель учета рабочего времени с учетом ночных смен
— Учет доходов и расходов
— Автоматизированное формирование документов

— Платежный календарь в excel

Cоздадим рабочую книгу Journal.xls и разобьем ее на рабочие листы с закладками соответствующих журналов: Прием, Перевод, Увольнение, Отпуск, Командировка, Договоры, СУП (система управления предприятием) и Обложка. Количество журналов зависит от документооборота предприятия. При большом объеме документооборота можно вести отдельно журналы регистрации по приему на работу, увольнению и переводам работников (их будет отличать номер с обязательным реквизитом – датой регистрации). Это позволяет быстро получить данные о количестве принятых или уволенных за определенный период. Также данная форма книги позволяет систематизировать издаваемые на предприятии приказы (распоряжения) по срокам хранения¹, отследить дату издания того или иного приказа, а также сохранить непрерывность текущих номеров приказов в случае, если необходимо по каким-либо причинам изъять приказ из места их общего хранения.

Журнал приема на работу служит для регистрации приказов (распоряжений), изданных по унифицированным формам № Т-1 или № Т-1а. Срок хранения – 75 лет. Выделим следующие графы указанного журнала: порядковый номер в пределах регистрируемого массива (как правило, за год), дата издания приказа, Ф.И.О. работника, наименование должности работника, наименование отдела (цеха), номер трудового договора, примечание. Можно также указать место хранения приказа (наименование папки) в случае, если необходим быстрый поиск приказов по их содержанию. Пример рабочего листа журнала приема на работу показан на рис. 1.

Рисунок 1

Журнал учета приема на работу

Воспользуемся возможностью электронной таблицы Excel, позволяющей выбрать записи, удовлетворяющие определенному условию, и временно скрыть все остальные с помощью фильтра. Для этого необходимо выбрать пункты меню Данные > Фильтр > Автофильтр. В меню Фильтр:

• пункт Все не применяется для ограничения набора отображаемых записей и используется по умолчанию для каждого поля;
• пункт Первые 10 используется в числовых полях, чтобы отобразить первые или последние десять, пять или любое другое количество (или долю) записей;
• пункт Условие позволяет задать произвольное условие, не входящее в список.

При распечатке данных с включенным фильтром будут напечатаны только отфильтрованные записи. Это позволяет быстро создавать нужные отчеты на основе части информации базы данных Excel.

Журнал переводов на работу служит для регистрации приказов (распоряжений), изданных по унифицированным формам № Т-5 или № Т-5а. Срок хранения – 75 лет. В указанном журнале имеет смысл создать следующие графы: порядковый номер (может дополняться буквенным индексом), дата издания приказа, Ф.И.О. работника, наименование должности (прежнее место и новое место), наименование отдела или цеха (прежнее место и новое место), примечание. В графе «Примечание» контролируется движение документа (подписан / не подписан). Для этого можно использовать пункты меню Вид > Примечание. Пример рабочего листа журнала переводов на работу показан на рис. 2.

Рисунок 2

Журнал учета переводов на работу

Журнал увольнений служит для регистрации приказов (распоряжений) по унифицированным формам № Т-8 или № Т-8а. Срок хранения – 75 лет. Для него можно использовать следующие графы указанного журнала: порядковый номер, дата издания приказа, Ф.И.О. работника, наименование должности, наименование отдела (цеха), дата увольнения, основание прекращения трудовых отношений. Пример рабочего листа журнала увольнений на работу приведен на рис. 3.

Рисунок 3

Журнал учета увольнений

Срок хранения журнала учета трудовых договоров составляет 75 лет. Он может потребоваться в том случае, если предприятие заключает с работниками срочные трудовые договоры. При этом необходимо четко отслеживать не только дату заключения, но и истечение срока действия, иначе, согласно ч. 4 ст. 58 ТК РФ, такой срочный трудовой договор может стать трудовым договором, заключенным на неопределенный срок. Обычно в данном журнале указываются порядковый номер записи и год заключения договора, дата заключения трудового договора, Ф.И.О. поступающего на работу, должность, срок действия и дата прекращения трудового договора (для срочных трудовых договоров), номер изменения к трудовому договору. Пример рабочего листа журнала учета трудовых договоров показан на рис. 4.

Рисунок 4

Журнал учета трудовых договоров

Журнал учета отпусков служит для регистрации приказов (распоряжений), изданных по унифицированным формам № Т-6 или № Т-6а. Он имеет краткий срок хранения – 3 года (ст. 358 Перечня типовых управленческих документов, образующихся в деятельности организаций, с указанием сроков хранения, утв. Росархивом 06.10.2000). В этом журнале можно создать следующие графы: порядковый номер, дата издания приказа, Ф.И.О. работника, наименование должности работника, даты отпуска, вид отпуска, основание его предоставления. Пример рабочего листа показан на рис. 5.

Рисунок 5

Журнал учета отпусков

Журнал учета командировок служит для регистрации приказов (распоряжений) по унифицированным формам № Т-9 или № Т-9а, а также командировочных удостоверений по унифицированной форме № Т-10. Назовем следующие его графы: порядковый номер, дата, Ф.И.О. командируемого, наименование и номер документа, страна пребывания (важно для срока хранения), даты начала и окончания командировки. Пример рабочего листа журнала командировок показан на рис. 6.

Рисунок 6

Журнал учета командировок

Журнал по системе управления предприятием удобен тем, что в нем, при условии систематического ведения, отражается вся информация о деятельности предприятия. Это приказы по основной деятельности (об утверждении и изменении в штатном расписании, о премировании, о простое, об изменении графика отпусков, о материальной помощи и др.). Данный журнал представляет собой совокупность граф, которые могут быть изменены в соответствии со спецификой предприятия. Примерный перечень следующий: порядковый номер, дата, наименование документа, срок хранения (долгосрочный или краткосрочный), примечание. Пример рабочего листа журнала по основной деятельности или системе управления предприятием показан на рис. 7.

Для защиты рабочих листов от исправлений можно использовать команду меню Сервис > Защита > Защитить лист. Если количество строк в рабочей тетради по высоте соответствует формату А4 (около 30 строк), необходимо распечатать лист журнала приказов.

Рисунок 7

Журнал учета приказов по основной деятельности

Рабочий лист с закладкой Обложка представляет собой унифицированную форму, по которой можно получать обложки для всех журналов регистраций. Пример оформления обложки журнала учета приказов представлен на рис. 8.

Для защиты от несанкционированного доступа журналы регистрации приказов (распоряжений) необходимо пронумеровать, прошнуровать и скрепить печатью предприятия и подписью руководителя. Таким образом, редактор таблиц Excel предоставляет мощный инструментарий для создания, форматирования и редактирования документов. HR-менеджеры смогут самостоятельно систематизировать работу с журналами, что позволит сэкономить время и силы при работе с учетной информацией.

Рисунок 8

Форма заполнения обложки журнала регистрации приказов

¹ Сроки хранения документов см. в Перечне типовых управленческих документов, образующихся в деятельности организаций, с указанием сроков хранения, утв. Росархивом 06.10.2000.