|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.01.2011, 21:50 | #31 |
Пользователь
Регистрация: 19.12.2010
Сообщений: 82
|
SAS888
Уважаемые форумчане. Пример, предложенный SAS888 краток и работает. Здорово! Но есть небольшой вопросик Код:
Далее. В этот пример мною были добавлены столбцы и строки. Фильтрация производится с помощью столбца "условие" (0 или 1) Автонумерация планировалась производится по столбцу "№ п/п" Внешний вид и пример прилагаю. Диапазон Range([A2], Cells(Rows.Count, 1).End(xlUp)) изменен на Range([C5], Cells(Rows.Count, 1).End(xlUp)) Но пересчет распространился на все ячейки листа. В целом у меня получилась такая абракадабра что пришлось пример выкладывать без кода в модуле. Уже пожалел, что сразу об этом не написал. Код файла отдельно Код:
Последний раз редактировалось Sergey112233; 12.01.2011 в 22:30. |
13.01.2011, 09:53 | #32 | ||
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Для правильной работы необходимо использовать пересчитываемые (volatile) функции, типа =ТДАТА(), =СЕГОДНЯ(), =СЛЧИС(), =СЛУЧМЕЖДУ(), =ИНФОPM(), =ЯЧЕЙКА(), =ДВССЫЛ(), =СМЕЩ(), или формулы, которые ссылаются на фильтруемый диапазон, например =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;A:A). Так, например, в Вашем файле есть ячейки (столбец "B"), содержащие такие формулы (ссылающиеся на фильтруемый диапазон). Этого вполне достаточно. Цитата:
Код:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 13.01.2011 в 09:55. |
||
13.01.2011, 12:25 | #33 |
Пользователь
Регистрация: 15.12.2010
Сообщений: 29
|
|
13.01.2011, 13:50 | #34 |
Пользователь
Регистрация: 19.12.2010
Сообщений: 82
|
SAS888,
уважаемые форумчане. Очень приятно получить квалифицированное объяснение. Большое спасибо. Такой пример в книгу хорошо было бы занести!!! Код приложил к реальной базе. Отрабатывает отлично: из 23000 записей выбирает 100 из них и перенумеровывает за несколько секунд. Это огромный шаг вперед по сравнению с началом топика. Здорово!!! Позвольте добавить еще одно слово (профилактика от повторного наступания на грабли) . Иногда при обработке файла наблюдается следующая ситуация. При обновлении лист с формулами обрабатывается быстрее, чем осуществляются те же действия, но прописанные макросом. И, бывает наоборот, макрос обрабатывает лист быстрее формул. Конечно, в каждом конкретном случае нужно подробно разобраться. Так вот о слове : есть ли какие-то общие рекомендации по применению формул и макросов? |
13.01.2011, 14:31 | #35 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Есть. Если диапазон невелик можно и то и другое. В противном случае только макросы.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
13.01.2011, 14:40 | #36 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Вы о чем? Проверьте.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
13.01.2011, 14:55 | #37 |
Пользователь
Регистрация: 19.12.2010
Сообщений: 82
|
kuklp,
Спасибо. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматическая нумерация столбцов с учетом скрытых | cons | Microsoft Office Excel | 12 | 27.04.2010 12:25 |
Автоматическая нумерация в таблице word | SilverSmallFish | Microsoft Office Word | 5 | 27.04.2010 06:43 |
Автоматическая нумерация строк в DBGrid | Len@09 | БД в Delphi | 10 | 02.11.2009 17:41 |
автоматическая нумерация | Screame | Microsoft Office Excel | 4 | 01.08.2009 00:28 |
Автоматическая нумерация документов | Лука | Microsoft Office Excel | 5 | 15.06.2009 21:59 |