Помогите плиз с екселем, нужна команда(кнопка) для однотипного задания

Afed

Гость

09.06.2010 01:06:04

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

Присматриваюсь к форуму...

Гость

09.06.2010 01:24:29

Собсно, после выбора любой ячейки в нужном столбце сортировка производится нажатием одной кнопки "А-Я" или "Я-А". Итого два клика.
Можешь записать в макрос выбор первой ячейки нужного столбца и нажатие соотв. кнопки сортировки. Потом создай кнопку на тулбаре для этого макроса. Тогда будет один клик.
Или это на нескольких листах надо делать?

Guest Гость	#3 09.06.2010 01:30:49 сортировка нужна всей таблицы, а не одного столбца!!

Присматриваюсь к форуму... Гость	#4 09.06.2010 09:36:45 А ты попробуй :) Если выделена одна ячейка, Эксел сортирует "текущую область", ее можно выделить Ctrl+*. А если выделен диапазон, тогда возможны варианты.

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

09.06.2010 09:54:52

{quote}{login=Afed}{date=09.06.2010 01:06}{thema=Помогите плиз с екселем, нужна команда(кнопка) для однотипного задания}{post}есть куча таблиц в тексте, делается эспорт в ексель, и там нужно сделать сортировку всей таблицы по одному из столбцов. можно ли как-нить это упростить, чтобы выполнялось по нажатию одной кнопки?
заранее спасибо!!{/post}{/quote}
а вы включите макрорекордер и проделайте всю операцию затем сделайте кнопку и определите что этот макрос будет выполняться по нажатию кнопки

Спасибо
Mail: В профиле Skype: В профиле

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#6 09.06.2010 10:00:55 прислушайтесь к присматривающемуся :) Живи и дай жить..

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#7 09.06.2010 10:07:46 Ну а если не хочется думать об областях и быть уверенным: Sub SortUp() Application.ScreenUpdating = False xyz = Selection.Address Cells.Select Selection.Sort Key1:=Range(xyz), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range(xyz).Select Application.ScreenUpdating = True End Sub Вместо xyz/Selection.Address поставьте адрес своей ячейки. Кнопку к макросу вывести на панель.

Читают тему