|
Autofilter VBA
|
|||
---|---|---|---|
#18+
Доброго времени суток. Для реализации задачи временного диапазона данных, мне необходимо отфильтрованные данные скопировать в отдельный лист, для последующей работы с этим фрагментом. На данный момент макрос выделяет весь видимый диапазон данных (исключая скрытые строки автофильтром) и вставляет эти значения на отдельный лист, единственная загвоздка, в то, что это запускается вручную через кнопку upDate, которая и запускает этот самый макрос. Но для удобства пользователю, хотелось бы автоматически запускать этот макрос каждый раз после изменения параметров автофильтра, то есть отслеживать автофильтр как событие и по этому условию выполнять макрос. Буду признателен, за помощь в этом вопросе =) ... |
|||
:
Нравится:
Не нравится:
|
|||
06.07.2016, 14:01 |
|
Autofilter VBA
|
|||
---|---|---|---|
#18+
1. В обычный модуль Function My_Func() As String Application.Volatile End Function 2. В любую ячейку листа "Лист1" =My_Func() 3. В модуль "Лист1" Private Sub Worksheet_Calculate() MsgBox Worksheets("Лист1").AutoFilterMode 'Процедура будет запускаться по любому чиху, поэтому здесь анализ параметров запомненного и текущего автофильтра, если разнятся, запомнить текущие и выполнить нужный макрос. End Sub 4. При открытии книги запомнить параметры автофильтра. ... |
|||
:
Нравится:
Не нравится:
|
|||
06.07.2016, 21:06 |
|
Autofilter VBA
|
|||
---|---|---|---|
#18+
AleX_X89каждый раз после изменения параметров автофильтраПрактичнее будет запускать этот макрос не при любом изменении автофильтра, а при переходе на лист с скопированными значениями. Т.е. использовать событие Worksheet_Activate модуля нужного листа. ... |
|||
:
Нравится:
Не нравится:
|
|||
06.07.2016, 21:12 |
|
|
start [/forum/topic.php?fid=61&msg=39270320&tid=2173028]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
53ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
others: | 317ms |
total: | 457ms |
0 / 0 |