Всем привет. Я не силен в макросах, поэтому обращаюсь за помощью к спецам. У меня макрос для подсчета ячеек одинакового цвета.
Беда в том, что когда я заливаю ячейку вручную, он не считает, а когда автоматом протягиваю, пересчитывает всю зону, и в том числе ячейку, которая залита в ручную. Нигде не найду инфу по решению данного вида нюансов. Используется в подсчете смен рабочих, вышел в смену, закрасил ячейку под датой, не вышел не закрасил.
Поэтому приходится постоянно открывать ячейку с формулой подсчета, и нажимать ENTER для пересчета. Можно было бы и так оставить, но можно пропустить случайно сутки к примеру. Забыл нажать и все. А штат большой.
Как выйди из данной ситуации?
Код |
---|
Function color_count(my_range As Range, active_color_cell As Range) As Integer color_count = 0 active_color = active_color_cell.Interior.ColorIndex For Each cc In my_range.Cells If cc.Interior.ColorIndex = active_color Then color_count = color_count + 1 End If Next cc End Function |
Беда в том, что когда я заливаю ячейку вручную, он не считает, а когда автоматом протягиваю, пересчитывает всю зону, и в том числе ячейку, которая залита в ручную. Нигде не найду инфу по решению данного вида нюансов. Используется в подсчете смен рабочих, вышел в смену, закрасил ячейку под датой, не вышел не закрасил.
Поэтому приходится постоянно открывать ячейку с формулой подсчета, и нажимать ENTER для пересчета. Можно было бы и так оставить, но можно пропустить случайно сутки к примеру. Забыл нажать и все. А штат большой.
Как выйди из данной ситуации?