|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - Exel | Как сделать автосортировку чисел в столбцах? |
|
2010 - Exel | Как сделать автосортировку чисел в столбцах?
|
Пользователь Сообщения: 54 |
Профиль | Отправить PM | Цитировать MS Office 2010, Exel
Задача простая но хитрая - имеется столбец с числами сверху вниз 10, 20,30, 40 и тд. Как настроить автосортировку что бы при добавлении снизу столбца новых чисел они сами сортировались по порядку увеличения? Например добавили снизу число 25 а оно само встало между 20 и 30... Или хотя бы можно ли сделать так что бы вставлять числа в нужные ячейки так, что бы они сами "пододвигались" вниз? |
|
Отправлено: 11:50, 25-10-2012 |
Модератор Сообщения: 16826
|
Профиль | Сайт | Отправить PM | Цитировать Нажмите Alt+F11, откроется редактор VBA.
Добавьте модуль с объявлением глобальной переменной "sortic", чтобы у вас не получилось зацикливания!!! Для нужного листа вставьте такой код: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsEmpty(Target) And Target.Row = Me.UsedRange.Rows.Count Then End If Intersect([A:A], Target) Is Nothing Then MsgBox "Вы пытаетесь ввести число не в первом столбце": End If sortic = 1 Then sortic = 0: End sortic = 1 Me.Sort.SortFields.Clear Me.Sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With Me.Sort .SetRange UsedRange .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub |
------- Отправлено: 00:19, 26-10-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 955
|
Профиль | Отправить PM | Цитировать okshef, Супер, полезный код а, в VBA - MS Office - Excel 2013 такой способ прокатит?
|
------- Отправлено: 00:26, 26-10-2012 | #3 |
Модератор Сообщения: 16826
|
Профиль | Сайт | Отправить PM | Цитировать Да, новых функций в коде нет.
|
------- Отправлено: 00:37, 26-10-2012 | #4 |
Ветеран Сообщения: 955
|
Профиль | Отправить PM | Цитировать okshef, спасибо за ответ.
|
|
------- Отправлено: 00:50, 26-10-2012 | #5 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2010 - [решено] Найти сопадающие значение в таблицах excel | YulZo | Microsoft Office (Word, Excel, Outlook и т.д.) | 3 | 28-05-2012 09:30 | |
2003/XP/2000 - [решено] Exel 2003. как сделать чтобы не округляло самостоятельно? | Maestro | Microsoft Office (Word, Excel, Outlook и т.д.) | 11 | 18-08-2010 12:39 | |
VB для Exel | Patrick | Программирование и базы данных | 4 | 28-04-2004 00:03 | |
Exel | tara | Программирование и базы данных | 2 | 12-03-2004 12:14 | |
Текст в таблицах. | ivank | Вебмастеру | 7 | 11-04-2002 13:46 |
|