В общем осложнили мне жизнь... решили награждать детей в каждом виде программы, времени на это мало, а "сортировок" по убыванию надо сделать больше 100 раз. Можно ли это реализовать? а именно: закончилось плавание, я открываю лист например м_1 (или любой другой) и, как я вижу, встав на J4 что то нажимаю и у меня таблица отсортировалась по убыванию столба J - я вижу победителей в плавании, подписал грамоты. Далее например перехожу к отжиманию и сортирую столбец P и так далее в этом листе или другом. Как можно это "автоматизировать" или хотя бы сэкономить время??? Обычным путем с выделением это долго как мне кажется.
В общем осложнили мне жизнь... решили награждать детей в каждом виде программы, времени на это мало, а "сортировок" по убыванию надо сделать больше 100 раз. Можно ли это реализовать? а именно: закончилось плавание, я открываю лист например м_1 (или любой другой) и, как я вижу, встав на J4 что то нажимаю и у меня таблица отсортировалась по убыванию столба J - я вижу победителей в плавании, подписал грамоты. Далее например перехожу к отжиманию и сортирую столбец P и так далее в этом листе или другом. Как можно это "автоматизировать" или хотя бы сэкономить время??? Обычным путем с выделением это долго как мне кажется.maslenkin
Pelena, в принципе да, вариант хороший и сразу видно из чего сложились итоговые очки. Сейчас опробую ваш вариант на своей полной версии. А условное форматирование в вашем файлике присутствует?
Pelena, в принципе да, вариант хороший и сразу видно из чего сложились итоговые очки. Сейчас опробую ваш вариант на своей полной версии. А условное форматирование в вашем файлике присутствует?maslenkin
Pelena, разобрался с условным форматированием. Но у меня почему то не работает с например =РАНГ(P6;P$6:P$15) если в P6 значение #Н/Д т.е. там формула поиска с другого листа. Wasilich, это круто, но боюсь моих познаний не хватит перенести вашу наработку в свою книгу мне даже не за что уцепиться
Pelena, разобрался с условным форматированием. Но у меня почему то не работает с например =РАНГ(P6;P$6:P$15) если в P6 значение #Н/Д т.е. там формула поиска с другого листа. Wasilich, это круто, но боюсь моих познаний не хватит перенести вашу наработку в свою книгу мне даже не за что уцепитьсяmaslenkin
Просто, выделяете код, жмете Ctrl-V, в своей книге жмете Alt-F11, ставите курсор в модуль своей книги жмете Ctrl-V, закрываете модуль, назначаете макросу СОРТИРОВКА кнопку. И все! [vba]
Код
Sub СОРТИРОВКА() Dim kl&, ps& kl = Selection.Column ps = Range("B" & Rows.Count).End(xlUp).Row Range("B6:U" & ps).Sort Key1:=Cells(6, kl), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Просто, выделяете код, жмете Ctrl-V, в своей книге жмете Alt-F11, ставите курсор в модуль своей книги жмете Ctrl-V, закрываете модуль, назначаете макросу СОРТИРОВКА кнопку. И все! [vba]
Код
Sub СОРТИРОВКА() Dim kl&, ps& kl = Selection.Column ps = Range("B" & Rows.Count).End(xlUp).Row Range("B6:U" & ps).Sort Key1:=Cells(6, kl), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Pelena, для наглядности интегрирую вашу формулу, но почему то у меня упорно не хочет ставиться 3 место. Вот 1,2 и даже 4 выставляет (если такой вариант =P6<=4 условного форматирования ставлю), а вот 3 нет. Не понимаю где ошибка...
Pelena, для наглядности интегрирую вашу формулу, но почему то у меня упорно не хочет ставиться 3 место. Вот 1,2 и даже 4 выставляет (если такой вариант =P6<=4 условного форматирования ставлю), а вот 3 нет. Не понимаю где ошибка...maslenkin
понял, если есть два, три и т.д. одинаковых значения, то она им присваивает одинаковое место, но только трем участникам. Но нам то не знать как бывает даже на олимпиадах:)... в общем мне надо тогда выделить всех трех лучших результата. Т.е. если есть два "вторых" места и пусть три одинаковых результата у третьего места, то их тоже надо выделять... и награждать соответственно:)
понял, если есть два, три и т.д. одинаковых значения, то она им присваивает одинаковое место, но только трем участникам. Но нам то не знать как бывает даже на олимпиадах:)... в общем мне надо тогда выделить всех трех лучших результата. Т.е. если есть два "вторых" места и пусть три одинаковых результата у третьего места, то их тоже надо выделять... и награждать соответственно:)maslenkin
Если надо просто убрать Н/Д, то подкорректируйте формулу
Очень пригодилась ваша формула. Применил ее для столбцов В и С - все скрывает. Но если например в столбе Е формула и там "светиться" число, вариант с =ЕСЛИОШИБКА(____);"") не работает. КАК скрыть такие числа в таблице??? И как максимум для меня задача, чтобы это число (например у 17 строки, там у участника условно везде 0 в результате) не учитывалось в столбце Сумма. Формула с таким "числом" может быть в любом столбе, а не только в F, да и само число может быть разное, но одинаковое у всего столбца (зависит от вида упражнения)
Если надо просто убрать Н/Д, то подкорректируйте формулу
Очень пригодилась ваша формула. Применил ее для столбцов В и С - все скрывает. Но если например в столбе Е формула и там "светиться" число, вариант с =ЕСЛИОШИБКА(____);"") не работает. КАК скрыть такие числа в таблице??? И как максимум для меня задача, чтобы это число (например у 17 строки, там у участника условно везде 0 в результате) не учитывалось в столбце Сумма. Формула с таким "числом" может быть в любом столбе, а не только в F, да и само число может быть разное, но одинаковое у всего столбца (зависит от вида упражнения)maslenkin
спасибо за ваш скрипт, сейчас я его вставляю в свою книгу. Пробовал ваш первый вариант, не получилось запустить ( позже разобрался, Range("B6:U" заменил на свой крайней столбец) В вашем крайнем варианте заменил на For i = 6 , работает, но не понял что отвечает за формирование именно столбца после "Сумма многоборья"? Я создал в соседнем столбце копию как "Сумма многоборья" но без данных и формул. После запуска скрипта, данные сортировки записываются на мой оригинальный столбец "Сумма многоборья" а в соседнем не появляются... Хотя на другом листе книги получилось сделать правильно, но не понял как:(
спасибо за ваш скрипт, сейчас я его вставляю в свою книгу. Пробовал ваш первый вариант, не получилось запустить ( позже разобрался, Range("B6:U" заменил на свой крайней столбец) В вашем крайнем варианте заменил на For i = 6 , работает, но не понял что отвечает за формирование именно столбца после "Сумма многоборья"? Я создал в соседнем столбце копию как "Сумма многоборья" но без данных и формул. После запуска скрипта, данные сортировки записываются на мой оригинальный столбец "Сумма многоборья" а в соседнем не появляются... Хотя на другом листе книги получилось сделать правильно, но не понял как:(maslenkin
После запуска скрипта, данные сортировки записываются на мой оригинальный столбец "Сумма многоборья" а в соседнем не появляются...
maslenkin, хотелось бы понять, что Вы хотите, покажите файл, что не получается. В последнем столбце показаны места в зависимости от выбранного и отсортированного столбца вида соревнований, по очкам или по результату, или по "Сума многоборья". Задача вроде простая и решаема макросом. Не всегда, в определенных случаях, формулы эффективны. Хотя, хозяин барин.
После запуска скрипта, данные сортировки записываются на мой оригинальный столбец "Сумма многоборья" а в соседнем не появляются...
maslenkin, хотелось бы понять, что Вы хотите, покажите файл, что не получается. В последнем столбце показаны места в зависимости от выбранного и отсортированного столбца вида соревнований, по очкам или по результату, или по "Сума многоборья". Задача вроде простая и решаема макросом. Не всегда, в определенных случаях, формулы эффективны. Хотя, хозяин барин. Wasilich
Сообщение отредактировал Wasilich - Вторник, 21.02.2017, 15:41
В последнем столбце показаны места в зависимости от выбранного и отсортированного столбца вида соревнований, по очкам или по результату, или по "Сума многоборья"
как мне этот столбец создать??? вернее я его создал по форме как соседний "Сумма многоборья". Записал ваш макрос, сделал кнопку, назначил ей этот макрос, но при запуске (встал например на -отжимание-очки ) у меня результаты сортировки записываются в мой оригинальный столбец "Сумма многоборья", а не в последний как у вашего примера в Sport.xls и у меня почему то не берется в сортировку строка 6, а начинается с 7-ой и ниже
В последнем столбце показаны места в зависимости от выбранного и отсортированного столбца вида соревнований, по очкам или по результату, или по "Сума многоборья"
как мне этот столбец создать??? вернее я его создал по форме как соседний "Сумма многоборья". Записал ваш макрос, сделал кнопку, назначил ей этот макрос, но при запуске (встал например на -отжимание-очки ) у меня результаты сортировки записываются в мой оригинальный столбец "Сумма многоборья", а не в последний как у вашего примера в Sport.xls и у меня почему то не берется в сортировку строка 6, а начинается с 7-ой и нижеmaslenkin
Сообщение отредактировал maslenkin - Вторник, 21.02.2017, 19:38
Какой столбец???? Что создать??? Что в нем должно быть??? Какой результат сортировки??? Приложите наконец то файл с этим столбцом. Или вам это не нужно? Может я слишком навязчив со своим предложением помочь?
Какой столбец???? Что создать??? Что в нем должно быть??? Какой результат сортировки??? Приложите наконец то файл с этим столбцом. Или вам это не нужно? Может я слишком навязчив со своим предложением помочь?Wasilich
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
мне даже не за что уцепиться
