Сортировка в Listbox с выводом среднего, максимального и минимального значений....

[Klim Bassenger]

Подскажите как делать следующие действия листбоксами...
Выбрать уникальные элементы из листбокса и посчитать по каждому такому элементу его среднее, максимальное и минимальное значение!!!

Примерный файл прикрепляю!!!

[EducatedFool]

Всё можно сделать. Но зачем так всё усложнять?
Все эти формы, листбоксы...

Есть же автофильтр, сводные таблицы, формулы.
Они отлично справятся с такой задачей.

А для формы с листбоксами придётся писать кучу кода.

[Klim Bassenger]

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

Но зачем так всё усложнять?

Дело в том, что, к сожалению, не всегда на фирме работают сотрудники, которые хоть что-то слышали об автофильтре, не говоря уже о сводных таблицах или макросах...Вот и получается, что проще (не без вашей помощи профессионалов) сделать так, чтоб они только на кнопки нажимали (это они слава богу пока могут).
В противном случае, слышишь каждый раз: " Сделай это, сделай то..." А сами не могут ничего... Вот и приходится ночевать на работе...
Вот так!

[EducatedFool]

При использовании формул и сводных таблиц им даже не придётся нажимать на кнопочки - Excel всё сделает сам.
Вам только надо будет поставить защиту на листы (или на отдельные диапазоны ячеек с формулами, чтобы несмышлённые пользователи их случайно не затёрли)

Научиться пользоваться автофильтром - совсем несложно.
При желании за полчаса этому можно обучить даже обезьяну.
В крайнем случае, можно макросом устанавливать параметры автофильтра - всё равно это будет намного проще, чем писать код для листбоксов.

[Klim Bassenger]

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

При желании за полчаса этому можно обучить даже обезьяну.

На 100% согласен. Наверное, так будет проще...Вот только про сводные таблицы придется почитать по-подробнее, а то нигогда с ними не сталкивался! Кстати какая на сегодняшний день лучшая книга по Excel?
Мне посоветовали "Библия Excel 2007" Уокенбаха... Может что есть лучше??? Чтоб в книжке было сбольшего про всё от формул до VBA...

[Klim Bassenger]

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

В крайнем случае, можно макросом устанавливать параметры автофильтра

А как автофильтр через макрос сделать?

[A-ton]

Пробуй включать запись макроса и делать какие-то манипуляции, вроде добавления фильтра. А потом смотри записанный код.

Sub AutoFilter()
   Range("A1:D8").AutoFilter
End Sub

[Even]

Доброго всем времени суток. Я не стал создавать новую тему и хотел продолжить эту. Во вложеном выше файле приведен пример с апельсинами, яблоками и т.д. Хотел узнать как их поменять на "даты" что бы всё работало. Заранее спасибо.

[doober]

Работает по датам,как в первоисточнике по апельсинам.
Если хотите,что бы все Листбоксы работали,выложите примерный файл с вашими данными

[Even]

С другими Listbox-ами понятно. Только вопрос, как можно избежать путаницы с датами (формат даты в combobox-e такой же как и на листе excel ). И почему-то не все даты работают.