Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA: определение порядкового номера элемента по условию
 
#1
25.04.2016 10:42:08
Здравствуйте.  
Необходима помощь в создании функции, которая должна определять порядковый номер элемента в диапазоне, вместе с которым накопительная сумма всех предыдущих элементов становится равной либо превышает заданный критерий.

Во вложении пример массива (D2:H2)
Задан критерий (целевое значение суммы элементов): E4= 370
Функция начинает последовательно суммировать элементы массива, начиная с первого до тех пор, пока сумма элементов не станет равной или превысит 370. Выводит номер порядковый номер элемента, при котором выполнилось данное условие. В данном случае условие выполнилось на элементе №3.
Спасибо.
 
 
 
#2
25.04.2016 11:23:50
Добрый день.
Как-то так, наверное:
Код
Function ElementsCount(Диапазон As Range, Критерий As Double)
    Dim objC As Range
    Dim intI As Integer
    Dim dblT As Double
        For Each objC In Диапазон
            intI = intI + 1
            dblT = dblT + objC
                If dblT >= Критерий Then
                    ElementsCount = intI
                    Exit Function
                End If
        Next objC
End Function
Кому решение нужно - тот пример и рисует.
 
 
 
#3
25.04.2016 11:26:47
Без массивов и прочих словарей
Код
Function НОМЭЛЕМЕНТА(rng As Range, kr As Long) As Long
    For I = 1 To rng.Count
        S = S + rng(I).Value
        If S >= kr Then
            НОМЭЛЕМЕНТА = I
            Exit Function
        End If
    Next
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
25.04.2016 12:36:13
Пытливый, спасибо. На дальнейших примерах все корректно сработало.
Sanja, почему то некорректно работает на следующем примере. Прикладываю.
 
 
 
#5
25.04.2016 12:47:28
Код
Function НОМЭЛЕМЕНТА(rng As Range, kr As Double) As Double
    For I = 1 To rng.Count
        S = S + rng(I).Value
        If S >= kr Then
            НОМЭЛЕМЕНТА = I
            Exit Function
        End If
    Next
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
25.04.2016 13:14:15
VBA обязательно?
=ПОИСКПОЗ(E4-1;СУММЕСЛИ(СМЕЩ(D2;;;;СТОЛБЕЦ(D2:H2)-СТОЛБЕЦ(D2)+1);"<>"))+1
формула массива (Ctrl+Shift+Enter)
 
 
 
Страницы: 1
Читают тему
Наверх