|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.12.2009, 18:44 | #1 |
Форумчанин
Регистрация: 12.09.2009
Сообщений: 232
|
Excel. Выбрать наименьшие числа
результат вычислений (желтая столбец) имеет такие значения: 21 6 16 9 14 10 22 13 15 10 16 10 6 ...
как заставить машину выбрать и записать N(8) наименьших чисел: 6 6 9 10 10 10 13 14 (выделено голубым) P.S. Способ алфавитной сортировки не приемлем, т.к. надо не только "посмотреть" , но еще и выполняться математические действия Спасибо |
16.12.2009, 18:47 | #2 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 69
|
функция НАИМЕНЬШИЙ
Андрей
|
16.12.2009, 20:05 | #3 |
Форумчанин
Регистрация: 12.09.2009
Сообщений: 232
|
|
16.12.2009, 20:18 | #4 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 40
|
1. Копируете в соседний столбец
2. Сортируете скопированный диапазон (выделяете 8 первых значений) 3. Копируете отсортированный столбец (8 значений) с транспонированием в нужную строку. |
16.12.2009, 20:19 | #5 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 69
|
еще раз
функция НАИМЕНЬШИЙ справка в мастере функций
Андрей
|
16.12.2009, 20:37 | #6 | |
Форумчанин
Регистрация: 12.09.2009
Сообщений: 232
|
еще раз
Цитата:
2. Не будем вдаваться в подробности, но на моем Office весь справочный материал (в том числе и справка в мастере функций) предоставлен на английском языке |
|
16.12.2009, 20:45 | #7 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 40
|
написать макрос по этой задаче - 5 минут, только вопрос - какие "математические действия" должны быть еще произведены?
|
16.12.2009, 21:08 | #8 |
Форумчанин
Регистрация: 12.09.2009
Сообщений: 232
|
|
16.12.2009, 21:14 | #9 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 40
|
выделяете нужный диапазон, запускаете макрос - потом когда он запросит куда вставить результат - "наступите" на нужную ячейку, в этом макросе добавляется новый столбец - чтобы "не портить" исходные данные, его можно будет потом спокойно удалить - чтоб не мешал
Sub Макрос1() Set rng = Selection nsb = Selection.Column nstr = Selection.Row Columns(nsb).Insert ' вставляем новый столбец rng.Copy Cells(nstr, nsb) ' в него вставляем данные из выделенного диапазона Application.CutCopyMode = False Selection.Sort Key1:=Columns(nsb), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ' cортируем Set kr = Application.InputBox(prompt:="Укажи те куда вставить результат", Type:=8) ' выбираем ячейку nom_r = kr.Row nom_с = kr.Column ' транспонируем Range(Cells(nstr, nsb), Cells(nstr + 7, nsb)).Copy Cells(nom_r, nom_с).PasteSpecial Paste:=xlPasteAll, Transpose:=True Application.CutCopyMode = False End Sub |
16.12.2009, 21:22 | #10 |
Форумчанин
Регистрация: 12.09.2009
Сообщений: 232
|
Благодарю Вас
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выбрать и вставить картинку в Excel | Iraveyron | Microsoft Office Excel | 34 | 05.08.2013 13:12 |
Помогите найти маску формата числа в Excel | Vladymyr17 | Microsoft Office Excel | 1 | 28.09.2009 20:18 |
как написать в excel квадрат или куб числа? | BEYLERBEYİ2009 | Microsoft Office Excel | 16 | 17.02.2009 16:18 |
Не выводит числа в Excel через Delphi | Light05 | Помощь студентам | 4 | 16.10.2008 10:42 |
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа | Woland-itn | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 23.03.2008 21:49 |