Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
определение ячеек или диапазона для промежуточного итога, определение ячеек или диапазона для промежуточного итога
 
#1
30.09.2022 13:06:32
Добрый день, форумчани. Столкнулся с проблемой автоматического определения диапазона ячеек для формулы "МИН". Во вложение пример файла. В столбце "A" показаны уровни иерархии разделов и задач (от 1 до 8). Если номер 1 до 5, то должна подставляться формула "МИН" в столбец "С". В строках, где номер с 6 по 8 в столбце "С" идет ручной ввод. Желтым цветом отметил ячейки, где должны прописываться формулы на примере дат. В столбце "B" приведена автоматическая нумерация в зависимости от столбца "A".
 
 
 
#2
30.09.2022 14:08:11
Филипп Буданов,
а можно поподробнее логику Ваших формул МИН...
 
 
 
#3
30.09.2022 16:03:49
evgeniygeo, макрос или формула, которая прогоняет структуру из примера и определяет, где нужно вставить формулу.
То есть, если в ячейке столбца "A"  стоит значение 2, то подставляется формула мин, где подставляется следующие числа по иерархии (то есть 3, если отсутствует то 4 и т.д.)
 
 
 
#4
03.10.2022 08:49:50
Цитата
Pipipka написал:
и определяет, где нужно вставить формулу.
прошу прощения, но судя по формулам из примера мне все еще не понятно, где и как нужно вставить формулу
 
 
 
#5
03.10.2022 15:17:19
Пример формулы для Д3
Код
=МИН(ЕСЛИ(ЛЕВБ(B4:B99;ДЛСТР(B3)+1)=B3&".";D4:D99))
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#6
03.10.2022 16:53:55
_Boroda_,  спасибо за отличную формулу! :)
 
 
 
#7
03.10.2022 16:59:18
evgeniygeo, во вложение упрощенный пример того, что хотел получить.
Правда не понимаю, почему макрос не захватывает последнюю ячейку перед 2
Здесь привел пример суммирования
Код
Sub Адресация_ячеек()
Dim i As Long
Dim n As Long
Dim ilastRow As Long
Dim m As Long
ilastRow = Cells(Rows.Count, 2).End(xlUp).Row
        
 For i = 2 To ilastRow
     If Cells(i, 2) = 2 Then
        For n = i + 1 To ilastRow
            If Cells(n, 2).Value > Cells(n + 1, 2).Value And Cells(n + 1, 2) <> 0 Then
            Exit For
            End If
        Cells(i, 4) = "=SUBTOTAL(9," & Cells(i + 1, 3).Address & ":" & Cells(n, 3).Address & ")"
     Next n
     End If
 Next i
  
End Sub
 
 
 
#8
06.10.2022 16:34:57
Всем спасибо за участие. Написал макрос под свою задачу определения диапазона ячеек для формул "ПРОМЕЖУТОЧНЫЙЕ.ИТОГИ".
Файл с примером прилагаю. Ячейки с формулами окрашены в синий цвет.
 
 
 
Страницы: 1
Наверх