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

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 11:18:45
    #33188668
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
поместите код в модуль страницы и все
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:23:15
    #33188691
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
vkodorпоместите код в модуль страницы и все

дык чел охренеет если после каждого нажатия на клавишу у него пойдет сортировка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 11:27:04
    #33188713
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
Прошу прощения может быть за глупый вопрос, но как сделать что бы таблица в Excel сортировалась автоматически по алфавиту (сортировка построчно относительно данных первого столбца)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 11:37:40
    #33188751
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
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, 12:14:44
    #33188944
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
vkodorПрошу прощения может быть за глупый вопрос, но как сделать что бы таблица в Excel сортировалась автоматически по алфавиту (сортировка построчно относительно данных первого столбца)
может чел сформулировал вопрос непонятно или еще чо-нить, а мы тут сидим гадаем, как ему будеи лучше. Придет.Посмотрит.Скажет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 14:20:32
    #33189465
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
Просто поставь условие в Worksheet_Change : если Target.Address = "$B$1" , то произвести сортировку.
В этом случае при выделении других ячеек сортировка производиться не будет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 14:48:33
    #33189563
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
big-duke может чел сформулировал вопрос непонятно или еще чо-нить, а мы тут сидим гадаем, как ему будеи лучше. Придет.Посмотрит.Скажет.
Чел какой?:
ентот = Dimen
аль ентот = vkodor
иль исчо третий придет... :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 20:07:37
    #33190385
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
Всем спасибо за обсуждение моего вопроса, наверное будет удобнее что бы сортировка происходила при открытии листа, ну или документа.
Но сортировка должна происходить относительно только первого столбца
Как я правильно понял нужно вставить в модуль листа:
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, 21:15:44
    #33190436
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
Если конкретно то сортировать нужно с 9 по 32 строку по столбцу А, лист называется INFO
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2005, 21:22:56
    #33190441
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
это кинь в модуль книги
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
| Ответить | Цитировать | Написать  
29.07.2005, 10:07:49
    #33190814
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
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, 11:39:18
    #33191196
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
Stepler> big-duke , ты объясняешь ООООЧЕНЬ сокращенно
Лето, жарко, тяжело дается нажатие на клавиши.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2005, 21:50:13
    #33192631
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосортировка в Excel
Big Duke, Stepler большое спасибо за помощь, все работает, но есть не большая проблемка.
Открываю лист который надо сортировать, открываю модуль, жму F5, возвращаюсь на лист - он отсартирован, все работает.
Сохраняюсь, выхожу, опять вхожу, меняю данные, но автоматически не сортирует, нужно опять входить в Visual Basic и опять жать F5. Может конечно я что то не так сделал, а может есть какая то клавиша или их сочетание
или нужно что то в настройках поменять?
Мои вопросы наверное кажутся глупыми, но осталось совсем не много что бы все заработало как надо.
Заранее благодарен!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Автосортировка в Excel / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 397ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2167419]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 83ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 229ms
total:  397ms
x
x
Закрыть


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