Суть вопроса: необходимо посчитать количество объединённых ячеек с заливкой. Имеются коды с подсчетом ячеек с заливкой или суммирования их значений по цвету - не подходит.[size=11][font=Arial][color=red][spoiler]
Суть вопроса: необходимо посчитать количество объединённых ячеек с заливкой. Имеются коды с подсчетом ячеек с заливкой или суммирования их значений по цвету - не подходит.[size=11][font=Arial][color=red][spoiler]mikervsn
Public Sub SelectMergeCells() Dim c As Range, s$, fA$, r As Range With Application.FindFormat .Clear .Interior.Color = 255 End With With ActiveSheet.Columns("l") Set c = .Find("", [l1], xlFormulas, 2, SearchFormat:=True) If Not c Is Nothing Then Set r = c fA = c.Address: Do Set c = .Find("", c, xlFormulas, 2, SearchFormat:=True) Set r = Union(r, c) Loop While Not c Is Nothing And c.Address <> fA End If End With MsgBox "found " & r.Areas.Count & " cells!" r.Select End Sub
[/vba]
Прозрели таки [vba]
Код
Public Sub SelectMergeCells() Dim c As Range, s$, fA$, r As Range With Application.FindFormat .Clear .Interior.Color = 255 End With With ActiveSheet.Columns("l") Set c = .Find("", [l1], xlFormulas, 2, SearchFormat:=True) If Not c Is Nothing Then Set r = c fA = c.Address: Do Set c = .Find("", c, xlFormulas, 2, SearchFormat:=True) Set r = Union(r, c) Loop While Not c Is Nothing And c.Address <> fA End If End With MsgBox "found " & r.Areas.Count & " cells!" r.Select End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
