Создать функцию, которая находит самою маленькую (большую) сумму указанного числа

@dzev4ono4ka · Регистрация: 28.12.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите, пожалуйста, создать функцию, которая находит указанного числа самою маленькую (большую) сумму.

Функция(quantity, range, smallest_biggest)

quantity - количество чисел, которые будут суммироваться
range - область в которой находятся суммированные числа
smallest_biggest - логическое значение. Если FALSE или не указано, тогда надо искать самые маленькие числа, если TRUE - то самые большие.

Зарание спасибо!
Вот Пример, как эта функция работает :

@m-ch · 10.12.2012, 13:00

вариант:

Visual Basic

Function sumls#(q&, rng As Range, Optional sb As Boolean = False)
    Dim i&, j&, x, t#
    ReDim a#(1 To rng.Count)
    For Each x In rng.Value
        i = i + 1
        a(i) = x
        For j = 1 To i - 1
            If IIf(sb, a(i) > a(j), a(i) < a(j)) Then t = a(i): a(i) = a(j): a(j) = t
    Next j, x
    For i = 1 To q
        If i > UBound(a) Then Exit For
        sumls = sumls + a(i)
    Next i
End Function

@Казанский · 10.12.2012, 22:13

Михаил, а как же формулы?!

Visual Basic

1
2
3

Function sumls(q&, rng As Range, Optional sb As Boolean = False)
sumls = Evaluate("SUM(" & IIf(sb, "LARGE", "SMALL") & "(" & rng.Address & ",ROW(1:" & Application.Min(q, rng.Count) & ")))")
End Function

@dzev4ono4ka · 11.12.2012, 00:03 **[ТС]**

Большое спасибо!

@m-ch · 11.12.2012, 08:51

Сообщение от Казанский

Михаил, а как же формулы?!

Алексей, формулы это конечно хорошо, но нужно ведь и программировать учится, а объектной модели Excel я не знаю, поэтому не могу так легко жонглировать свойстами объектов (могу только пузырьком сортировать )).

PS: у меня в UDF ошибка, вместо "Next i, x" нужно записать "Next j, x" - исправлено

@dzev4ono4ka 1 / 1 / 0 Регистрация: 28.12.2011 Сообщений: 57
		1
	Создать функцию, которая находит самою маленькую (большую) сумму указанного числа 10.12.2012, 02:05. Показов 1163. Ответов 4 Метки нет (Все метки) Здравствуйте, помогите, пожалуйста, создать функцию, которая находит указанного числа самою маленькую (большую) сумму. Функция(quantity, range, smallest_biggest) quantity - количество чисел, которые будут суммироваться range - область в которой находятся суммированные числа smallest_biggest - логическое значение. Если FALSE или не указано, тогда надо искать самые маленькие числа, если TRUE - то самые большие. Зарание спасибо! Вот Пример, как эта функция работает : Миниатюры 0

@dzev4ono4ka 1 / 1 / 0 Регистрация: 28.12.2011 Сообщений: 57
	11.12.2012, 00:03 [ТС]	4
	Большое спасибо! 1

@m-ch 6171 / 936 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	11.12.2012, 08:51	5
	Сообщение от Казанский Михаил, а как же формулы?! Алексей, формулы это конечно хорошо, но нужно ведь и программировать учится, а объектной модели Excel я не знаю, поэтому не могу так легко жонглировать свойстами объектов (могу только пузырьком сортировать )). PS: у меня в UDF ошибка, вместо "Next i, x" нужно записать "Next j, x" - исправлено 0