Блог

У меня есть проект с сотрудниками (от 1 до 8 сотрудников) и их ежемесячный график, и у меня есть 2 (или более) рабочих должности. Их номера сдвига равны 1,2 и 3. Допустим, S1 — это 1-я запись, а S2 — вторая. Сотрудники с 1 по 4 обычно запланированы для S1 и 5-8 для S2. Когда мне нужен сотрудник из S1 для работы в смену на S2, я помещаю эту смену в его строку S1 с индикатором (например, 2 S02), и у меня есть второй лист, в котором указаны все смены с индексом / совпадением (Мне нужно, чтобы вся программа была в одной строке, чтобы я мог выполнить некоторые другие вычисления на 2-м листе). Затем на 1-м листе у меня есть все сотрудники на обеих должностях (так что обе должности имеют 8 строк), с дополнительными строками для каждой, скрытыми с помощью функции counta и фильтра 0/1, которые содержат простую функцию if, которая возвращает только номер смены, а не индикатор должности. Эти строки считывают значение со второго листа и возвращают сдвиг, который вставляется в другой записи, поэтому, когда отфильтрованное значение счетчика становится 1, у меня есть команда vba, которая выполняет повторное применение фильтра каждый раз, когда вставляется значение, поэтому появляется строка. Такой подход делает рабочую книгу слишком медленной при работе со 100 сотрудниками и 20 должностями. Есть ли способ отобразить строки с помощью другого более легкого метода?

На 1-м рисунке вы можете видеть, как выглядит лист без фильтрации, а на 2-м — как он выглядит отфильтрованным.

Команда VBA, которую я использую, выглядит следующим образом:

 Private Sub Worksheet_Change(ByVal Target As Range)
   Sheets("SHIFTS").AutoFilter.ApplyFilter
End Sub
  

Заранее спасибо.

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

Я вижу два возможных результата для этого:

1. Либо вы предвидите какую-то форму, в которой люди могут вводить все значения для определенного сотрудника, и когда они нажимают кнопку «Ок», значения заполняются, а затем вы повторно применяете фильтр. (Очевидно, это означает, что вам нужно удалить упомянутый макрос).

2. Либо вы упоминаете, что автофильтр необходимо применять только в случае ввода определенного значения (скажем, столбец «E»), это можно сделать следующим образом:

    Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Column = 5 'Column "E" stands for .Column number 5
     Then Sheets("SHIFTS").AutoFilter.ApplyFilter
     End If
   End Sub