автоматическая нумерация строк

[Sergey112233]

SAS888
Уважаемые форумчане.

Пример, предложенный SAS888 краток и работает.
Здорово!

Но есть небольшой вопросик

Если на рабочем листе есть хотя бы одна ячейка, содержащая формулу, то можно использовать событие пересчета ячеек листа

Объясните, пожалуйста - немного подробнее (это может быть не только функция Сегодня(), а любая другая - Если(), например)
Далее.

В этот пример мною были добавлены столбцы и строки.
Фильтрация производится с помощью столбца "условие" (0 или 1)
Автонумерация планировалась производится по столбцу "№ п/п"
Внешний вид и пример прилагаю.
Диапазон
Range([A2], Cells(Rows.Count, 1).End(xlUp))

изменен на
Range([C5], Cells(Rows.Count, 1).End(xlUp))
Но пересчет распространился на все ячейки листа.

В целом у меня получилась такая абракадабра

что пришлось пример выкладывать без кода в модуле.
Уже пожалел, что сразу об этом не написал.

Код файла отдельно

Private Sub Worksheet_Calculate()
    Dim cell As Range, i As Long: i = 1
    Application.ScreenUpdating = False: Application.EnableEvents = False
    For Each cell In Range([C5], Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible)
        cell = i: i = i + 1
    Next
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

[SAS888]

Объясните, пожалуйста - немного подробнее (это может быть не только функция Сегодня(), а любая другая - Если(), например)

Объясняю подробнее:
Для правильной работы необходимо использовать пересчитываемые (volatile) функции, типа =ТДАТА(), =СЕГОДНЯ(), =СЛЧИС(), =СЛУЧМЕЖДУ(), =ИНФОPM(), =ЯЧЕЙКА(), =ДВССЫЛ(), =СМЕЩ(), или формулы, которые ссылаются на фильтруемый диапазон, например =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;A:A). Так, например, в Вашем файле есть ячейки (столбец "B"), содержащие такие формулы (ссылающиеся на фильтруемый диапазон). Этого вполне достаточно.

Диапазон Range([A2], Cells(Rows.Count, 1).End(xlUp))
изменен на Range([C5], Cells(Rows.Count, 1).End(xlUp))

А вот это Ваша ошибка. Вы задаете диапазон перенумерации с ячейки "C5" до последней заполненной ячейки в столбце "A". А нужно в этом же столбце. Например

Range([C5], Cells(Rows.Count, 3).End(xlUp))

или

Range([C5], Cells(Rows.Count, "C").End(xlUp))

Пример во вложении.

[aoaoo]

Сообщение от kuklp

Можно формат ячеек: 0"_00_01".
Без разницы формулы или константы.

так в дальнейшем формат ячейки будет текстовым.
а как сделать что бы строки в дальнейшем были фактическими?

[Sergey112233]

SAS888,
уважаемые форумчане.
Очень приятно получить квалифицированное объяснение.
Большое спасибо.
Такой пример в книгу хорошо было бы занести!!!
Код приложил к реальной базе. Отрабатывает отлично: из 23000 записей выбирает 100 из них и перенумеровывает за несколько секунд. Это огромный шаг вперед по сравнению с началом топика. Здорово!!!

Позвольте добавить еще одно слово (профилактика от повторного наступания на грабли) . Иногда при обработке файла наблюдается следующая ситуация. При обновлении лист с формулами обрабатывается быстрее, чем осуществляются те же действия, но прописанные макросом. И, бывает наоборот, макрос обрабатывает лист быстрее формул. Конечно, в каждом конкретном случае нужно подробно разобраться.
Так вот о слове : есть ли какие-то общие рекомендации по применению формул и макросов?

[kuklp]

Сообщение от Sergey112233

есть ли какие-то общие рекомендации по применению формул и макросов?

Есть. Если диапазон невелик можно и то и другое. В противном случае только макросы.

[kuklp]

Сообщение от aoaoo

так в дальнейшем формат ячейки будет текстовым.
а как сделать что бы строки в дальнейшем были фактическими?

Вы о чем? Проверьте.

[Sergey112233]

kuklp,
Спасибо.