3 максимальных значения в диапазоне

@mor_sergey · Регистрация: 28.03.2018

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

Ребят, не соображу как задачку решить... у меня на лист с разных вкладок копируются строки с максимальными значениями ячейки.....но в одной вкладке, нужно 3 максимальных значения найти и 3 строки перенести.
макс я нашел как Application.Max([WorkRange]) ....а как мне 3 максимальных найти?

SoftIce · 11.10.2019, 12:11

Отсортировать по убыванию, и взять первых три.

Сообщение от mor_sergey

перенести

А если перенести, то можно - ищешь максимально значение - переносишь, ищешь следующее - переносишь и т.д.

@mor_sergey · 11.10.2019, 12:40 **[ТС]**

SoftIce, Точно....про сортировку не подумал..спасибо

Добавлено через 14 минут
SoftIce, а как правильно написать сортировку

Visual Basic
1
WorkRange.Sort Range("1, xlAscending, "), , xlAscending, , , xlYes

SoftIce · 11.10.2019, 12:56

Сообщение от mor_sergey

как правильно написать сортировку

Запишите макрос и посмотрите.

@mor_sergey · 11.10.2019, 13:03 **[ТС]**

SoftIce, пробовал. у меняWorkRange диапазон из 1 столбца. как мне указать, что по нему и нужна сортирока

Добавлено через 2 минуты
SoftIce, получилось! WorkRange.Sort Key1:=[WorkRange]... Спасибо

SoftIce · 11.10.2019, 13:05

Ну и хорошо

@mor_sergey · 11.10.2019, 14:29 **[ТС]**

SoftIce, не пойму....я проверял. диапазон сортировался как надо....сейчас опять без сортировки.может я не дописал чего.....подумал по умолчанию все отсортировалось как надо....что мне написать

Добавлено через 10 минут
SoftIce, не сортирует он

Visual Basic
1
2
WorkRange.Sort key1:=[WorkRange], _
   order1:=xlAscending, Header:=xlNo

@Kate_27 · 11.10.2019, 15:47

mor_sergey, есть еще функция поиска наибольших значений. Посмотрите ее. Application.worksheetFunction.Large
и сортировать ничего не надо для поиска таких значений.

Добавлено через 5 минут
Ну или правда отсортировать на листе и взять 3 первых значения.

@mor_sergey · 11.10.2019, 15:49 **[ТС]**

Kate_27, а как же мне к своей задаче приспособирь...
диапазон из одного столбца WorkRange....спасибо

Добавлено через 46 секунд
Kate_27, не сортирует у меня....может просто не правитьно делаю
мне бы в массиве отсортировать и значения узнать....я ведь потом в диапазоне это значение циклом ищу

@Kate_27 · 11.10.2019, 15:50

вроде сортировка так примерно выглядит:

Visual Basic
1
2
3
4
With Worksheets("Ваше название листа").Sort
        .SetRange WorkRange 'название рабочего диапазона типа Range
        .Apply
End With

Не проверяла, но вроде должен сортировать так.

@mor_sergey · 11.10.2019, 15:57 **[ТС]**

Kate_27, может воспользоваться Application.worksheetFunction.Large..... как второй максимум найти по нему?

@Kate_27 · 11.10.2019, 15:59

mor_sergey,

Visual Basic
1
2
max1 = Application.Large(WorkRange, 1)
max2 = Application.Large(WorkRange, 2)

Это первый максимум и второй максимум

@mor_sergey · 11.10.2019, 17:06 **[ТС]**

Kate_27, нашел... спасибо огромное

Visual Basic
1
a = Application.WorksheetFunction.Large(WorkRange, 2)

Добавлено через 21 секунду
Kate_27, вы меня опередили

Добавлено через 1 час 6 минут
Kate_27, все таки применять нужно сортировку...LARGE берет толтко уникальные значения...мне нужно первые три максимальных.....буду думать дальше

@Narimanych · 11.10.2019, 19:13

mor_sergey,

Visual Basic
1
2
3
4
For i = 1 To 3
 X = Application.WorksheetFunction.Large(Range("D1:D6"), i)
 MsgBox ("X " & i & "=" & X)
Next

@mor_sergey · 12.10.2019, 09:49 **[ТС]**

Narimanych, огромное спасибо...но мне нужно именно первые три строки отсортированных по убыванию

@Narimanych · 12.10.2019, 12:43

mor_sergey,
А что мешает вам узнать номер строки?

@mor_sergey · 12.10.2019, 12:54 **[ТС]**

Narimanych, мне и нужно №1,№2,№3...первые три отсортированных по убыванию значения...т.е. 100,150,150....а LARGE такого не может.

@Narimanych · 12.10.2019, 13:50

mor_sergey,

Вы файл приложите пжлста...

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828

	3 максимальных значения в диапазоне 11.10.2019, 11:50. Показов 2166. Ответов 17 Метки нет (Все метки) Ребят, не соображу как задачку решить... у меня на лист с разных вкладок копируются строки с максимальными значениями ячейки.....но в одной вкладке, нужно 3 максимальных значения найти и 3 строки перенести. макс я нашел как Application.Max([WorkRange]) ....а как мне 3 максимальных найти? 0

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	11.10.2019, 13:03 [ТС]
	SoftIce, пробовал. у меняWorkRange диапазон из 1 столбца. как мне указать, что по нему и нужна сортирока Добавлено через 2 минуты SoftIce, получилось! WorkRange.Sort Key1:=[WorkRange]... Спасибо 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	11.10.2019, 13:05
	Ну и хорошо 0

@Kate_27 198 / 132 / 67 Регистрация: 27.03.2019 Сообщений: 288
	11.10.2019, 15:47
	mor_sergey, есть еще функция поиска наибольших значений. Посмотрите ее. Application.worksheetFunction.Large и сортировать ничего не надо для поиска таких значений. Добавлено через 5 минут Ну или правда отсортировать на листе и взять 3 первых значения. 0

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	11.10.2019, 15:49 [ТС]
	Kate_27, а как же мне к своей задаче приспособирь... диапазон из одного столбца WorkRange....спасибо Добавлено через 46 секунд Kate_27, не сортирует у меня....может просто не правитьно делаю мне бы в массиве отсортировать и значения узнать....я ведь потом в диапазоне это значение циклом ищу 0

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	11.10.2019, 15:57 [ТС]
	Kate_27, может воспользоваться Application.worksheetFunction.Large..... как второй максимум найти по нему? 0

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	12.10.2019, 09:49 [ТС]
	Narimanych, огромное спасибо...но мне нужно именно первые три строки отсортированных по убыванию 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	12.10.2019, 12:43
	mor_sergey, А что мешает вам узнать номер строки? 0

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	12.10.2019, 12:54 [ТС]
	Narimanych, мне и нужно №1,№2,№3...первые три отсортированных по убыванию значения...т.е. 100,150,150....а LARGE такого не может. 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	12.10.2019, 13:50
	mor_sergey, Вы файл приложите пжлста... 0