Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подсчёт количества объединённых ячеек с заливкой. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт количества объединённых ячеек с заливкой. (Макросы/Sub)
Подсчёт количества объединённых ячеек с заливкой.
mikervsn Дата: Воскресенье, 30.10.2016, 16:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Суть вопроса: необходимо посчитать количество объединённых ячеек с заливкой. Имеются коды с подсчетом ячеек с заливкой или суммирования их значений по цвету - не подходит.[size=11][font=Arial][color=red][spoiler]


mike
 
Ответить
СообщениеСуть вопроса: необходимо посчитать количество объединённых ячеек с заливкой. Имеются коды с подсчетом ячеек с заливкой или суммирования их значений по цвету - не подходит.[size=11][font=Arial][color=red][spoiler]

Автор - mikervsn
Дата добавления - 30.10.2016 в 16:11
KuklP Дата: Воскресенье, 30.10.2016, 16:15 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1994
Репутация: 435 ±
Замечаний: 0% ±

Посчитал. Много.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПосчитал. Много.

Автор - KuklP
Дата добавления - 30.10.2016 в 16:15
mikervsn Дата: Воскресенье, 30.10.2016, 16:21 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, добры вечер. "Много" это не правильный ответ, к сожалению. Должно (исходя из примера) получиться - 4 ячейки.


mike
 
Ответить
СообщениеKuklP, добры вечер. "Много" это не правильный ответ, к сожалению. Должно (исходя из примера) получиться - 4 ячейки.

Автор - mikervsn
Дата добавления - 30.10.2016 в 16:21
mikervsn Дата: Воскресенье, 30.10.2016, 16:27 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вот файл.
К сообщению приложен файл: 2673466.xlsx(9Kb)


mike

Сообщение отредактировал mikervsn - Воскресенье, 30.10.2016, 16:27
 
Ответить
СообщениеВот файл.

Автор - mikervsn
Дата добавления - 30.10.2016 в 16:27
KuklP Дата: Понедельник, 31.10.2016, 07:39 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1994
Репутация: 435 ±
Замечаний: 0% ±

Прозрели таки :)
[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
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПрозрели таки :)
[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
[/vba]

Автор - KuklP
Дата добавления - 31.10.2016 в 07:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт количества объединённых ячеек с заливкой. (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!