Макрос по подсчету ячеек одинакового цвета, некорректная работа

18.03.2013, 23:30. **Показов** 3422. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Всем привет. Я не силен в макросах, поэтому обращаюсь за помощью к спецам. У меня макрос для подсчета ячеек одинакового цвета.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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 для пересчета. Можно было бы и так оставить, но можно пропустить случайно сутки к примеру. Забыл нажать и все. А штат большой.
Как выйди из данной ситуации?

@Все имена заняты · 19.03.2013, 00:25

Похожая тема тут.
Если коротко, то совсем автоматически не получится.

Можно добавить в функцию строку, чтобы код функции выглядел так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Function color_count(my_range As Range, active_color_cell As Range) As Integer
Application.Volatile
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

Пересчет будет по нажатию клавиши F9, в ячейки заходить и нажимать enter не надо.

Еще можно добавить пересчет листа перед закрытием книги

Visual Basic
1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets(1).Calculate
End Sub

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

20.03.2013, 11:57

Пересчет кнопкой ф-9 "ПРОСТОЧУМА". Спасибо!!! Думаю, лучше ничего не придумать в этой ситуации.
п.с. А почему, сам файл ХЛ у меня сохраняется с макросами, и выглядит с восклицательным знаком, а у вас, как обычный файл????

@Все имена заняты · 20.03.2013, 12:42

Не по теме:

У вас файл xlsm - книга с макросами для 2007 офиса и выше. Я сохранил как xls - в формате 2003 офиса, так удобнее загружать файлы на форум.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

petti22
	20.03.2013, 11:57
	Пересчет кнопкой ф-9 "ПРОСТОЧУМА". Спасибо!!! Думаю, лучше ничего не придумать в этой ситуации. п.с. А почему, сам файл ХЛ у меня сохраняется с макросами, и выглядит с восклицательным знаком, а у вас, как обычный файл????

@Все имена заняты
	20.03.2013, 12:42
	Не по теме: У вас файл xlsm - книга с макросами для 2007 офиса и выше. Я сохранил как xls - в формате 2003 офиса, так удобнее загружать файлы на форум. 0