Существует ли возможность автосортировки впринципе? - Страница 2

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_, DrMini

Существует ли возможность автосортировки впринципе?

Fortress12

Дата: Понедельник, 13.05.2013, 15:02 | Сообщение № 21

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 3 ±

Замечаний: 20% ±

И последний мой вопрос в теме - вернемся к началу. Возможно ли сделать макрос чтоб он делал автосортировку только при внесении не руками, а автоматически формулами? Если вношу данные сам то работает все замечательно, забил формулу и не работает

Ответить

Serge_007

Дата: Понедельник, 13.05.2013, 15:31 | Сообщение № 22

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Цитата (Fortress12)

забил формулу и не работает

Будет работать если исходные данные для формулы находятся и изменяются на этом же листе

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Fortress12

Дата: Понедельник, 13.05.2013, 15:53 | Сообщение № 23

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 3 ±

Замечаний: 20% ±

Цитата (Serge_007)

Будет работать если исходные данные для формулы находятся и изменяются на этом же листе

на другом. Так не сделать?)

Ответить

Serge_007

Дата: Понедельник, 13.05.2013, 16:55 | Сообщение № 24

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Цитата (Fortress12)

на другом

Если на другом, то что бы внести изменения в данные, при которых будет меняться результат работы формулы, Вам придётся покинуть лист, на котором работает макрос автосортировки. Следовательно запускать его можно будет по событию активации этого листа:
[vba]

Код

Private Sub Worksheet_Activate()
Range(Range("a2:f14"), Range("a2").End(xlDown)).Sort key1:=Range("a2"), order1:=xlDescending
End Sub

[/vba]