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

Вход

Регистрация

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

 

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

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

Excel 2013
Добрый день.
Стоит такая задача. Есть график производственного времени (приложен). В нем есть области распределенные по времени (например "производство"). Нужно узнать сколько времени занимает производство в неделю - для этого нужно посчитать сколько ячеек занимает на графике слово "производство". Момент в том, что почти все ячейки объединены, и нужно знать сколько ячеек занимает слово, если бы ячейки были бы по отдельности.
К сообщению приложен файл: 7510061.xls(11Kb)
 
Ответить
СообщениеДобрый день.
Стоит такая задача. Есть график производственного времени (приложен). В нем есть области распределенные по времени (например "производство"). Нужно узнать сколько времени занимает производство в неделю - для этого нужно посчитать сколько ячеек занимает на графике слово "производство". Момент в том, что почти все ячейки объединены, и нужно знать сколько ячеек занимает слово, если бы ячейки были бы по отдельности.

Автор - drugojandrew
Дата добавления - 26.02.2016 в 11:49
SLAVICK Дата: Пятница, 26.02.2016, 12:54 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1844
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Можно ЮДФкой:
[vba]
Код
Function calkMergIf(range_ As Range, Optional kriteria$)
Dim r As Range, i&
For Each r In range_
    If r.MergeArea.Cells(1, 1).Value = kriteria$ Then i = i + 1
Next
calkMergIf = i
End Function

Function summMergIf(range_ As Range, rangeSumm_ As Range, Optional kriteria$)
Dim r As Range, i#, n&
For Each r In range_
n = n + 1
    If r.MergeArea.Cells(1, 1).Value = kriteria$ Then _
    i = i + rangeSumm_.Cells(1, n) - rangeSumm_.Cells(2, n)
Next
summMergIf = i
End Function
[/vba]
К сообщению приложен файл: 0766180.xls(44Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно ЮДФкой:
[vba]
Код
Function calkMergIf(range_ As Range, Optional kriteria$)
Dim r As Range, i&
For Each r In range_
    If r.MergeArea.Cells(1, 1).Value = kriteria$ Then i = i + 1
Next
calkMergIf = i
End Function

Function summMergIf(range_ As Range, rangeSumm_ As Range, Optional kriteria$)
Dim r As Range, i#, n&
For Each r In range_
n = n + 1
    If r.MergeArea.Cells(1, 1).Value = kriteria$ Then _
    i = i + rangeSumm_.Cells(1, n) - rangeSumm_.Cells(2, n)
Next
summMergIf = i
End Function
[/vba]

Автор - SLAVICK
Дата добавления - 26.02.2016 в 12:54
drugojandrew Дата: Пятница, 26.02.2016, 13:19 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SLAVICK, спасибо, то что надо
 
Ответить
СообщениеSLAVICK, спасибо, то что надо

Автор - drugojandrew
Дата добавления - 26.02.2016 в 13:19
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подсчёт количества ячеек, содержащих объединённые ячейки (Формулы/Formulas)
Страница 1 из 11
Поиск:

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