Страницы: 1
RSS
Помогите создать автогруппировку
 
Есть 2 столбика ( в одном текст, в другом значение). Необходимо перегруппировать строки по значению от большего к меньшему. Чтобы это делалось автоматически при изменении значения.  
 
ПРИМЕР:  
Вася 10  
Петя 7  
Иван 8  
Саша 1  
Вова 5  
 
Должно получиться:  
Вася 10  
Иван 8  
Петя 7  
Вова 5  
Саша 1
 
то ли поезд не едет, то ли я не пойму чё то...  
а сортировка по убыванию не канает?
 
Попробуйте. Диапазон сортировки (ст. А и В) не должен содержать объединенных ячеек и должен иметь заголовок.  
Макросы должны быть разрешены.
 
{quote}{login=Казанский}{date=12.03.2011 11:47}{thema=}{post}Попробуйте. Диапазон сортировки (ст. А и В) не должен содержать объединенных ячеек и должен иметь заголовок.  
Макросы должны быть разрешены.{/post}{/quote}  
 
спасибо, но не пойму где посмотреть как Вы это сделали?
 
Правый клик на ярлычке листа - Исходный текст.  
Макрос как бы нажимает "Z->A" при выделенной яч. В2.
 
{quote}{login=Казанский}{date=13.03.2011 12:15}{thema=}{post}Правый клик на ярлычке листа - Исходный текст.  
Макрос как бы нажимает "Z->A" при выделенной яч. В2.{/post}{/quote}  
 
спасибо большое
 
возникла проблемма, при подстановке даных из другого листа сортировка перестаёт работать .....
 
т.е. при открытых книгах, и авто изменении данных сортировка не срабатывает
 
думается, что как то надо с формулами поработать ....
 
Что значит "при подстановке данных"? Вы используете формулы? Тогда замените макрос на этот:  
 
Private Sub Worksheet_Calculate()  
Application.EnableEvents = False  
[B2].Sort [B2], xlDescending, Header:=xlYes
Application.EnableEvents = True  
End Sub
 
вот теперь то что нужно! Огромнейшее спасибо
 
Формулой.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1
Наверх