ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автосортировка в Excel
17 сообщений из 17, страница 1 из 1
Автосортировка в Excel
    #33187693
Dimen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimen
Гость
Прошу прощения может быть за глупый вопрос, но как сделать что бы таблица в Excel сортировалась автоматически по алфавиту (сортировка построчно относительно данных первого столбца)
...
Рейтинг: 0 / 0
27.07.2005, 17:54:12
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33187791
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
а что значить автоматически ?
после внесения изменений ? тогда тока код.
...
Рейтинг: 0 / 0
27.07.2005, 18:34:31
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33187883
Dimen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimen
Гость
Да, переодически информация меняется в первом столбце, (как и во всех остальных - это фамилии), и относительно этой инфо все строки таблицы должны вставать по алфавиту
...
Рейтинг: 0 / 0
27.07.2005, 19:51:03
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33188633
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
1.Запишите макрос сортировки
2. Повесьте его на тулбар
3. После внесение изменений в 1 столбец нажимайте педаль на тулбоксе.
зы
это с минимумом кода

...
Рейтинг: 0 / 0
28.07.2005, 11:11:24
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33188668
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
поместите код в модуль страницы и все
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range(ActiveSheet.UsedRange.Address).Sort Key1:=ActiveSheet.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
...
Рейтинг: 0 / 0
28.07.2005, 11:18:45
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33188691
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
vkodorпоместите код в модуль страницы и все

дык чел охренеет если после каждого нажатия на клавишу у него пойдет сортировка.
...
Рейтинг: 0 / 0
28.07.2005, 11:23:15
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33188713
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Прошу прощения может быть за глупый вопрос, но как сделать что бы таблица в Excel сортировалась автоматически по алфавиту (сортировка построчно относительно данных первого столбца)
...
Рейтинг: 0 / 0
28.07.2005, 11:27:04
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33188751
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
vkodorпоместите код в модуль страницы и все
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range(ActiveSheet.UsedRange.Address).Sort Key1:=ActiveSheet.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
И в ентом случае охренеет....
Лучше поставить в открытии книги или активизации листа...
...
Рейтинг: 0 / 0
28.07.2005, 11:37:40
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33188944
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
vkodorПрошу прощения может быть за глупый вопрос, но как сделать что бы таблица в Excel сортировалась автоматически по алфавиту (сортировка построчно относительно данных первого столбца)
может чел сформулировал вопрос непонятно или еще чо-нить, а мы тут сидим гадаем, как ему будеи лучше. Придет.Посмотрит.Скажет.
...
Рейтинг: 0 / 0
28.07.2005, 12:14:44
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33189465
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Просто поставь условие в Worksheet_Change : если Target.Address = "$B$1" , то произвести сортировку.
В этом случае при выделении других ячеек сортировка производиться не будет.
...
Рейтинг: 0 / 0
28.07.2005, 14:20:32
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33189563
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
big-duke может чел сформулировал вопрос непонятно или еще чо-нить, а мы тут сидим гадаем, как ему будеи лучше. Придет.Посмотрит.Скажет.
Чел какой?:
ентот = Dimen
аль ентот = vkodor
иль исчо третий придет... :)
...
Рейтинг: 0 / 0
28.07.2005, 14:48:33
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33190385
Dimen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimen
Гость
Всем спасибо за обсуждение моего вопроса, наверное будет удобнее что бы сортировка происходила при открытии листа, ну или документа.
Но сортировка должна происходить относительно только первого столбца
Как я правильно понял нужно вставить в модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range(ActiveSheet.UsedRange.Address).Sort Key1:=ActiveSheet.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Если честно я не силен в Visual Basic, потому если не трудно, может кто нибудь напишет всю процедуру.
Заранее благодарен!!!
...
Рейтинг: 0 / 0
28.07.2005, 20:07:37
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33190436
Dimen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimen
Гость
Если конкретно то сортировать нужно с 9 по 32 строку по столбцу А, лист называется INFO
...
Рейтинг: 0 / 0
28.07.2005, 21:15:44
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33190441
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
это кинь в модуль книги
Private Sub Workbook_Open()
Worksheets("Info").Select
ActiveSheet.Range("A9:B35").Sort Key1:=ActiveSheet.Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
потом встань внутрь этого кода ( в смысле курсором) и нажми ф5.
...
Рейтинг: 0 / 0
28.07.2005, 21:22:56
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33190814
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
big-dukeэто кинь в модуль книги
Private Sub Workbook_Open() 'енто срабатывание макроса при открытии книги
Worksheets("Info").Select 'енто выделение твояго листа
ActiveSheet.Range("A9:B35").Sort Key1:=ActiveSheet.Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'енто сортировка диапазона по A9:B35(он просил 32 и причем строки - не запутается ???) по ключу - столбца А с строки 9
End Sub 'енто -усё- конец
потом встань внутрь этого кода ( в смысле курсором) и нажми ф5.и смотри работу big-duke , Насладился??? Теперя закрой усё с сохранением (можешь изменить сортировку) и при открытии данного файла у тебе произойдет автоматическая сортировка.....
> big-duke , ты объясняешь ООООЧЕНЬ сокращенно, ведь чел Dimen
Если честно я не силен в Visual Basic...... ВААЩЕ , а исчо с его темпами (2 дня) решения такого вопроса........
:) :) :)
...
Рейтинг: 0 / 0
29.07.2005, 10:07:49
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33191196
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Stepler> big-duke , ты объясняешь ООООЧЕНЬ сокращенно
Лето, жарко, тяжело дается нажатие на клавиши.
...
Рейтинг: 0 / 0
29.07.2005, 11:39:18
| Ответить | Цитировать | Написать  
Автосортировка в Excel
    #33192631
Dimen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimen
Гость
Big Duke, Stepler большое спасибо за помощь, все работает, но есть не большая проблемка.
Открываю лист который надо сортировать, открываю модуль, жму F5, возвращаюсь на лист - он отсартирован, все работает.
Сохраняюсь, выхожу, опять вхожу, меняю данные, но автоматически не сортирует, нужно опять входить в Visual Basic и опять жать F5. Может конечно я что то не так сделал, а может есть какая то клавиша или их сочетание
или нужно что то в настройках поменять?
Мои вопросы наверное кажутся глупыми, но осталось совсем не много что бы все заработало как надо.
Заранее благодарен!!!
...
Рейтинг: 0 / 0
29.07.2005, 21:50:13
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автосортировка в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33188633&tid=2167419]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 218ms
total:  360ms
созд. / загр.: 360ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]