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

Вход

Регистрация

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

 

= Мир MS Excel/Суммесли при объединенной ячейки считает не полностью - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Суммесли при объединенной ячейки считает не полностью (Формулы/Formulas)
Суммесли при объединенной ячейки считает не полностью
abtextime Дата: Среда, 06.07.2016, 21:02 | Сообщение № 21
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
немного подкорректировал
[vba]
Код

Public Function MySum(N1, N2 As Integer) As Double
i = N1
For Each R In Range(Cells(N1 + 1, 1), Cells(N2 - 1, 1))
    i = i + 1
    F = R.MergeArea.Address
    FF = R.Address
    Ins = InStr(F, ":")
    IsFirstCell = (Left(F, Ins - 1) = FF)
    If IsFirstCell Then j = i
    If IsFirstCell Then V = Cells(i, 1).Value
    If V <> "" Then S = S + Cells(i, 2).Value
Next
MySum = S
End Function
[/vba]

Код
=MySum(СТРОКА($A$1:$B$1);СТРОКА())
К сообщению приложен файл: 9112853.xlsm (18.1 Kb)
 
Ответить
Сообщениенемного подкорректировал
[vba]
Код

Public Function MySum(N1, N2 As Integer) As Double
i = N1
For Each R In Range(Cells(N1 + 1, 1), Cells(N2 - 1, 1))
    i = i + 1
    F = R.MergeArea.Address
    FF = R.Address
    Ins = InStr(F, ":")
    IsFirstCell = (Left(F, Ins - 1) = FF)
    If IsFirstCell Then j = i
    If IsFirstCell Then V = Cells(i, 1).Value
    If V <> "" Then S = S + Cells(i, 2).Value
Next
MySum = S
End Function
[/vba]

Код
=MySum(СТРОКА($A$1:$B$1);СТРОКА())

Автор - abtextime
Дата добавления - 06.07.2016 в 21:02
sollip Дата: Среда, 06.07.2016, 22:01 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
buchlotnik, Вы Маг и Волшебник! Только я все равно не пойму как ее применить для себя) Дело в том, что у меня все это хозяйство идет вперемежку объединенные ячейки и ординарные. Вы только один понял, что требуется. Прошу Вас посмотреть таблицу прикрепленную в сообщении. Заранее огромное Вам спасибо
К сообщению приложен файл: 11111111111111.xlsx (11.6 Kb)
 
Ответить
Сообщениеbuchlotnik, Вы Маг и Волшебник! Только я все равно не пойму как ее применить для себя) Дело в том, что у меня все это хозяйство идет вперемежку объединенные ячейки и ординарные. Вы только один понял, что требуется. Прошу Вас посмотреть таблицу прикрепленную в сообщении. Заранее огромное Вам спасибо

Автор - sollip
Дата добавления - 06.07.2016 в 22:01
RAN Дата: Среда, 06.07.2016, 22:50 | Сообщение № 23
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Function SumIfMerge(strCrit As Range, rCrit As Range, rRange As Range) As Double
    Dim arr1, arr2, k#, i&
    arr1 = rCrit.Value
    arr2 = rRange.Value
    For i = LBound(arr1) To UBound(arr1)
        If Len(arr1(i, 1)) = 0 Then arr1(i, 1) = arr1(i - 1, 1)
        If arr1(i, 1) = strCrit Then k = k + arr2(i, 1)
    Next
   SumIfMerge= k
End Function
[/vba]


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 07.07.2016, 07:56
 
Ответить
Сообщение[vba]
Код
Function SumIfMerge(strCrit As Range, rCrit As Range, rRange As Range) As Double
    Dim arr1, arr2, k#, i&
    arr1 = rCrit.Value
    arr2 = rRange.Value
    For i = LBound(arr1) To UBound(arr1)
        If Len(arr1(i, 1)) = 0 Then arr1(i, 1) = arr1(i - 1, 1)
        If arr1(i, 1) = strCrit Then k = k + arr2(i, 1)
    Next
   SumIfMerge= k
End Function
[/vba]

Автор - RAN
Дата добавления - 06.07.2016 в 22:50
abtextime Дата: Среда, 06.07.2016, 22:56 | Сообщение № 24
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Прошу Вас посмотреть таблицу

Хотел открыть файл, но вовремя понял, что он только для buchlotnik :)
 
Ответить
Сообщение
Прошу Вас посмотреть таблицу

Хотел открыть файл, но вовремя понял, что он только для buchlotnik :)

Автор - abtextime
Дата добавления - 06.07.2016 в 22:56
buchlotnik Дата: Четверг, 07.07.2016, 00:38 | Сообщение № 25
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
sollip, а я ведь дважды попросил показать реальный пример. А так без макросов никак, имхо. Но вы упорно игнорируете варианты от abtextime и RAN
 
Ответить
Сообщениеsollip, а я ведь дважды попросил показать реальный пример. А так без макросов никак, имхо. Но вы упорно игнорируете варианты от abtextime и RAN

Автор - buchlotnik
Дата добавления - 07.07.2016 в 00:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Суммесли при объединенной ячейки считает не полностью (Формулы/Formulas)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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