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

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

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

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

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

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

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

@m-ch · 10.12.2012, 13:00

вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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" - исправлено

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@dzev4ono4ka 1 / 1 / 0 Регистрация: 28.12.2011 Сообщений: 57

	Создать функцию, которая находит самою маленькую (большую) сумму указанного числа 10.12.2012, 02:05. Показов 1298. Ответов 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 [ТС]
	Большое спасибо! 1